UseDVDSource Property (PlayCtrl)

'Declaration
 
Public Overridable Property UseDVDSource As Boolean

Public _result As Boolean = False
      Public _form As PlayCtrlForm = New PlayCtrlForm()
      Public Sub UseDVDSourceExample()
         ' reference the play control
         Dim playctrl As PlayCtrl = _form.PlayCtrl

         ' input file
         Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "VIDEO_TS\VIDEO_TS.IFO")

         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

            ' disable auto start
            playctrl.AutoStart = False

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

            ' set the source file
            playctrl.SourceFile = inFile

            ' reference the DVDSource object
            dvdSource = CType(playctrl.GetSubObject(PlayObject.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

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

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

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

               '  Check 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

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

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

               '  Check 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

                     ' set the result to what we expect
                     _result = (Not chapter Is Nothing)
                  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 playctrl.State = PlayState.Running
            Application.DoEvents()
         Loop
      End Sub

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