Практичне заняття № 11
Тема: Робота з текстовими та аудіо- файлами.
Мета: Ознайомити студентів з поняттям файлу. Розглянути процедури та функції для роботи з файлами. Створити програму «Програвач файлів мультимедіа». Закріпити отримані знання на практиці.
Література
М.С.Львов, О.В.Співаковський. Основи алгоритмізації та програмування. Навчальний посібник – Херсон, 1997. – 122с.
Львов М.С., Співаковський О.В. Вступ до обєктно-орієнтованого програмування.–Херсон:ХДПУ.-240 с.
Фаронов В.В. Delphi 6.Учебний курс.-М.:Издатель Молгачева С.В.,-672с.,ил.
Т.Бадд.. Объектно-ориентированное программирование в действии / пер. с англ. - СПб.:Питер, 1997.- 464 с. ил.
http://www.programmersclub.ru/book/ - електронні підручники по Delphi
http://pitbooks.ru/delphi/ - електронні підручники по Delphi
Завдання для виконання
Завдання 1. Створити програму - програвач файлів мультимедіа. Для початку багатовіконність буде реалізовано за допомогою стандартних діалогів.
1. Створити на диску папку (наприклад C: \ MyDelphi \ MyMPlayer), в якій буде створено проект, скопіювати в цю папку кілька музичних файлів і кліпів. Для демонстрації повноцінної роботи програвача знадобляться мультимедійні файли wav, mid, wma, mp3, avi, які можна знайти у відповідних папках.
відеофайли: C: \ Program Files \ Borland \ Delphi5 \ Demos \ Coolstuf \
аудіофайли: C: \ Windows \ Media \
C: \ Program Files \ Microsoft Office \ Office10 \ Media \
C: \ Мої документи \ Мої музичні записи \
2. Створити просту програму програвання аудіо файлів. Для цього помістити на форму кнопку, медіапрогравач, діалог завантаження.
Н
алаштувати
фільтр діалогу
на файли
мультимедіа, відповідно
заповнивши таблицю.
Прибрати непотрібні
нам кнопки
програвача,
відключивши
їх в
Інспекторі Об'єктів (VisibleButtons).
У обробнику
натиснення
на кнопку
описати
завантаження файлу.
OpenDialog - діалог завантаження
Основна властивість - FileName: string, основний метод - Execute.
При виклику з програми методу Execute відбувається виведення на екран діалогу. Параметри виводу визначаються властивостями компонента: Title, Options, Filter і ін Якщо користувач вибере файл для відкриття і натисне "Відкрити", то у властивість FileName компонента буде записано ім'я цього файлу у форматі string, а результатом методу Execute буде значення true. Інакше, якщо користувач натисне в діалозі кнопку "Скасувати", результат Execute буде false, тобто Execute є булевоюї функцією.
MediaPlayer - медіапрогравач.
Основна властивість - FileName: string, основні методи - Play, Pause, Stop. Після того як у властивість FileName поміщено ім'я файлу мультимедіа, цей файл потрібно відкрити з допомогою методу Open (якщо встановлено властивість AutoOpen, то відкриття відбувається автоматично, але це не завжди добре, оскільки, якщо FileName не задано або задано невірно, то при автовідкритті відбудеться помилка).
Коли файл відкритий, він може бути відтворений. Це можна зробити за допомогою кнопок самого компонента, або викликавши метод Play. Те ж стосується зупинки і паузи - методів Stop і Pause. Для налаштування зовнішнього вигляду компоненту використовується безліч властивостей, наприклад, можна приховати частину кнопок, налаштовуючи властивість VisibleButtons. 4. У обробнику натиснення на Button1 викликається метод діалогу Execute, і якщо він видає результат true (користувач вибрав файл і натиснув "Відкрити"), то медіапрогравачу передається ім'я цього файлу і файл відкривається. Тепер користувач може відтворити його, натиснувши кнопки програвача.
procedure TForm1.Button1Click (Sender: TObject); begin if OpenDialog1.Execute then begin MediaPlayer1.FileName: = OpenDialog1.FileName; MediaPlayer1.Open; end; end;
5. При запуску програми користувач бачить кнопку і програвач. Програвач не є активним, оскільки файл, який він повинен відтворювати, не відкрито.
При натисканні на кнопку активізується діалог. Параметри діалогу відповідають значенням властивостей, заданих попередньо в Інспекторі Об'єктів. Приміром, обраний фільтр звукових файлів приховує всі файли з відмінним розширенням. Після вибору в музичній папці файлу при натисканні кнопки "Відкрити" програвач став доступним. Файл відкритий, і можна відтворити його.
Якщо необхідно відтворити відеофайл, то при запуску автоматично буде створено окреме вікно, в якому відобразиться зображення.
6.Програвач готовий. Збережіть проект та протестуйте його.
7. Створіть для програвача картинку-фон, наприклад:
8.Збережіть її у файлі, наприклад, Фон.bmp
9.Встановіть у програвач у якості фону.
