My First Convert (Delphi 6.0)
The ltmmConvertCtrl object allows the user to recompress multimedia files or convert from one multimedia format to another. Using the following steps:
1. |
Start Delphi 6. |
|
2. |
If you didn’t install LEAD Multi-Media controls before, install them. On the Component pull-down menu, use the Import ActiveX Control… and select the LEAD Multi-Media Library (14), and Press install, and then compile and install the package dclusr.dpk. |
|
3. |
From the ActiveX controls tab; add the ltmmConvertCtrl to your form. |
|
4. |
Add button to your control, and name it as follows: |
|
|
Name |
Caption |
|
btnStartConvert |
Start Convert |
5. |
Handle the Form1 OnCreate event, and code FormCreate procedure as follows: |
procedure TForm1.FormCreate(Sender: TObject);
begin
//Define the input file.
ltmmConvertCtrl1.SourceFile:= 'c:\source.avi';
//Define the target or output file.
ltmmConvertCtrl1.TargetFile:= 'c:\Target.avi';
//select the LEAD compressor
ltmmConvertCtrl1.VideoCompressors.Selection:= ltmmConvertCtrl1.VideoCompressors.Find('@device:sw:{33D9A760-90C8-11D0-BD43-00A0C911CE86}\LEAD
MCMP/MJPEG Codec A COmpressor Also known as an encoder, this is a module or algorithm to compress data. Playing that data back requires a decompressor, or decoder. combined with a DECompressor, or encoder Also known as compressor, this is a module or algorithm to compress data. Playing that data back requires a decompressor, or decoder. and a decoder Also known as a decompressor, this is a module or algorithm to decompress data., which allows you to both compress and decompress that same data. (2.0)');
end;
6. |
Handle the btnStartConvert OnClick event, and code btnStartConvertClick procedure as follows: |
procedure TForm1.btnStartConvertClick(Sender: TObject);
begin
//start the conversion
ltmmConvertCtrl1.StartConvert ( );
ShowMessage ( 'Converting is done…' );
end;
7. |
Run your program to test it. |