огляд
Що таке мультимедіа
Мультимедіа в Delphi
компонент TMediaPlayer
Два види програм, що використовують мультимедіа
Приклад програми з мультимедіа ex11.zip
Що таке мультимедіа
Даючи таке загальне визначення, потрібно сказати, що в даному уроці ми маємо справу з підмножиною мультимедіа, яке включає.
2. Відтворення звуків і музики з MIDI і WAVE файлів.
Дану задачу можна виконати за допомогою динамічної бібліотеки Microsoft Multimedia Extensions для Windows (MMSYSTEM.DLL), методи якої вміщені в компоненті TMediaPlay, що знаходиться на сторінці System Палітри Компонент Delphi.
Для програвання файлів мультимедіа може знадобитися наявність деякого обладнання та програмного забезпечення. Так для відтворення звуків потрібна звукова карта. Для відтворення AVI в Windows 3.1 (або WFW) потрібно встановити ПО Microsoft Video.
Мультимедіа в Delphi
Простоту використання можна сприймати двояко.
· З одного боку - це дає можливість будь-якому створювати мультимедіа програми.
· З іншого боку, можна виявити, що в компоненті реалізовані не всі можливості. Якщо Ви захочете використовувати низькорівневі функції, то доведеться копатися досить глибоко, використовуючи мову 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.
Рис.3. Відтворення AVI на панелі.
Два види програм мультимедіа
· Іноді доводиться надавати користувачам простий шлях для програвання максимально широкого кола файлів. Це означає, що Вам потрібно буде дати користувачеві доступ до жорсткого диска або CD-ROM, і потім дозволити йому вибрати і відтворити відповідний файл. У цьому випадку, на формі зазвичай розташовується TMediaPlayer. надає можливість управління відтворенням.
Приклад програми з мультимедіа
У даній лекції ми розглянемо приклад побудови програми з мультимедіа першого типу. Створіть новий проект (File | New Project). Помістіть TMediaPlayer на форму; помістіть компоненти TFileListBox, TDirectoryListBox, TDriveComboBox, TFilterComboBox для вибору файлу. У властивості FileList для DirectoryListBox 1 і FilterComboBox 1 поставте FileListBox 1. У св-ве DirList для DriveComboBox 1 поставте DirectoryListBox 1. У св-ве Filter для FilterComboBox 1 вкажіть необхідні розширення файлів.
Нехай за подвійним клацанням мишкою в FileListBox 1 обраний файл буде відтворюватися. У обробнику події OnDblClick для FileListBox 1 вкажіть
with MediaPlayer1 do
Зовнішній вигляд форми представлений на рис.4
Рис.4. Початковий вид проекту
Збережіть проект, запустіть його, виберіть потрібний файл і двічі клацніть на нього мишкою. MediaPlayer повинен відтворити цей файл в окремому вікні.
і св-во BevelOuter = bvNone. Щоб переключатися при відтворенні з вікна на панель - помістіть T З heckBox на форму і в обробнику події OnClick для нього запишіть.
procedure TForm1.CheckBox1Click (Sender: TObject);
with MediaPlayer1 do begin
if FileName = '' then Exit;
if CheckBox1.Checked then
Під час виконання програми може знадобитися відобразити поточний стан об'єкта MediaPlayer і самого ролика (час, що минув з початку відтворення, довжину ролика). Для цього в об'єкта TMediaPlayer є відповідні властивості і події. Length, Position, OnNotify і ін. Давайте додамо в проект прогрес-індикатор (TGauge), який відобразить у відсотках, скільки пройшло часу (див. Рис.6). Для оновлення показань індикатора можна скористатися таймером. Помістіть на форму об'єкт TTimer. встановіть для нього Interval = 100 (100 мілісекунд). У обробнику події OnTimer потрібно записати.
procedure TForm1.Timer1Timer (Sender: TObject);
with MediaPlayer1 do
if FileName<>'' Then
Запустіть проект, виберіть файл (AVI) і клацніть на ньому два рази мишкою. При відтворенні ролика прогрес-індикатор повинен відображати відсоток, відповідний пройшов часу (див. Рис.6).
Мал. 6: Закінчена додаток для відтворення AVI, WAV і MDI файлів.
Чи знаєте Ви, що діаграма класів, Class diagram - це методологія об'єктно-орієнтованого проектування, призначена для представлення статичної структури моделі системи в термінології класів об'єктно-орієнтованого програмування.
НОВИНИ ФОРУМУ
Лицарі теорії ефіру