←Select platform

TargetVCRControl Property

Summary

Gets the target VCR control object.

Syntax

C#
VB
C++
public virtual VCRControl TargetVCRControl { get; } 
Public Overridable ReadOnly Property TargetVCRControl As Leadtools.Multimedia.VCRControl 
public: 
virtual property Leadtools.Multimedia.VCRControl^ TargetVCRControl { 
   Leadtools.Multimedia.VCRControl^ get(); 
} 

Property Value

A VCRControl object.

Remarks

The VCRControl object is used to control VCR functionality available in the target device.

Example

C#
VB
using Leadtools; 
using Leadtools.Multimedia; 
using LeadtoolsMultimediaExamples.Fixtures; 
 
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.Selection = -1; 
      _convertctrl.AudioCompressors.Selection = -1; 
 
      // 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 19\Media"; 
} 
Imports Leadtools 
Imports Leadtools.Multimedia 
Imports LeadtoolsMultimediaExamples.Fixtures 
 
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 
 
      ' set video and audio compressors to none 
      _convertctrl.VideoCompressors.Selection = -1 
      _convertctrl.AudioCompressors.Selection = -1 
 
      ' 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 19\Media" 
End Class 

Requirements

Target Platforms

Help Version 19.0.2017.10.27
Products | Support | Contact Us | Copyright Notices
© 1991-2017 LEAD Technologies, Inc. All Rights Reserved.

Leadtools.Multimedia Assembly