Leadtools.Multimedia Namespace > CaptureCtrl Class : SaveStillDIB Method |
'Declaration Public Overridable Sub SaveStillDIB( _ ByVal fileName As String, _ ByVal timeOut As Integer _ )
'Usage Dim instance As CaptureCtrl Dim fileName As String Dim timeOut As Integer instance.SaveStillDIB(fileName, timeOut)
Public _form As CaptureCtrlForm = New CaptureCtrlForm() Public _capturectrl As CaptureCtrl = Nothing Public _result As Boolean = False Private _dibFile As String = Path.Combine(LEAD_VARS.MediaDir, "CaptureCtrl_SaveStillDIB.dib") Public Sub SaveStillDIBExample() ' reference the capture control _capturectrl = _form.CaptureCtrl Try ' select a video capture device If _capturectrl.VideoDevices("USB") Is Nothing Then Throw New Exception("No USB video device available") End If _capturectrl.VideoDevices("USB").Selected = True ' set a video compressor for the capture file _capturectrl.VideoCompressors.Mpeg4.Selected = True ' start the capture _capturectrl.StartCapture(CaptureMode.Still) ' save the still DIB to a file _capturectrl.SaveStillDIB(_dibFile, -1) ' stop the capture _capturectrl.StopCapture() ' check for the capture file and set the result If File.Exists(Path.Combine(Directory.GetCurrentDirectory(), _dibFile)) Then _result = True End If Catch e1 As Exception _result = False End Try End Sub Public NotInheritable Class LEAD_VARS Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 175\Media"; End Class
public CaptureCtrlForm _form = new CaptureCtrlForm(); public CaptureCtrl _capturectrl = null; public bool _result = false; string _dibFile = Path.Combine(LEAD_VARS.MediaDir,"CaptureCtrl_SaveStillDIB.dib"); public void SaveStillDIBExample() { // reference the capture control _capturectrl = _form.CaptureCtrl; try { // select a video capture device if (_capturectrl.VideoDevices["USB"] == null) throw new Exception("No USB video device available"); _capturectrl.VideoDevices["USB"].Selected = true; // set a video compressor for the capture file _capturectrl.VideoCompressors.Mpeg4.Selected = true; // start the capture _capturectrl.StartCapture(CaptureMode.Still); // save the still DIB to a file _capturectrl.SaveStillDIB(_dibFile, -1); // stop the capture _capturectrl.StopCapture(); // check for the capture file and set the result if (File.Exists(Path.Combine(Directory.GetCurrentDirectory(), _dibFile))) _result = true; } catch (Exception) { _result = false; } } 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