UseDVDSource Property

Imports Leadtools 
Imports Leadtools.Multimedia 
Imports LeadtoolsMultimediaExamples.Fixtures 
 
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 19\Media" 
End Class