Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures
Public _form As CaptureCtrlForm = New CaptureCtrlForm()
Public _capturectrl As CaptureCtrl = Nothing
Public _result As Boolean = False
Public Sub SaveStillBitmapExample()
' reference the capture control
_capturectrl = _form.CaptureCtrl
' output file
Dim jpgFile As String = Path.Combine(LEAD_VARS.MediaDir, "CaptureCtrl_SaveStillBitmap.jpg")
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 image to a jpeg file
_capturectrl.SaveStillBitmap(jpgFile, StillFormatType.JPEG444, 9, 0, -1)
' stop the capture
_capturectrl.StopCapture()
' check for the capture file and set the result
If File.Exists(jpgFile) 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 18\Media"
End Class
using Leadtools;
using Leadtools.Multimedia;
using LeadtoolsMultimediaExamples.Fixtures;
public CaptureCtrlForm _form = new CaptureCtrlForm();
public CaptureCtrl _capturectrl = null;
public bool _result = false;
public void SaveStillBitmapExample()
{
// reference the capture control
_capturectrl = _form.CaptureCtrl;
// output file
string jpgFile = Path.Combine(LEAD_VARS.MediaDir,"CaptureCtrl_SaveStillBitmap.jpg");
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 image to a jpeg file
_capturectrl.SaveStillBitmap(jpgFile, StillFormatType.JPEG444, 9, 0, -1);
// stop the capture
_capturectrl.StopCapture();
// check for the capture file and set the result
if (File.Exists(jpgFile))
_result = true;
}
catch (Exception)
{
_result = false;
}
}
static class LEAD_VARS
{
public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 18\Media";
}