Leadtools.Multimedia Namespace > CaptureCtrl Class : ReadyCapture Method |
public virtual void ReadyCapture( CaptureMode lMode )
'Declaration Public Overridable Sub ReadyCapture( _ ByVal lMode As CaptureMode _ )
'Usage Dim instance As CaptureCtrl Dim lMode As CaptureMode instance.ReadyCapture(lMode)
public virtual void ReadyCapture( CaptureMode lMode )
function Leadtools.Multimedia.CaptureCtrl.ReadyCapture( lMode )
public: virtual void ReadyCapture( CaptureMode lMode )
Public _result As Boolean = False Public _form As CaptureCtrlForm = New CaptureCtrlForm() Public Sub RunCaptureExample() ' reference the capture control Dim capturectrl As CaptureCtrl = _form.CaptureCtrl Dim outFile As String = Path.Combine(LEAD_VARS.MediaDir, "CaptureCtrl_RunCaptureExample.avi") Try ' try to find a USB camera 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 output file capturectrl.TargetFile = outFile ' select a video compressor capturectrl.VideoCompressors.Mpeg4.Selected = True ' check if we have can capture video If capturectrl.IsModeAvailable(CaptureMode.Video) Then capturectrl.FrameDelay = 0.033 ' 30 frames per second capturectrl.TimeLimit = 10 ' just 10 seconds of capture time capturectrl.UseTimeLimit = True ' subscribe to the compete event AddHandler capturectrl.Complete, AddressOf RunCapture_Helper ' prepare the capture process capturectrl.ReadyCapture(CaptureMode.Video Or CaptureMode.InhibitRun) ' actually run the capture now! capturectrl.RunCapture() ' 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. Do While capturectrl.State = CaptureState.Running Application.DoEvents() Loop End If Catch e1 As Exception _result = False End Try End Sub Public Sub RunCapture_Helper(ByVal sender As Object, ByVal e As EventArgs) ' set result _result = True End Sub Public NotInheritable Class LEAD_VARS Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 175\Media"; End Class
public bool _result = false; public CaptureCtrlForm _form = new CaptureCtrlForm(); public void RunCaptureExample() { // reference the capture control CaptureCtrl capturectrl = _form.CaptureCtrl; string outFile = Path.Combine(LEAD_VARS.MediaDir,"CaptureCtrl_RunCaptureExample.avi"); try { // try to find a USB camera if (capturectrl.VideoDevices["USB"] == null) throw new Exception("No USB video device available"); capturectrl.VideoDevices["USB"].Selected = true; // set the target output file capturectrl.TargetFile = outFile; // select a video compressor capturectrl.VideoCompressors.Mpeg4.Selected = true; // check whether we can capture video if (capturectrl.IsModeAvailable(CaptureMode.Video)) { capturectrl.FrameDelay = .033; // 30 frames per second capturectrl.TimeLimit = 10; // just 10 seconds of capture time capturectrl.UseTimeLimit = true; // subscribe to the compete event capturectrl.Complete += RunCapture_Helper; // prepare the capture process capturectrl.ReadyCapture(CaptureMode.Video | CaptureMode.InhibitRun); // actually run the capture now! capturectrl.RunCapture(); // 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(); } } catch (Exception) { _result = false; } } public void RunCapture_Helper(object sender, EventArgs e) { // set result _result = true; } static class LEAD_VARS { public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 175\Media"; }
Target Platforms: Windows 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2