Перегляд відео та анімації

Процес використання компонента MediaPiaer для перегляду вмісту AVI-файлу розглянемо на прикладі програми, яка в результаті клацання на командній кнопці відтворює на поверхні форми просту мультиплікацію, що супроводжується звуковим ефектом - обертається за годинниковою стрілкою слово Delphi (файл delphi.avi, що містить цей мультик, знаходиться на додається до книги диску).

Вигляд діалогового вікна програми наведено на рис. 11.12, а значення властивостей компонента MediaPlayerl - У табл. 11.8.

перегляд

відео

Мал. 11.12.Форма та діалогове вікно програмиВикористання MediaPlayer

Таблиця 11.8.Значення властивостей компонента MediaPlayer1

Створюється форма додатку звичайним чином. Компонент Paneii використовується як екран, на який здійснюється виведення анімації, і його ім'я приймається як значення властивості Display компонента MediaPlayeri. Тому спочатку до форми краще додати компонент Panel і потім MediaPlayer. Такий порядок створення форми дозволяє встановити значення властивості Display шляхом вибору списку.

Слід особливо звернути увагу на те, що розмір області виведення анімації на панелі визначається не значеннями властивостей width і Height панелі (хоча їх значення повинні бути як мінімум такими, як ширина та висота анімації). Розмір області визначається значенням властивості

DisplayRect компонент MediaPlayer. Властивість DisplayRect Під час розробки програми недоступна (його значення не виводиться у вікніObject Inspector).Тому значення властивості DisplayRect встановлюється під час роботи програми в результаті виконання інструкції

Щоб отримати інформацію про розмір кадрів AVI-файлу, потрібно, використовуючи можливості Windows, відкрити папку,Якою знаходиться цей файл, клацнути правою кнопкою миші на імені файлу, вибрати командуВластивостіі в діалоговому вікні, що з'явилося — вкладку Зведення, в якій виводиться докладна інформація про файл, у тому числі і розмір кадрів.

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

Листинг 11.4. Відтворення анімації, що супроводжується звуком

Windows, Messages, SysUtils,

Classes, Graphics, Controls,

Forms, Dialogs, MPlayer, StdCtrls, ExtCtrls;

Label1: TLabel; // інформаційне повідомлення

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

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

MediaPlayer1: TMediaPlayer; // Універсальний програвач

procedureButtonlClick(Sender: TObject);

procedureFormCreate(Sender: TObject);

procedureTForm1.ButtonlClick(Sender: TObject);

MediaPlayer1.Play; // Відтворення анімації

procedureTForm1.FormCreate(Sender: TObject);

// Задамо розмір області виведення анімації

// на поверхні форми

Процес відтворення анімації активується застосуванням методу Play, що еквівалентно натисканню кнопкиPlayу випадку, якщо кнопки компонента MediaPlayer доступні користувачеві.