Public ReadOnly Property VideoProcessors As VideoProcessors

Dim instance As PlayCtrl
Dim value As VideoProcessors
 
value = instance.VideoProcessors

public VideoProcessors VideoProcessors {get;}

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

Public _result As Boolean = False
      Public _form As PlayCtrlForm = New PlayCtrlForm()
      Public Sub ProcessorsExample()
         ' reference the convert control
         Dim playctrl As PlayCtrl = _form.PlayCtrl

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

         Try
            ' disable auto start
            playctrl.AutoStart = False

            ' set the event handler for state changes
            AddHandler playctrl.StateChanged, AddressOf PlayCtrl_StateChanged
            ' set source file
            playctrl.SourceFile = inFile

            ' if we have a video stream
            If (playctrl.AllowedStreams And StreamFormatType.Video) = StreamFormatType.Video Then
               ' set the video processor to the Dizzy filter 
               playctrl.SelectedVideoProcessors.Add(playctrl.VideoProcessors.EFXDizzy)
               Dim vproc As Processor = playctrl.SelectedVideoProcessors.EFXDizzy

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

            ' if we have an audio stream
            If (playctrl.AllowedStreams And StreamFormatType.Audio) = StreamFormatType.Audio Then
               ' set the audio processor to the Chorus filter 
               playctrl.SelectedAudioProcessors.Add(playctrl.AudioProcessors.Chorus)
               Dim aproc As Processor = playctrl.SelectedAudioProcessors.Chorus

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

            ' start the playback now
            playctrl.Run()

            ' 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 playctrl.State = PlayState.Running
               Application.DoEvents()
            Loop
         Catch e1 As Exception
            _result = False
         End Try
      End Sub

      Private Sub PlayCtrl_StateChanged(ByVal sender As Object, ByVal e As StateChangedEventArgs)
         ' set the result to what we expect
         _result = (e.lastState = PlayState.Running AndAlso e.state = PlayState.Stopped)
      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 PlayCtrlForm _form = new PlayCtrlForm();
      public void ProcessorsExample()
      {
         // reference the convert control
         PlayCtrl playctrl = _form.PlayCtrl;

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

         try
         {
            // disable auto start
            playctrl.AutoStart = false;

            // set the event handler for state changes
            playctrl.StateChanged += new StateChangedEventHandler(PlayCtrl_StateChanged);
            // set source file
            playctrl.SourceFile = inFile;

            // if we have a video stream
            if ((playctrl.AllowedStreams & StreamFormatType.Video) == StreamFormatType.Video)
            {
               // set the video processor to the Dizzy filter 
               playctrl.SelectedVideoProcessors.Add(playctrl.VideoProcessors.EFXDizzy);
               Processor vproc = playctrl.SelectedVideoProcessors.EFXDizzy;

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

            // if we have an audio stream
            if ((playctrl.AllowedStreams & StreamFormatType.Audio) == StreamFormatType.Audio)
            {
               // set the audio processor to the Chorus filter 
               playctrl.SelectedAudioProcessors.Add(playctrl.AudioProcessors.Chorus);
               Processor aproc = playctrl.SelectedAudioProcessors.Chorus;

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

            // start the playback now
            playctrl.Run();

            // 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 (playctrl.State == PlayState.Running)
               Application.DoEvents();
         }
         catch (Exception)
         {
            _result = false;
         }
      }

      void PlayCtrl_StateChanged(object sender, StateChangedEventArgs e)
      {
         // set the result to what we expect
         _result = (e.lastState == PlayState.Running && e.state == PlayState.Stopped);
      }

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