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

Чтобы получить информацию о размере кадров 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; // универсальный проигрыватель

procedure ButtonlClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

Private

{ Private declarations) public

{ Public declarations } end;

Var

Form1: TForm1;

Implementation

($R *.DFM}

procedure TForm1.ButtonlClick(Sender: TObject);

Begin

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

end;

procedure TForm1.FormCreate(Sender: TObject);

Begin

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

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

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

end;

End.

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