Замечание

Чтобы получить информацию о размере кадров AVI-файла, надо, используя возможности Windows, открыть папку, в которой находится этот файл, щелкнуть правой кнопкой мыши на имени файла, выбрать команду Свойстваи в появившемся диалоговом окне — вкладку Сводка, в которой выводится подробная информация о файле, в том числе и размер кадров.

Текст программы приведен в листинге 11.4.

Листинг 11.4. Воспроизведение анимации, сопровождаемой звуком

Uses

Windows, Messages, SysUtils,

Classes, Graphics, Controls,

Forms, Dialogs, MPlayer, StdCtrls, ExtCtrls;

Type

TForm1 = class(TForm)

Label1: TLabel; // информационное сообщение

Panel1: TPanel; // панель, на которую выводится анимация

Button1: TButton; // кнопка OK

MediaPlayer1: TMediaPlayer; // универсальный проигрыватель

procedureButtonlClick(Sender: TObject);

procedureFormCreate(Sender: TObject);

Private

{ Private declarations )public

{ Public declarations } end;

Var

Form1: TForm1 ;

Implementation

($R *.DFM}

procedureTForm1.ButtonlClick(Sender: TObject);

Begin

MediaPlayer1.Play; // воспроизведение анимации

end;

procedureTForm1.FormCreate(Sender: TObject);

Begin

// зададим размер области вывода анимации

// на поверхности формы

MediaPlayer1.DisplayRect:=Rect(0,0,60,60);

end;

End.

Процесс воспроизведения анимации активизируется применением метода Play, что эквивалентно нажатию кнопки Playв случае, если кнопки компонента MediaPlayer доступны пользователю.