Средства створення мультимедійних приложений

Средства створення мультимедійних приложений.

Обзор Что таке мультимедиа Мультимедиа в Delphi.

Компонент TMediaPlayer.

Два виду програм, використовують мультимедиа Пример програми з мультимедіа.

Обзор.

Delphi дозволяє легко і включати у програму такі мультимедійні об'єкти, як звуки, відеота музику. У даному уроці обговорюється, як це зробити, використовуючи вмонтований в Delphi компонент TMediaPlayer. Докладно розглядаються управління цим компонентом у програмі й одержання інформації про про поточний стан. Что таке мультимедиа Точного визначення, що це таке, немає. Однак у цей час й у цьому місці, напевно, краще дати за можливості найбільш загальне означення й сказати, що «мультимедіа» — це термін належить до майже всіх форм анімації, звуках, відео, які використовуються за комп’ютером.

Давая таке загальне визначення, слід зазначити, що в уроці ми маємо справу з підмножиною мультимедіа, яке включает:

1. Показ відео в форматі Microsoft «p.s Video for Windows (AVI).

2. Відтворення звуків і старої музики з MIDI і WAVE файлов.

Данную завдання можна виконати з допомогою динамічної бібліотеки Microsoft Multimedia Extensions для Windows (MMSYSTEM.DLL), методи якої инкапсулированы в компоненті TMediaPlay, які перебувають сторінка System Палітри Компонент Delphi.

Для програвання файлів мультимедіа може знадобитися наявність деякого обладнання та програмного забезпечення. Так на відтворення звуків потрібна звукова карта. Для відтворення AVI в Windows 3.1 (чи WFW) потрібно встановити ПО Microsoft Video.

Мультимедиа в Delphi У Delphi є компонент TMediaPlayer, який дає Вам доступ до всіх основних можливостям програмування мультимедіа. Цей компонент дуже проста використання. Фактично, настільки простий, що багатьом початківцям програмістам буде простіше створити свою першу програму, проигрывающую відео чи музику, ніж яка ніколи класичну напис «Hello World ».

Простоту використання надаються до сприйняття двояко:

· З одного боку — це дозволяє кожному створювати мультимедіа приложения.

· З іншого боку, можна знайти, що у компоненті реалізовані в усіх можливості. Якщо ви захочете використовувати низькорівневі функції, доведеться копирсатися досить глибоко, використовуючи мову Delphi.

В даному уроці не описуються подробиці внутрішніх викликів мультимедійних функцій під час роботи компонента. Усе, що потрібно знати — те, що компонент називається TMediaPlayer, що він дає доступом до набору підпрограм, створених Microsoft і званих Media Control Interface (MCI). Ці підпрограми дають програмісту простий доступом до широкого кола пристроїв мультимедіа. Власне роботу з TMediaPlayer інтуїтивно зрозумілою і очевидна.

Компонент TMediaPlayer

Для початку давайте створимо новий проект, потім помістимо компонент TMediaPlayer (стор. System Палітри) на форму, як показано на рис. 1.

.

Рис.1: Компонент TMediaPlayer на форме..

Компонент TMediaPlayer оформлений, як панель управління пристроєм з кнопками. Як і магнітофоні, тут є кнопки «відтворення», «перемотування», «запис» і др.

Поместив компонент на форму, Ви побачите, що Інспектор Об'єктів містить властивість «FileName «(див. мал.2). Клацніть дважды.

.

Рис.2: Властивості TMediaPlayer в Інспектора Объектов.

на цьому властивості і виберіть ім'я файла з розширенням AVI, WAV или.

MID. На мал.2 обраний AVI файл DELPHI.AVI. Далі встановити властивість AutoOpen в True.

После виконання цих кроків програма готова запуску. Запустивши програму, натиснімо зелену кнопку «відтворення» (крайня зліва) і… Ви побачите відеоролик (якщо вибрали AVI) чи почуєте звук (якщо вибрали WAV чи MID). Якщо це цього не сталося чи з’явилося повідомлення про помилку, можливі два варианта:

Ви запровадили неправильне ім'я файла. Ви налаштували правильним чином мультимедіа в Windows. Це означає, або у Вас немає відповідного «заліза», або встановлено потрібні драйвери. Установка та налаштування драйверів виробляється в Control Panel, вимоги до «залозу» наводяться у будь-якій книзі по мультимедіа (потрібна звукова карта, наприклад сумісна з Sound Blaster).

Итак, Ви маєте можливість програвати AVI, MIDI і WAVE файли просто вказуючи ім'я файла.

