Imports Leadtools
Imports Leadtools.Multimedia
Imports LeadtoolsMultimediaExamples.Fixtures
Public _result As Boolean = False
Public _form As CaptureCtrlForm = New CaptureCtrlForm()
Public Sub AvailableTVFormatsExample()
' reference the forms capture control and tv tuner
Dim capturectrl As CaptureCtrl = _form.CaptureCtrl
Try
' select the first device with analog in it's name
' Replace "Analog" with your video capture device name
If capturectrl.VideoDevices("Analog") Is Nothing Then
Throw New Exception("No Analog video devices available!")
End If
capturectrl.VideoDevices("Analog").Selected = True
' get the TV Tuner device
Dim tvtuner As TVTuner = capturectrl.TVTuner
' Check if TV tuner is valid
If Not tvtuner Is Nothing Then
' get the available TV formats
Dim formats As AnalogVideoStandard = tvtuner.AvailableTVFormats
' check the returned formats for NTSC_M and set the result to what we expect
If (formats And AnalogVideoStandard.NTSC_M) = AnalogVideoStandard.NTSC_M Then
' set the result
If tvtuner.TVFormat = AnalogVideoStandard.NTSC_M Then
_result = True
End If
End If
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
using Leadtools;
using Leadtools.Multimedia;
using LeadtoolsMultimediaExamples.Fixtures;
public bool _result = false;
public CaptureCtrlForm _form = new CaptureCtrlForm();
public void AvailableTVFormatsExample()
{
// reference the forms capture control and tv tuner
CaptureCtrl capturectrl = _form.CaptureCtrl;
try
{
// select the first device with analog in it's name
// Replace "Analog" with your video capture device name
if (capturectrl.VideoDevices["Analog"] == null)
throw new Exception("No Analog video devices available!");
capturectrl.VideoDevices["Analog"].Selected = true;
// get the TV Tuner device
TVTuner tvtuner = capturectrl.TVTuner;
// check whether the TV tuner is valid
if (tvtuner != null)
{
// get the available TV formats
AnalogVideoStandard formats = tvtuner.AvailableTVFormats;
// check the returned formats for NTSC_M and set the result to what we expect
if ((formats & AnalogVideoStandard.NTSC_M) == AnalogVideoStandard.NTSC_M)
{
// set the result
if (tvtuner.TVFormat == AnalogVideoStandard.NTSC_M)
_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 (capturectrl.State == CaptureState.Running)
Application.DoEvents();
}