SetMediaType Method (SampleSource)

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 18\Media"
End Class