Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures
Public _result As Boolean = False
Public _form As ConvertCtrlForm = New ConvertCtrlForm()
Public Sub TargetDevicesExample()
Dim inputName, inputFriendlyName As String
Dim selectedCamera As Integer
' reference the convert control
Dim convertctrl As ConvertCtrl = _form.ConvertCtrl
Try
' get the target devices object
Dim devices As TargetDevices = convertctrl.TargetDevices
' select an input by name if possible
If devices("Microsoft DV Camera") Is Nothing Then
Throw New Exception("No MS DV Camera device available!")
End If
devices("Microsoft DV Camera").Selected = True
' get the full friendly name of the device
Dim friendlyName As String = devices("Microsoft DV Camera").FriendlyName
' get the selected index of the currently selected target device
' (the MS DV camera above)
selectedCamera = devices.Selection
' now enumerate all the target devices,
' looking for an audio device and select it
For Each td As TargetDevice In devices
' get the inputs properties
inputName = td.Name
inputFriendlyName = td.FriendlyName
' if we found a target audio device
If inputFriendlyName.Contains("Audio") Then
' select it and break
td.Selected = True
Exit For
End If
Next td
' set the result to what we expect
_result = (selectedCamera <> devices.Selection)
Catch e1 As Exception
_result = False
End Try
End Sub
using Leadtools;
using Leadtools.Multimedia;
using LeadtoolsMultimediaExamples.Fixtures;
public bool _result = false;
public ConvertCtrlForm _form = new ConvertCtrlForm();
public void TargetDevicesExample()
{
string inputName, inputFriendlyName;
int selectedCamera;
// reference the convert control
ConvertCtrl convertctrl = _form.ConvertCtrl;
try
{
// get the target devices object
TargetDevices devices = convertctrl.TargetDevices;
// select an input by name if possible
if (devices["Microsoft DV Camera"] == null)
throw new Exception("No MS DV Camera device available!");
devices["Microsoft DV Camera"].Selected = true;
// get the full friendly name of the device
string friendlyName = devices["Microsoft DV Camera"].FriendlyName;
// get the selected index of the currently selected target device
// (the MS DV camera above)
selectedCamera = devices.Selection;
// now enumerate all the target devices,
// looking for an audio device and select it
foreach (TargetDevice td in devices)
{
// get the inputs properties
inputName = td.Name;
inputFriendlyName = td.FriendlyName;
// if we found a target audio device
if (inputFriendlyName.Contains("Audio"))
{
// select it and break
td.Selected = true;
break;
}
}
// set the result to what we expect
_result = (selectedCamera != devices.Selection);
}
catch (Exception)
{
_result = false;
}
}