Imports Leadtools
Imports Leadtools.MediaFoundation
Imports LeadtoolsMediaFoundationExamples.Fixtures
Public _result As Boolean = False
Public _form As New CaptureCtrlForm()
Public Sub EnterEditExample()
' reference the capture control
Dim capturectrl As CaptureCtrl = _form.CaptureCtrl
' output file names
Dim outFile As String = Path.Combine(LEAD_VARS.MediaDir, "CaptureCtrl_EnterEditExample.mpg")
Try
' enter edit mode so that all graph changes will be
' made at one time (after the LeaveEdit call later)
capturectrl.EnterEdit()
' set the source video device, select using your device name here
If capturectrl.VideoDevices("USB") Is Nothing Then
Throw New Exception("No USB video device available")
End If
capturectrl.VideoDevices("USB").Selected = True
' set the target file
capturectrl.TargetFile = outFile
capturectrl.FrameRate = 5
' 5 frames per second
capturectrl.UseFrameRate = True
capturectrl.TimeLimit = 10
' just 10 seconds of capture time
capturectrl.UseTimeLimit = True
' apply the graph changes now
capturectrl.LeaveEdit()
' run the capture
capturectrl.StartCapture(CaptureMode.Video)
' set the result
_result = True
Catch generatedExceptionName As Exception
_result = False
End Try
' we'll loop on the state and pump messages for this example.
' but you should not need to if running from a Windows Forms application.
While capturectrl.State = CaptureState.Running
Application.DoEvents()
End While
End Sub
Public NotInheritable Class LEAD_VARS
Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 19\Media"
End Class
using Leadtools;
using Leadtools.MediaFoundation;
using LeadtoolsMediaFoundationExamples.Fixtures;
public bool _result = false;
public CaptureCtrlForm _form = new CaptureCtrlForm();
public void EnterEditExample()
{
// reference the capture control
CaptureCtrl capturectrl = _form.CaptureCtrl;
// output file names
string outFile = Path.Combine(LEAD_VARS.MediaDir,"CaptureCtrl_EnterEditExample.mpg");
try
{
// enter edit mode so that all graph changes will be
// made at one time (after the LeaveEdit call later)
capturectrl.EnterEdit();
// set the source video device, select using your device name here
if (capturectrl.VideoDevices["USB"] == null)
throw new Exception("No USB video device available");
capturectrl.VideoDevices["USB"].Selected = true;
// set the target file
capturectrl.TargetFile = outFile;
capturectrl.FrameRate = 5; // 5 frames per second
capturectrl.UseFrameRate = true;
capturectrl.TimeLimit = 10; // just 10 seconds of capture time
capturectrl.UseTimeLimit = true;
// apply the graph changes now
capturectrl.LeaveEdit();
// run the capture
capturectrl.StartCapture(CaptureMode.Video);
// set the result
_result = true;
}
catch (Exception)
{
_result = false;
}
// we'll loop on the state and pump messages for this example.
// but you should not need to if running from a Windows Forms application.
while (capturectrl.State == CaptureState.Running)
Application.DoEvents();
}
static class LEAD_VARS
{
public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 19\Media";
}
Copy Code