Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures
Public _result As Boolean = False
Public _form As CaptureCtrlForm = New CaptureCtrlForm()
Public Sub WMProfileExample()
' reference the capture control
Dim capturectrl As CaptureCtrl = _form.CaptureCtrl
Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "CaptureCtrl_Source.avi")
Try
' reference the profile if available
Dim CurrentProfile As WMProfile = capturectrl.WMProfile
If Not CurrentProfile Is Nothing Then
MessageBox.Show(_form, CurrentProfile.Name & " is the currently selected profile.", "Settings")
Else
MessageBox.Show(_form, "There are currently no profiles associated with this capture object", "Settings")
End If
Catch e1 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.
Do While capturectrl.State = CaptureState.Running
Application.DoEvents()
Loop
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 bool _result = false;
public CaptureCtrlForm _form = new CaptureCtrlForm();
public void WMProfileExample()
{
// reference the capture control
CaptureCtrl capturectrl = _form.CaptureCtrl;
string inFile = Path.Combine(LEAD_VARS.MediaDir,"CaptureCtrl_Source.avi");
try
{
// reference the profile if available
WMProfile CurrentProfile = capturectrl.WMProfile;
if (CurrentProfile != null)
MessageBox.Show(_form, CurrentProfile.Name + " is the currently selected profile.", "Settings");
else
MessageBox.Show(_form, "There are currently no profiles associated with this capture object", "Settings");
}
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 18\Media";
}