Public Overridable ReadOnly Property TargetVCRControl As VCRControl

Dim instance As ConvertCtrl
Dim value As VCRControl
 
value = instance.TargetVCRControl

public virtual VCRControl TargetVCRControl {get;}

public:
virtual property VCRControl^ TargetVCRControl {
   VCRControl^ get();
}

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

            ' 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) 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 17\Media"
End Class

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 17\Media";
}