TotalDuration Property (DVDSource)

Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures

Public _result As Boolean = False
Public _form As ConvertCtrlForm = New ConvertCtrlForm()
Public Sub UseDVDSourceExample()
   ' reference the convert control
   Dim convertctrl As ConvertCtrl = _form.ConvertCtrl

   ' input and output files
   Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "VIDEO_TS.IFO")
   Dim outFile As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_UseDVDSourceExample.avi")

   Try
      Dim dvdSource As DVDSource
      Dim title As DVDTitle
      Dim chapter As DVDChapter
      Dim subpictureStream As DVDSubpictureStream
      Dim audioStream As DVDAudioStream
      Dim comp As DVDVideoCompression
      Dim appMode As DVDAudioAppMode
      Dim audFormat As DVDAudioFormat
      Dim audLangExt As DVDAudioLangExt
      Dim subPicCoding As DVDSubpictureCoding
      Dim subPicLangExt As DVDSubpictureLangExt
      Dim subPicType As DVDSubpictureType

      Dim i As Integer
      Dim lCount As Integer
      Dim lVal As Long
      Dim bVal As Boolean
      Dim dVal As Double
      Dim strPlayList As String

      ' force to use the DVD source
      convertctrl.UseDVDSource = True

      ' set the input and output files
      convertctrl.SourceFile = inFile
      convertctrl.TargetFile = outFile

      ' reference the DVDSource object
      dvdSource = CType(convertctrl.GetSubObject(ConvertObject.SourceFilter), DVDSource)

      '  Select the main title on the disc
      If (dvdSource.Selected <> DVDSourceSelectedState.MainSelected) Then
         dvdSource.Selected = DVDSourceSelectedState.MainSelected
      End If

      '  Get the disc duration
      dVal = dvdSource.TotalDuration
      '  Get the selected title duration
      dVal = dvdSource.SelectedDuration

      '  Get the play list settings
      strPlayList = dvdSource.PlayList

      '  You can save this to a file and restore the settings later
      '  Restore the playlist settings
      dvdSource.PlayList = strPlayList

      '  Get the title count in the disc
      lCount = dvdSource.TitleCount

      i = 0
      Do While (i <= (lCount - 1))
         '  Get the title interface
         title = dvdSource.GetTitle(i)

         '  Get the X and Y aspects
         lVal = title.AspectX
         lVal = title.AspectY

         '  Get if the title is a film mode or camera mode
         bVal = title.IsFilmMode

         '  Get if there is a user data in line 21, field 1
         bVal = title.Line21Field1InGOP

         '  Get if there is a user data in line 21, field 2
         bVal = title.Line21Field2InGOP

         '  Get the compression
         comp = title.Compression

         '  Get the X source resolution
         lVal = title.SourceResolutionX

         '  Get the Y source resolution
         lVal = title.SourceResolutionY

         '  Get the Frame Height
         lVal = title.FrameHeight

         '  Get the Frame Rate
         lVal = title.FrameRate

         '  Get if the source is a letter boxed
         bVal = title.IsSourceLetterboxed

         '  Get if the picture can be shown as letterbox
         bVal = title.LetterboxPermitted

         '  Get if the picture can be shown as pan-scan
         bVal = title.PanscanPermitted

         '  Get the title duration
         dVal = title.TotalDuration

         '  Select all title chapters
         If (title.Selected <> DVDTitleSelectedState.Selected) Then
            title.Selected = DVDTitleSelectedState.Selected
         End If

         '  Get the selected chapter duration
         dVal = title.SelectedDuration

         '  Get the audio stream count in the title
         If (title.AudioStreamCount > 0) Then
            '  Select the first audio stream
            If (title.SelectedAudioStream = -1) Then
               title.SelectedAudioStream = 0
            End If

            '  Get the first audio stream
            audioStream = title.GetAudioStream(0)

            '  Select the audio stream
            If (audioStream.Selected = False) Then
               audioStream.Selected = True
            End If

            '  Get the application mode
            appMode = audioStream.AppMode

            '  Get the application mode data
            lVal = audioStream.AppModeData

            '  Get the auido format
            audFormat = audioStream.AudioFormat

            '  Get the number of channels
            lVal = audioStream.Channels

            '  Get the frequency
            lVal = audioStream.Frequency

            '  Get the language
            lVal = audioStream.Language

            '  Get the language extension
            audLangExt = audioStream.LanguageExtension

            '  Get the quantization
            lVal = audioStream.Quantization

            If (title.SubpictureStreamCount > 0) Then
               '  Select the first subpicture stream
               If (title.SelectedSubpictureStream = -1) Then
                  title.SelectedSubpictureStream = 0
               End If

               '  Get the first subpicture stream
               subpictureStream = title.GetSubpictureStream(0)

               '  Select the subpicture stream
               If (subpictureStream.Selected = False) Then
                  subpictureStream.Selected = True
               End If

               '  Get the coding mode
               subPicCoding = subpictureStream.CodingMode

               '  Get the langauge
               lVal = subpictureStream.Language

               '  Get the language extension
               subPicLangExt = subpictureStream.LanguageExtension

               '  Get the type
               subPicType = subpictureStream.Type
            End If
            '  Get the chapter count
            If (title.ChapterCount > 0) Then
               '  Get the first chapter
               chapter = title.GetChapter(0)

               '  Get the chapter duration
               dVal = chapter.Duration

               '  Get if the chapter is selected
               If (chapter.Selected = False) Then
                  chapter.Selected = True
               End If
            End If
         End If
         i += 1
      Loop
   Catch e1 As COMException
      _result = False
   Catch e2 As Exception
      _result = False
   End Try

   ' we'll loop on the state and pump messages for this example.
   ' but you should not need to if running from a Windows Forms application.
   Do While convertctrl.State = ConvertState.Running
      Application.DoEvents()
   Loop
End Sub

Public NotInheritable Class LEAD_VARS
Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 18\Media"
End Class