GetAcceptedMediaType Method (SampleTarget)

Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures

Public _result As Boolean = False
Public _form As ConvertCtrlForm = New ConvertCtrlForm()
Public _convertctrl As ConvertCtrl
' input files and output file
Private inFile1 As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_Source1.avi")
Private inFile2 As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_Source2.avi")
Private outFile As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_ConcatAVIFilesExample.avi")

Public Sub ConcatAVIFilesExample()
   Dim pConvert1 As ConvertCtrl
   Dim pConvert2 As ConvertCtrl
   Dim pMSSource As MultiStreamSource
   Dim pMSTarget As MultiStreamTarget
   Dim lStart As Int64

   Dim pmt As MediaType
   Dim pInsertedMediaType As MediaType

   pConvert1 = New ConvertCtrl(True)
   pConvert2 = New ConvertCtrl(True)

   pMSSource = New MultiStreamSource()
   pMSTarget = New MultiStreamTarget()

   ' set the start time to be 0
   lStart = 0

   ' set the input filename
   pConvert1.SourceFile = inFile1

   ' set the output sample to a target object
   pMSTarget.StreamCount = 2

   ' set the target media types for video and audio streams
   pmt = New MediaType()
   pmt.Type = Leadtools.Multimedia.Constants.MEDIATYPE_Video
   pMSTarget.SetAcceptedMediaType(0, pmt)

   pmt.Type = Leadtools.Multimedia.Constants.MEDIATYPE_Audio
   pMSTarget.SetAcceptedMediaType(1, pmt)

   pmt = Nothing

   ' get the inserted media type for the first stream
   pInsertedMediaType = pMSTarget.GetAcceptedMediaType(0)
   pInsertedMediaType = Nothing

   ' set convert 1 target object
   pConvert1.TargetObject = pMSTarget

   ' start the source conversion, so we can get the media sample format
   pConvert1.StartConvert()

   ' initialize convert 2
   ' get the output media sample format and put it into the source object
   pMSSource.StreamCount = 2
   pmt = pMSTarget.GetConnectedMediaType(0)
   pMSSource.SetMediaType(0, pmt)
   pmt = Nothing

   pmt = pMSTarget.GetConnectedMediaType(1)
   pMSSource.SetMediaType(1, pmt)
   pmt = Nothing

   ' get the inserted media type for the first stream
   pInsertedMediaType = pMSSource.GetMediaType(0)
   pInsertedMediaType = Nothing

   ' set the output filename
   pConvert2.TargetFile = outFile

   ' set the source for convert 2
   pConvert2.SourceObject = pMSSource

   ' start the dest conversion
   pConvert2.StartConvert()

   ' convert first file
   ConcateFile(pConvert1, pMSTarget, pMSSource, lStart)

   '
   'Restrict the output format to the media type of the source for the first file
   'That is because the two files must have the same media type for both video and audio
   'With video, you have to make sure the files have the same frame rate! Minor changes in
   'the frame rate might make the connection fail!
   'The control will tolerate differences in frame rate if you comment the next line
   '

   pmt = pMSTarget.GetConnectedMediaType(0)
   pMSTarget.SetAcceptedMediaType(0, pmt)
   pmt = Nothing

   pmt = pMSTarget.GetConnectedMediaType(1)
   pMSTarget.SetAcceptedMediaType(1, pmt)
   pmt = Nothing

   ' change the source file to second file
   pConvert1.SourceFile = inFile2

   ' start converting again
   pConvert1.StartConvert()

   ' convert second file
   ConcateFile(pConvert1, pMSTarget, pMSSource, lStart)

   ' deliver end of sample to stop the conversion
   pMSSource.DeliverEndOfStream(0, 1000)
   pMSSource.DeliverEndOfStream(1, 1000)

   If pConvert2.State = ConvertState.Running Then
      pConvert2.StopConvert()
   End If

   ' free the source and target objects
   pConvert2.ResetSource()
   pConvert1.ResetTarget()

   pConvert1.Dispose()
   pConvert2.Dispose()
   pMSSource.Dispose()
   pMSTarget.Dispose()

   _result = File.Exists(outFile)
End Sub

Private Sub ConcateFile(ByVal pConvert1 As ConvertCtrl, _
                        ByVal pMSTarget As MultiStreamTarget, _
                        ByVal pMSSource As MultiStreamSource, _
                        ByRef lStart As Long)
   Dim pmsSrc As MediaSample = Nothing
   Dim pmsDst As MediaSample = Nothing
   Dim MediaTimeStart As Long
   Dim MediaTimeStop As Long
   Dim LastStart As Long
   Dim LastStop As Long
   Dim lSampleStream As Integer
   Dim lActualDataLength As Integer

   LastStop = 0

   Do
      ' get the sample, allowing 10 s for the operation to complete
      Try
         lSampleStream = pMSTarget.WaitForSample(1000)
      Catch cex As COMException
         If cex.ErrorCode = CInt(ErrorCode.VFW_E_TIMEOUT) Then
            ' end of the stream
            Exit Do
         End If
         _result = False
         Exit Do
      End Try

      Try
         ' get the target sample
         pmsSrc = pMSTarget.GetSample(lSampleStream, 0)
         ' get the source buffer
         pmsDst = pMSSource.GetSampleBuffer(lSampleStream, 2000)
      Catch e1 As Exception
         _result = False
         Exit Do
      End Try

      ' get the media time
      pmsSrc.GetMediaTime(MediaTimeStart, MediaTimeStop)

      ' get the source sample time
      pmsSrc.GetTime(LastStart, LastStop)

      ' set the destination sample time
      pmsDst.SetTime(lStart + LastStart, lStart + LastStop)

      ' copy the data
      lActualDataLength = pmsSrc.ActualDataLength

      ' set the destination buffer 
      ' we could Marshal the unmanaged buffer here, but no need since we are mearly 
      ' setting the destination to the source buffer contents (unaltered data)
      pmsDst.SetData(lActualDataLength, pmsSrc.GetData(lActualDataLength))

      ' copy the other flags
      pmsDst.Discontinuity = pmsSrc.Discontinuity
      pmsDst.Preroll = pmsSrc.Preroll
      pmsDst.SyncPoint = pmsSrc.SyncPoint

      ' release the source sample
      pmsSrc = Nothing

      ' deliver the destination sample
      pMSSource.DeliverSample(lSampleStream, 1000, pmsDst)

      ' release the destination sample
      pmsDst = Nothing
   Loop While True

   pConvert1.StopConvert()
   lStart = LastStop
End Sub

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