Компонент TMediaPlayer

TMediaPlayer

Компонент TMediaPlayer позволяет управлять различными устройствами мультимедиа, которые имеют MCI (Media Control Interface) совместимый драйвер.

Свойства:

FileName: TFileName;

- имя воспроизводимого файла (*.avi, *.wav, *.mid);

AutoOpen: Boolean;

- автоматически определять устройство по расширению файла;

Display: TWinControl;

- задает окно, в котором будет происходить вывод (по умолчанию Display: = nil;).

Пример.

Unit DemoTMediaPlayer;

Interface

Type

TForm1 = class (TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

Timer1: TTimer;

Animate1: TAnimate;

ProgressBar1: TProgressBar;

DateTimePicker1: TDateTimePicker;

BitBtn1: TBitBtn;

MediaPlayer1: TMadiaPlayer;

Procedure PageControl1Change();

Procedure FormCreat();

Procedure Timer1Timer();

Procedure BitBtn1Click();

end;

var

Form1: TForm1;

Implemantation

Procedure TForm1.FormCreate();

begin

Timer1.Interval: = 10;

DateTimePicker1.Date: = Date;

MediaPlayer.AutoOpen: = true;

MadiaPlayer.FileName: = ’...’;

Animate1.FileName: = ’...’;

end;

Procedure TForm1.PageControl1Change();

begin

if PageControl1.ActiveControl = TabSheet1 then

ProgressBar1.Position: = 0;

if PageControl1.ActiveControl = TabSheet2 then

begin

Timer1.Enabled: = false;

Animate1.Active: = false;

ProgressBar1.Position: = 0;

end;

end;

Procedure TForm1.Timer1Timer();

begin

ProgressBar1.Position: = ProgressBar1.Position + 1;

if ProgressBar1.Position > = ProgressBar1.Max then

begin

ProgressBar1.Position: = 0;

Timer1.Enabled: = false;

Animate1.Active: = false;

end;

end;

Procedure TForm1.Timer1Timer();

begin

Animate1.Active: = true;

Timer1.Enabled: = true;

end;

end.