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. |