Public ReadOnly Property SelectedVideoProcessors As VideoProcessors

Dim instance As ConvertCtrl
Dim value As VideoProcessors
 
value = instance.SelectedVideoProcessors

public VideoProcessors SelectedVideoProcessors {get;}

public:
property VideoProcessors^ SelectedVideoProcessors {
   VideoProcessors^ get();
}

Public _result As Boolean = False
      Public _form As ConvertCtrlForm = New ConvertCtrlForm()
      Public Sub ProcessorsExample()
         ' reference the convert control
         Dim convertctrl As ConvertCtrl = _form.ConvertCtrl

         ' input and output files
         Dim inFile As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_Source.avi")
         Dim outFile As String = Path.Combine(LEAD_VARS.MediaDir, "ConvertCtrl_ProcessorsExample.avi")

         Try
            ' set source file
            convertctrl.SourceFile = inFile

            ' set the video processor to the Dizzy filter 
            convertctrl.SelectedVideoProcessors.Add(convertctrl.VideoProcessors.EFXDizzy)
            Dim vproc As Processor = convertctrl.SelectedVideoProcessors.EFXDizzy

            ' set the audio processor to the Chorus filter 
            convertctrl.SelectedAudioProcessors.Add(convertctrl.AudioProcessors.Chorus)
            Dim aproc As Processor = convertctrl.SelectedAudioProcessors.Chorus

            ' 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 MPEG2 as the video compressor
            convertctrl.VideoCompressors.Mpeg2.Selected = True

            ' set AC3 as the audio compressor
            convertctrl.AudioCompressors.AC3.Selected = True

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

            ' set the target output format
            convertctrl.TargetFormat = TargetFormatType.AVI

            ' start the capture process
            convertctrl.StartConvert()

            ' 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

            ' set the result to what we expect
            _result = File.Exists(outFile)
         Catch e1 As Exception
            _result = False
         End Try
      End Sub

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

public bool _result = false;
      public ConvertCtrlForm _form = new ConvertCtrlForm();
      public void ProcessorsExample()
      {
         // reference the convert control
         ConvertCtrl convertctrl = _form.ConvertCtrl;

         // input and output files
         string inFile = Path.Combine(LEAD_VARS.MediaDir,"ConvertCtrl_Source.avi");
         string outFile = Path.Combine(LEAD_VARS.MediaDir,"ConvertCtrl_ProcessorsExample.avi");

         try
         {
            // set source file
            convertctrl.SourceFile = inFile;

            // set the video processor to the Dizzy filter 
            convertctrl.SelectedVideoProcessors.Add(convertctrl.VideoProcessors.EFXDizzy);
            Processor vproc = convertctrl.SelectedVideoProcessors.EFXDizzy;

            // set the audio processor to the Chorus filter 
            convertctrl.SelectedAudioProcessors.Add(convertctrl.AudioProcessors.Chorus);
            Processor aproc = convertctrl.SelectedAudioProcessors.Chorus;

            // set the video processor properties
            if (vproc.HasDialog(ProcessorDlg.Properties))
               vproc.ShowDialog(ProcessorDlg.Properties, _form);

            // set the audio processor properties
            if (aproc.HasDialog(ProcessorDlg.Properties))
               aproc.ShowDialog(ProcessorDlg.Properties, _form);

            // set MPEG2 as the video compressor
            convertctrl.VideoCompressors.Mpeg2.Selected = true;

            // set AC3 as the audio compressor
            convertctrl.AudioCompressors.AC3.Selected = true;

            // set the target output file and format
            convertctrl.TargetFile = outFile;

            // set the target output format
            convertctrl.TargetFormat = TargetFormatType.AVI;

            // start the capture process
            convertctrl.StartConvert();

            // 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();

            // set the result to what we expect
            _result = File.Exists(outFile);
         }
         catch (Exception)
         {
            _result = false;
         }
      }

static class LEAD_VARS
{
   public const string MediaDir = @"C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 17\Media";
}