Еще одну важливу властивість компонента TMediaPlayer — Display. Спочатку він заповнене і відео відтворюється в окремому віконці. Проте, як екрана для показу ролика можна використовувати, наприклад, панель. На форму потрібно помістити компонент TPanel, прибрати текст з св-ва Caption. Далі, для TMediaPlayer, в властивості Display вибрати зі списку Panel1. Після цього потрібно запустити програму й тицьнути на кнопку «відтворення» (див. рис.3).

.

Рис.3: Відтворення AVI на панелі..

Два виду програм мультимедиа · Іноді доводиться надавати користувачам простіший шлях для програвання щонайширшого кола файлів. Це означає, що Вам потрібно буде дати користувачеві доступом до жорсткому диску чи CD-ROM, і далі дозволити йому вибрати відтворити підходящий файл. І тут, на формі зазвичай розташовується TMediaPlayer, який дає можливість управління відтворенням.

· Іноді програміст може захотіти приховати від користувача існування компонента TMediaPlayer. Тобто, відтворити звук чи відео так, щоб користувач піклувався про їхнє джерелі. Зокрема, звук то, можливо частиною презентації. Наприклад, показ якогось графіка на екрані може супроводжуватися поясненням, записаним в WAV файл. У перебігу презентації користувач не знає про існування TMediaPlayer. Він працює у фоновому режимі. І тому компонент робиться невидимим (Visible = False) і управляється программно.

Пример програми з мультимедиа

В даної главі ми розглянемо приклад побудови докладання з мультимедіа першого типу. Створіть новий проект (File | New Project). Помістіть TMediaPlayer на форму; помістіть компоненти TFileListBox, TDirectoryListBox, TDriveComboBox, TFilterComboBox для вибору файла. У властивості FileList для DirectoryListBox1 і FilterComboBox1 поставте FileListBox1. У св-ве DirList для DriveComboBox1 поставте DirectoryListBox1. У св-ве Filter для FilterComboBox1 зазначте необхідні розширення файлов:

AVI File (*.avi)|*.avi.

WAVE File (*.wav)|*.wav.

MIDI file (*.MID)|*.mid.

Пусть по подвійному щиглику мишкою в FileListBox1 обраний файл буде відтворюватися. У обработчике події OnDblClick для FileListBox1 укажите.

Procedure TForm1. FileListBox1DblClick (Sender:TObject);

begin.

with MediaPlayer1 do.

begin.

Close;

FileName:=FileListBox1.FileName;

Open;

Play;

end;

end;

Внешний вид форми представлений рис. 4.

.

Рис.4: Початковий вид проекта.

Сохраните проект, запустіть його, виберіть потрібний файл і двічі клацніть нею мишкою. MediaPlayer повинен відтворити цей файл в окремому вікні.

Как зазначалося вище, відеоролик можна відтворювати всередині форми, наприклад, на панелі. Давайте злегка модифікуємо проект і додамо туди панель TPanel (див. див. мал.5). У св-ве Display для MediaPlayer1 зазначте Panel1. Потрібно прибрати напис з панелі (Caption).

и св-во BevelOuter = bvNone. Щоб переключатися при відтворенні з вікна на панель — помістіть TСheckBox на форму й у обработчике події OnClick для нього запишите:

procedure TForm1. CheckBox1Click (Sender: TObject);

var.

Start_From: Longint;

begin.

with MediaPlayer1 do begin.

if FileName= «» then Exit;

Start_From:=Position;

Close;

Panel1.Refresh;

if CheckBox1. Checked then.

Display:=Panel1.

else.

Display:=NIL;

Open;

Position:=Start_From;

Play;

end;

end;

Запустите проект і відтворіть відеоролик. Поклацайте мишкою на CheckBox.

.

· · Рис.5: Додана панель на відтворення відеота перемикач окно/панель..

Во час виконання програми може знадобитися відобразити поточний стан об'єкта MediaPlayer і самої ролика (час, що минув від початку відтворення, довжину ролика). І тому об'єкт TMediaPlayer є відповідних властивостей і: Length, Position, OnNotify та інших. Давайте додамо до проекту прогресс-индикатор (TGauge), який відобразить у відсотках, скільки минуло часу (див. див. мал.6). Для відновлення показань індикатора можна скористатися таймером. Помістіть на форму об'єкт TTimer, встановіть йому Interval = 100 (100 мілісекунд). У обработчике події OnTimer потрібно записать:

procedure TForm1. Timer1Timer (Sender: TObject);

begin.

with MediaPlayer1 do.

if FileName «» then.

Gauge1.Progress:=Round (100*Position/Length);

end;

Запустите проект, виберіть файл (AVI) і клацніть у ньому двічі мишкою. При відтворенні ролика прогресс-индикатор повинен відображати відсоток, відповідний що пройшла часу (див. рис.6).

.

· · Рис.6: Закінчене додаток на відтворення AVI, WAV і MDI файлов..