Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures
Public _result As Boolean = False
Public _form As ConvertCtrlForm = New ConvertCtrlForm()
Public _convertctrl As ConvertCtrl
Public Sub TargetDevicesExample()
' reference the convert control
_convertctrl = _form.ConvertCtrl
' input file
Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_Source.mpeg")
Try
' check to see if we have the desired target device
If _convertctrl.TargetDevices("Microsoft DV Camera and VCR") Is Nothing Then
Throw New Exception("No Microsoft DV Camera target devices available!")
End If
' set the video capture device, use your capture device name here
_convertctrl.SourceFile = inFile
' set video and audio compressors to none
_convertctrl.VideoCompressors.Uncompressed.Selected = True
_convertctrl.AudioCompressors.Uncompressed.Selected = True
' select the target format
_convertctrl.TargetFormats(TargetFormatType.DVSD).Selected = True
' select only Audio for this example
_convertctrl.AllowedStreams = StreamFormatType.AudioVideo
' set a target device
_convertctrl.TargetDevices("Microsoft DV Camera and VCR").Selected = True
' show the target format dialog
If _convertctrl.HasDialog(ConvertDlg.TargetFormat) Then
_convertctrl.ShowDialog(ConvertDlg.TargetFormat, _form)
End If
' check the target device VCRControl
If _convertctrl.TargetVCRControl Is Nothing OrElse (_convertctrl.TargetVCRControl.DeviceType = VCRControlDeviceType.NotPresent _
OrElse _convertctrl.TargetVCRControl.DeviceType = VCRControlDeviceType.Unknown) Then
Throw New Exception("MS DV Camera's Target VCR control is not present!")
End If
' start recording on the target device VCRControl
_convertctrl.TargetVCRControl.Record()
' give the camera time to respond
System.Threading.Thread.Sleep(2000)
' subscribe to the convert complete event
AddHandler _convertctrl.Complete, AddressOf ConvertCtrl_Completed
' convert it now!
_convertctrl.StartConvert()
' set the result to what we expect
_result = True
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 _convertctrl.State = ConvertState.Running
Application.DoEvents()
Loop
End Sub
Private Sub ConvertCtrl_Completed(ByVal sender As Object, ByVal e As EventArgs)
' stop the TargetDevice camera recording and rewind
_convertctrl.TargetVCRControl.Stop()
_convertctrl.TargetVCRControl.Rewind()
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 ConvertCtrlForm _form = new ConvertCtrlForm();
public ConvertCtrl _convertctrl;
public void TargetDevicesExample()
{
// reference the convert control
_convertctrl = _form.ConvertCtrl;
// input file
string inFile = Path.Combine(LEAD_VARS.MediaDir,"ConvertCtrl_Source.mpeg");
try
{
// check to see if we have the desired target device
if (_convertctrl.TargetDevices["Microsoft DV Camera and VCR"] == null)
throw new Exception("No Microsoft DV Camera target devices available!");
// set the video capture device, use your capture device name here
_convertctrl.SourceFile = inFile;
// select video and audio compressors to none
_convertctrl.VideoCompressors.Uncompressed.Selected = true;
_convertctrl.AudioCompressors.Uncompressed.Selected = true;
// select the target format
_convertctrl.TargetFormats[TargetFormatType.DVSD].Selected = true;
// select only Audio for this example
_convertctrl.AllowedStreams = StreamFormatType.AudioVideo;
// set a target device
_convertctrl.TargetDevices["Microsoft DV Camera and VCR"].Selected = true;
// show the target format dialog
if (_convertctrl.HasDialog(ConvertDlg.TargetFormat))
_convertctrl.ShowDialog(ConvertDlg.TargetFormat, _form);
// check the target device VCRControl
if (_convertctrl.TargetVCRControl == null
|| (_convertctrl.TargetVCRControl.DeviceType == VCRControlDeviceType.NotPresent
|| _convertctrl.TargetVCRControl.DeviceType == VCRControlDeviceType.Unknown))
throw new Exception("MS DV Camera's Target VCR control is not present!");
// start recording on the target device VCRControl
_convertctrl.TargetVCRControl.Record();
// give the camera time to respond
System.Threading.Thread.Sleep(2000);
// subscribe to the convert complete event
_convertctrl.Complete += new EventHandler(ConvertCtrl_Completed);
// convert it now!
_convertctrl.StartConvert();
// set the result to what we expect
_result = true;
}
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 (_convertctrl.State == ConvertState.Running)
Application.DoEvents();
}
void ConvertCtrl_Completed(object sender, EventArgs e)
{
// stop the TargetDevice camera recording and rewind
_convertctrl.TargetVCRControl.Stop();
_convertctrl.TargetVCRControl.Rewind();
}
static class LEAD_VARS
{
public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 18\Media";
}