Мультимедійне додаток.
Володимир Коробицын
Компонент
програвач мультимедіа і його властивості
Наповніть
ваш додаток звуками і відео. Дуже швидко цього можна досягти,
скориставшись компонентом MediaPlayer (Програвач мультимедійних файлів).
У вкладці System (Системні компоненти) виберіть компонент MediaPlayer і
розмістіть його на формі Form1, де він автоматично отримає ім'я MediaPlayer1.
Клацніть мишею по формі два рази і у функцію обробки FormCreate події
OnCreate (Наступає при відкритті форми) впишіть програмний код:
MediaPlayer1-> FileName =
"c: MusicVesna.mid";
MediaPlayer1-> Open ();
//відкрити файл
Перша
рядок у компонента MediaPlayer1 його властивості File Name (Файл) присвоїть
значення, яке вкаже шлях до певного музичного файлу, що знаходиться
на вашому комп'ютері. Друга - метод компонента MediaPlayer, який відкриває
вказаний файл для відтворення.
Запустіть
додаток. Клацніть на кнопку «Відтворення» програвача, зазвучить
мелодія. По черзі Понатискайте інші кнопки програвача. Непотрібні вам
кнопки програвача приховайте, змінивши для його складного властивості
VisibleButtons (Видимість кнопок) значення true на значення false.
Якщо
ви хочете, щоб мелодія зазвучала відразу ж після запуску програми, у цій же
функції допишіть рядок - метод компонента MediaPlayer:
MediaPlayer1-> Play ();
//відтворити файл
Перевірте,
як працює ця добавка. Тепер програвач можна зробити, якщо вам це
потрібно, невидимим і ваша програма буде працювати на тлі звучить мелодії. Для
цього властивості Visible надайте значення false.
Натискання
на інші кнопки програвача можна теж замінити відповідними методами
компонента MediaPlayer в програмі, наприклад:
MediaPlayer1-> Pause ();// пауза
MediaPlayer1-> Stop ();// зупинка
і
так далі, втім, про існування цих та інших властивостей і методів компонента
MediaPlayer вам підкаже спливаюча підказка в середовищі Borland C + + Builder.
Аналогічним
чином змусьте у вашому додатку працювати будь-який звуковий файл з розширенням
WAV, а потім і який-небудь відео-файл, наприклад, з розширенням AVI.
Якщо
вам необхідно, щоб в роботі додатку одночасно звучала музика і
відтворювався, наприклад, відео-файл, встановіть на формі два програвачі --
MediaPlayer1 і MediaPlayer2.
А
тепер ви вже зможете побудувати універсальний мультимедіа-програвач для
відтворення будь-яких мультимедійних файлів. У новому проекті на формі помістіть
знайомий вже вам компонент MediaPlayer1. У вкладці Dialogs (Вікна загальному
діалогу) клацніть кнопку OpenDialog (Вікно відкриття файлу), а потім клацніть на
формі Form1. На формі з'явиться невидимий під час роботи програми компонент з
ім'ям OpenDialog1. Створіть електронну кнопку Button1, клацніть на неї два рази
і до процедури переривання Button1Click запишіть програмний код:
OpenDialog1-> Execute ();
//виклик вікна відкриття файлу
MediaPlayer1-> Close ();
//закриття файлу
// передача
імені файлу з вікна загального діалогу програвача
MediaPlayer1-> FileName =
OpenDialog1-> FileName;
MediaPlayer1-> Open ();// відкриття файлу
В
першому рядку для виклику вікна «Відкриття файлу» застосована функція Execute
(Виконати). Другий рядок потрібна на той випадок, якщо в програвач буде
завантажуватися більше одного файлу, адже перед відкриттям наступного необхідно
закрити попередній файл. Робота решти рядків програмного коду зрозуміла з їх
коментарів.
Забезпечити
кнопку Button1 написом «Відкрити». Розмістіть на формі компонент Label1, і в
процедурі Button1Click допишіть інструкцію:
// помістити
в напис шлях та ім'я відкритого файлу
Label1-> Caption
= MediaPlayer1-> FileName;
В
заголовку форми запишіть: «Універсальний програвач». Приховайте кнопку
управління вікном «Розгорнути». Для цього в складеному властивості BorderIcons
(Кнопки управління вікном) властивості biMaximize (Визначає доступність кнопки
«Розгорнути») надайте значення false. Розмістіть на формі відповідну
картинку, як це зробити - ви вже знаєте. Відкомпілюйте проект. Намагайтеся використовувати ваш
універсальний програвач у роботі, по черзі завантажуючи мультимедійні файли
з розширеннями WAV, MID, MP3, WMA, RMI, AVI та інші.
Виготовте
програвач для відтворення лазерних дисків, записаних у звичайному
музичному форматі. Відкрийте новий проект. Встановіть на стартовій формі Form1
компонент MediaPlayer1. У вікні Object Inspector для властивості DeviceType
(Призначає тип пристрою для відтворення) встановіть значення іменованої
константи dtCDAudio (CD-плеєр). А для властивості AutoOpen встановіть
значення true. У привід CD-дисків установіть компакт-диск звичайного музичного
формату. Запустіть програму. Тепер залишається клікнути мишею на кнопку
«Відтворення». Намагайтеся використовувати дію інших кнопок плеєра. Перед
закриттям програми необхідно натиснути на кнопку «Стоп». Непотрібні кнопки приховайте
від погляду користувача, змінивши значення знайомого вам складеного властивості
VisibleButtons компонента MediaPlayer1.
На
той випадок, якщо користувач перед закриттям програми забуде натиснути на
кнопку «Стоп» необхідно у функцію обробки FormClose (Закриття форми)
записати рядки:
MediaPlayer1-> Stop ();// зупинка
MediaPlayer1-> Close ();// закриття
Для
зручності в роботі створіть допоміжні функції програвача. Наприклад,
користувачеві буде незайвою інформація про число доріжок на музичному диску.
Помістіть на форму компонент Label1 і заповніть функцію обробки FormCreate
програмним кодом:
Label1-> Caption = "доріжок на
диску "+ IntToStr
(MediaPlayer1-> Tracks);
Зверніть
увагу, тут для зручності одна інструкція в редакторі коду записана в два строки.
Ця інструкція на формі через поле виведення тексту Label1 інформує
користувача про число доріжок на даному диску. Де Tracks - це властивість
компонента MediaPlayer, яке вказує на кількість треків на відкритому
пристрої Audio CD. Функція перетворення IntToStr перекладає ціле число
треків на диску в строкову змінну зображає це число. Це
перетворення необхідно з-за того, що властивість Caption компонента Label
може приймати значення тільки строкового типу. Не забудьте відкомпілювати
проект.
Якщо
ви хочете змінити стандартну іконку C + + Builder вашого файлу, що виконується, то
в меню Project (Проект) виберіть Options ... (Установки ...) і у вкладці Application
(Додаток), натисніть кнопку Load Icon ... (Завантаження іконки ...). Тепер можна вибрати
потрібну іконку з розширенням ICO з наявних на вашому комп'ютері.
Список літератури
Для
підготовки даної роботи були використані матеріали з сайту http://bc.boom.ru/
