Creating a LEADTOOLS Multimedia Concatenate Video Application

Perform the following steps to create and run a multimedia convert application to concatenate two video files using two LEADTOOLS Multimedia ConvertCtrl controls.

  1. Start Visual Studio.

  2. Choose File->New->Project... from the menu.

  3. In the New Project dialog box, choose either "Visual C# Projects" or "VB Projects" in the Projects Type List, and choose "Windows Application " in the Templates List.

  4. Type the project name as "Multimedia Concatenate Videos" in the Project Name field, and then click OK. If desired, type a new location for your project or select a directory using the Browse button, and then click OK.

  5. In the "Solution Explorer" window, right-click the "References" folder, and select "Add Reference..." from the context menu. In the "Add Reference" dialog box, select the ".NET" tab and select Leadtools.Multimedia and click OK. Also, right-click the "References" folder, and select "Add Reference..." from the context menu. In the "Add Reference" dialog box, select the "COM" tab and select:

    • LEAD MPEG-2 Transport Multiplexer Library
    • LEAD MPEG-2 Transport Demultiplexer Library

    Note: The above COM objects must be registered; in case they were not; using regsvr32. For more information, refer to DirectShow Registry-free Activation.

    Next click OK.

  6. Make sure Form1 is in design view. Go to the toolbox (View->Toolbox) and drag two ConvertCtrl controls on the form. NOTE: If you do not have ConvertCtrl control in your toolbox, select Tools->Choose Toolbox Items from the menu. Click Browse and then select Leadtools.Multimedia.dll from "<LEADTOOLS_INSTALLDIR>\Bin\Dotnet\Win32" and then click Open and then click OK. After adding these controls to the form, set the following properties:

    Property Value
    Name _convertctrl1
    Name _convertctrl2
  7. Go to the toolbox (View->Toolbox) and drag a ProgressBar control on the form (below the convert control) and set the following properties:

    Property Value
    Name _progress
    Anchor Bottom, Left, Right
    Step 1
  8. Go to the toolbox (View->Toolbox) and drag two Button controls to the bottom of the form and set the following properties:

    Property Value
    Name _buttonProcessor
    Text Processor...
    Anchor Bottom, Right
    Name _buttonConvert
    Text Convert
    Anchor Bottom, Right
  9. Switch Form1 to code view (right-click Form1 in the Solution Explorer then choose View Code) and add the following lines to the beginning of the file:

    VB
    Imports Leadtools.Multimedia 
    C#
    using Leadtools.Multimedia; 

  10. Declare the following private variable:

    VB
    Private _sourceFile1 As String 
    Private _sourceFile2 As String 
    Private _targetFile As String 
    C#
    private string _sourceFile1; 
    private string _sourceFile2; 
    private string _targetFile; 

  11. Add an event handler to the _convertctrl2 Progress event and code it as follows:

    VB
    Private Sub _convertctrl2_Progress(ByVal sender As System.Object, ByVal e As ProgressEventArgs) Handles _convertctrl2.Progress 
       _progress.Value = CInt((_progress.Maximum * e.percent / 100)) 
    End Sub 
    C#
    private void _convertctrl2_Progress(object sender, ProgressEventArgs e) 
    { 
       _progress.Value = (int)(_progress.Maximum * e.percent / 100); 
    } 

  12. Add an event handler to the _convertctrl2 Complete event and code it as follows:

    VB
    Private Sub _convertctrl2_Complete(ByVal sender As System.Object, ByVal e As EventArgs) Handles _convertctrl2.Complete 
       MessageBox.Show("Concatenation Complete") 
       _buttonConvert.Enabled = True 
    End Sub 
    C#
    private void _convertctrl2_Complete(object sender, EventArgs e) 
    { 
       MessageBox.Show("Concatenation Complete"); 
       _buttonConvert.Enabled = true; 
    } 

  13. Add an event handler to the _buttonConvert Click event and code it as follows:

    VB
    Private Sub _buttonConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _buttonConvert.Click 
     Dim pConvert1 As ConvertCtrl = _convertctrl1 
     Dim pConvert2 As ConvertCtrl = _convertctrl2 
     Dim pMSSource As MultiStreamSource 
     Dim pMSTarget As MultiStreamTarget 
     Dim lStart As Int64 
                     
     Dim pmt As MediaType 
     Dim pInsertedMediaType As MediaType 
                     
     pMSSource = New MultiStreamSource() 
     pMSTarget = New MultiStreamTarget() 
                     
     ' set the start time to be 0 
     lStart = 0 
                     
     ' set the input filename 
     pConvert1.SourceFile = _sourceFile1 
                     
     ' 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 = _targetFile 
                     
     ' 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 = _sourceFile2 
                     
     ' 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() 
                     
     pMSSource.Dispose() 
     pMSTarget.Dispose() 
    End Sub    
    C#
    private void _buttonConvert_Click(object sender, System.EventArgs e) 
    { 
       ConvertCtrl pConvert1 = _convertctrl1; 
       ConvertCtrl pConvert2 = _convertctrl2; 
       MultiStreamSource pMSSource; 
       MultiStreamTarget pMSTarget; 
       Int64 lStart; 
                     
       MediaType   pmt; 
       MediaType   pInsertedMediaType; 
                     
       pMSSource = new MultiStreamSource(); 
       pMSTarget = new MultiStreamTarget(); 
                     
       // set the start time to be 0 
       lStart = 0; 
                     
       // set the input filename 
       pConvert1.SourceFile = _sourceFile1; 
                     
       // 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 = Constants.MEDIATYPE_Video; 
       pMSTarget.SetAcceptedMediaType(0, pmt); 
                     
       pmt.Type = Constants.MEDIATYPE_Audio; 
       pMSTarget.SetAcceptedMediaType(1, pmt); 
                     
       pmt = null; 
                     
       // get the inserted media type for the first stream 
       pInsertedMediaType = pMSTarget.GetAcceptedMediaType(0); 
       pInsertedMediaType = null; 
                     
       // 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 = null; 
                     
       pmt = pMSTarget.GetConnectedMediaType(1); 
       pMSSource.SetMediaType(1, pmt); 
       pmt = null; 
                     
       // get the inserted media type for the first stream 
       pInsertedMediaType = pMSSource.GetMediaType(0); 
       pInsertedMediaType = null; 
                     
       // set the output filename 
       pConvert2.TargetFile = _targetFile; 
                     
       // set the source for convert 2 
       pConvert2.SourceObject = pMSSource; 
                     
       // start the destination conversion 
       pConvert2.StartConvert(); 
                     
       // convert first file 
       ConcateFile(pConvert1, pMSTarget, pMSSource, ref 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 = null; 
                     
       pmt = pMSTarget.GetConnectedMediaType(1); 
       pMSTarget.SetAcceptedMediaType(1, pmt); 
       pmt = null; 
                     
       // change the source file to second file 
       pConvert1.SourceFile = _sourceFile2; 
                     
       // start converting again 
       pConvert1.StartConvert(); 
                     
       // convert second file 
       ConcateFile(pConvert1, pMSTarget, pMSSource, ref lStart); 
                     
       // deliver end of sample to stop the conversion 
       pMSSource.DeliverEndOfStream(0, 1000); 
       pMSSource.DeliverEndOfStream(1, 1000); 
                     
       if (pConvert2.State == ConvertState.Running) 
          pConvert2.StopConvert(); 
                     
       // free the source and target objects 
       pConvert2.ResetSource(); 
       pConvert1.ResetTarget(); 
                     
       pMSSource.Dispose(); 
       pMSTarget.Dispose(); 
    } 

  14. Add the following helper methods for the concatenation work:

    VB
    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 
         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 
         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 merely  
        ' 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 
    C#
    void ConcateFile(ConvertCtrl pConvert1, MultiStreamTarget pMSTarget, MultiStreamSource pMSSource, ref long lStart) 
    { 
       MediaSample pmsSrc = null; 
       MediaSample pmsDst = null; 
       long MediaTimeStart; 
       long MediaTimeStop; 
       long LastStart; 
       long LastStop; 
       int lSampleStream; 
       int lActualDataLength; 
                     
       LastStop = 0; 
                     
       do 
       { 
          // get the sample, allowing 10 s for the operation to complete 
          try 
          { 
             lSampleStream = pMSTarget.WaitForSample(1000); 
          } 
          catch (COMException cex) 
          { 
             if (cex.ErrorCode == (int)ErrorCode.VFW_E_TIMEOUT) 
             { 
                // end of the stream 
                break; 
             } 
             break; 
          } 
                     
          try 
          { 
             // get the target sample 
             pmsSrc = pMSTarget.GetSample(lSampleStream, 0); 
             // get the source buffer 
             pmsDst = pMSSource.GetSampleBuffer(lSampleStream, 2000); 
          } 
          catch (Exception) 
          { 
             break; 
          } 
                     
          // get the media time 
          pmsSrc.GetMediaTime(out MediaTimeStart, out MediaTimeStop); 
                     
          // get the source sample time 
          pmsSrc.GetTime(out LastStart, out 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 merely  
          // 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 = null; 
                     
          // deliver the destination sample 
          pMSSource.DeliverSample(lSampleStream, 1000, pmsDst); 
                     
          // release the destination sample 
          pmsDst = null; 
       } 
       while (true); 
                     
       pConvert1.StopConvert(); 
       lStart = LastStop; 
    } 

  15. Build, and Run the program to test it.

Help Version 20.0.2019.9.19
Products | Support | Contact Us | Intellectual Property Notices
© 1991-2019 LEAD Technologies, Inc. All Rights Reserved.

LEADTOOLS Multimedia