Output to DV Device (Delphi 6.0)

1.

Start with the project that you created in My First Convert.

2.

Update the FormCreate procedure to be as follows:

procedure TForm1.FormCreate(Sender: TObject); 
begin
   //Define the input file. 
 ltmmConvertCtrl1.SourceFile:= 'c:\source.avi'; 
   // Set the target type to DV
 ltmmConvertCtrl1.TargetFormat:= ltmmConvert_TargetFormat_dvsd; 
 //Select the first available device
   ltmmConvertCtrl1.TargetDevices.Selection:= 0; 
end; 

3.

Update the btnStartConvertClick procedure to be as follows:

procedure TForm1.btnStartConvertClick(Sender: TObject); 
begin
 // Start recording, if vcr output
 ltmmConvertCtrl1.TargetVCRControl.Record_ ( ); 
 // Start Converting Now. 
 ltmmConvertCtrl1.StartConvert ( ); 
end; 

4.

Run your program to test it.