public bool SyncPoint { get; set; }
Public Property SyncPoint As Boolean
true when the beginning of this sample is a synchronization point; false, otherwise.
Streams can begin at any synchronization point. With some compression types, streaming can begin only at certain points in the stream, for example, on key frames.
using Leadtools;
using Leadtools.Multimedia;
using LeadtoolsMultimediaExamples.Fixtures;
public bool _result = false;
public ConvertCtrlForm _form = new ConvertCtrlForm();
public ConvertCtrl _convertctrl;
// input files and output file
string inFile1 = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_Source1.avi");
string inFile2 = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_Source2.avi");
string outFile = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_ConcatAVIFilesExample.avi");
public void ConcatAVIFilesExample()
{
ConvertCtrl pConvert1;
ConvertCtrl pConvert2;
MultiStreamSource pMSSource;
MultiStreamTarget pMSTarget;
Int64 lStart;
MediaType pmt;
MediaType pInsertedMediaType;
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 = 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 = outFile;
// set the source for convert 2
pConvert2.SourceObject = pMSSource;
// start the dest 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 = inFile2;
// 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();
pConvert1.Dispose();
pConvert2.Dispose();
pMSSource.Dispose();
pMSTarget.Dispose();
_result = File.Exists(outFile);
}
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;
}
_result = false;
break;
}
try
{
// get the target sample
pmsSrc = pMSTarget.GetSample(lSampleStream, 0);
// get the source buffer
pmsDst = pMSSource.GetSampleBuffer(lSampleStream, 2000);
}
catch (Exception)
{
_result = false;
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 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 = null;
// deliver the destination sample
pMSSource.DeliverSample(lSampleStream, 1000, pmsDst);
// release the destination sample
pmsDst = null;
}
while (true);
pConvert1.StopConvert();
lStart = LastStop;
}
static class LEAD_VARS
{
public const string MediaDir = @"C:\LEADTOOLS21\Media";
}
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:\LEADTOOLS21\Media"
End Class
Help Collections
Raster .NET | C API | C++ Class Library | HTML5 JavaScript
Document .NET | C API | C++ Class Library | HTML5 JavaScript
Medical .NET | C API | C++ Class Library | HTML5 JavaScript
Medical Web Viewer .NET
Multimedia
Direct Show .NET | C API | Filters
Media Foundation .NET | C API | Transforms
Supported Platforms
.NET, Java, Android, and iOS/macOS Assemblies
Imaging, Medical, and Document
C API/C++ Class Libraries
Imaging, Medical, and Document
HTML5 JavaScript Libraries
Imaging, Medical, and Document