VideoProcessors Property (CaptureCtrl)

Imports Leadtools
Imports Leadtools.MediaFoundation
Imports LeadtoolsMediaFoundationExamples.Fixtures

Public _result As Boolean = False
Public _form As New CaptureCtrlForm()
Public Sub ProcessorsExample()
    Dim capturectrl As CaptureCtrl = _form.CaptureCtrl
    Dim outFile As String = Path.Combine(LEAD_VARS.MediaDir, "CaptureCtrl_ProcessorsExample.avi")

    Try
        ' try to find a USB camera
        If capturectrl.VideoDevices("USB") Is Nothing Then
            Throw New Exception("No USB video device available")
        End If

        capturectrl.VideoDevices("USB").Selected = True

        ' try to find a USB audio device
        If capturectrl.AudioDevices("USB") Is Nothing Then
            Throw New Exception("No USB audio device available")
        End If

        capturectrl.AudioDevices("USB").Selected = True

        ' set the selected video processor to the first one in the video processors list 
        capturectrl.SelectedVideoProcessors.Add(capturectrl.VideoProcessors(0))
        Dim vproc As Processor = capturectrl.SelectedVideoProcessors(0)

        ' set the selected audio processor to the first one in the audio processors list 
        capturectrl.SelectedAudioProcessors.Add(capturectrl.AudioProcessors(0))
        Dim aproc As Processor = capturectrl.SelectedAudioProcessors(0)

        ' set the video processor properties
        If vproc.HasDialog(ProcessorDlg.Properties) Then
            vproc.ShowDialog(ProcessorDlg.Properties, _form)
        End If

        ' set the audio processor properties
        If aproc.HasDialog(ProcessorDlg.Properties) Then
            aproc.ShowDialog(ProcessorDlg.Properties, _form)
        End If

        ' set the target output file and format
        capturectrl.TargetFile = outFile

        ' set the target output format
        capturectrl.TargetFormat = TargetFormatType.MP4

        ' check if we have can capture video
        If capturectrl.IsModeAvailable(CaptureMode.VideoAndAudio) Then
            capturectrl.FrameRate = 5
            ' 5 frames per second 
            capturectrl.UseFrameRate = True
            capturectrl.TimeLimit = 10
            ' just 10 seconds of capture time
            capturectrl.UseTimeLimit = True

            ' subscribe to the complete event
            AddHandler capturectrl.Complete, AddressOf CaptureCtrl_Complete

            ' start the capture process
            capturectrl.StartCapture(CaptureMode.VideoAndAudio)

            ' 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()
            End While
        End If
    Catch generatedExceptionName As Exception
        _result = False
    End Try
End Sub

Public Sub CaptureCtrl_Complete(ByVal sender As Object, ByVal e As EventArgs)
    ' set result
    _result = True
End Sub

Public NotInheritable Class LEAD_VARS
Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 18\Media"
End Class