GetTime Method

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