23371

Создание мультимедийных приложений

Лабораторная работа

Информатика, кибернетика и программирование

В настоящей лабораторной работе будет показано как создать простейшие приложения для прослушивания звуковых файлов и просмотра анимации с помощью компонента MediaPlayer. Компонент MediaPlayer Компонент MediaPlayer расположен на странице System Палитры Компонентов. Общий вид компонента MediaPlayer представлен на рис. Вид MediaPlayer на форме Ниже в таблице 16.

Русский

2013-08-04

115 KB

16 чел.

Лабораторная работа 16

Создание мультимедийных приложений.

Большинство современных программ, работающих в среде Windows, являются мультимедийными. Такие программы обеспечивают просмотр видеороликов и мультипликации, воспроизведение музыки, речи, звуковых эффектов. Типичными примерами мультимедийных программ являются игры и обучающие программы.

В настоящей лабораторной работе будет показано, как создать простейшие приложения для прослушивания звуковых файлов и просмотра анимации с помощью компонента MediaPlayer. Для выбора файлов воспользуемся специальными компонентами со страницы Win3.1.

Компонент MediaPlayer

Компонент MediaPlayer расположен на странице System Палитры Компонентов. Работа с ним имеет смысл, если на Вашем компьютере установлена звуковая карта и динамики (наушники). При наличии достаточно мощной видеокарты возможно работать с файлами, хранящими видеоизображение. Общий вид компонента MediaPlayer представлен на рис. 16.1.

Рис.16 .1. Вид MediaPlayer на форме

Ниже в таблице 16.1 приведено назначение кнопок компонента MediaPlayer, подобных тем, которые можно видеть на обычном аудио или видеоплеере.                                                                                   Таблица 16.1                                   

Кнопка

Значение

Действие

Воспроизведение

btPlay

Воспроизведение звука или видео

Пауза

btPause

Приостановка воспроизведения

Стоп

btStop

Остановка воспроизведения

Следующий

btNext

Переход к следующему кадру (видео)

Предыдущий

btPrev

Переход к предыдущему кадру (видео)

Вперед (шаг)

btStep

Переход к следующему звуковому фрагменту, например, к следую-щей песне на CD

Назад

btBack

Переход к предыдущему звуко-вому фрагменту, например, к предыдующей песне на CD

Запись

btRecord

Запись

Открыть/Закрыть

btEject

Открытие или закрытие дисковода CD-ROM компьютера

В таблице 16.2 представлены специфические свойства компонента MediaPlayer, доступные в Инспекторе Объектов.

                                                                                            Таблица 16.2.

Свойство

Значение

AutoEnable

Определяет, будет ли компонент MediaPlayer автоматически разрешать и запрещать отдельные кнопки.

AutoOpen

Признак автоматического открытия мульти-медиа-устройства сразу после запуска прило-жения.

AutoRewind

Задает автоматическую перемотку мультиме-диа-устройства перед воспроизве-дением или записью.

ColoredButtons

Множество цветных кнопок.

DeviceType

Тип мультимедиа-устройства, которое предс-тавляет собой компонент MediaPlayer: dtWaveAudio – проигрывание звука,

dtAVIVideо – видеопроигрыватель,

dtCDAudio – проигрывание компакт–дисков,

dtAutoSelect – автоопределение устройства.

Display

Определяет компонент, на поверхности которого воспроизводится видеоролик (обычно Panel). Если ничего не указано – воспроизве-дение происходит в отдельном окне.

EnableButtons

Множество разрешённых кнопок.

FileName

Имя файла для воспроизведения (звуковой или видео файл).

Shareable

Определяет, могут ли несколько приложений разделять одно мультимедиа-устройство.

VisibleButtons

Множество видимых кнопок (позволяет сделать невидимыми неиспользуемые кнопки).

Visible

Видимость компонента MediaPlayer на форме.

Задание 1. Создание приложения для проигрывания звуковых

                   файлов.

Выполните следующие действия:

  •  откройте новый проект;
  •  форме дайте название “Работа с медиаплеером”;
  •  поместите на форму компонент MediaPlayer и задайте его размеры по желанию;
  •  свойству DeviceType задайте значение dtWaveAudio – проигрыва-ние звука;
  •  для того, чтобы иметь возможность запускать проигрывание файла автоматически сразу после запуска приложения, необходимо установить свойству AutoOpen значение True;
  •  имя файла-носителя аудио/видео информации определяется свойством  FileName, в котором задаётся путь к нужному файлу. Задайте имя музыкального файла, нажав на кнопку  в поле свойства FileName. В качестве аудиоматериала можно воспользоваться звуковыми файлами Windows, находящимися в С:/Windows/Media/*.wav.
  •  нажмите F9. Delphi откомпилирует и запустит приложение на выполнение.

Примечания. 1. MediaPlayer может быть настроен на проиг-рывание AVI, MIDI u WAVE файлов. AVI-файлы (Audio Video Interleave) могут содержать как звуковую, так и видео информацию одновременно. Некоторые виды аудио/видео файлов без дополнительной настройки драйверов не воспроизводятся (например: *.mp3 и *.mpj).

2. Наличие у компонента MediaPlayer свойства Visible позволяет скрыть компонент на форме, при этом звук будет воспроизводиться как бы без его участия.

Еще одно важное свойство компонента MediaPlayerDisplay, определяющее куда будет выводиться видеоизображение. Изначально оно не заполнено и видео воспроизводится в отдельном окошке. Однако, в качестве экрана для показа видеоролика в границах самой формы можно использовать, например, компонент Panel.

Задание 2. Создание приложения для просмотра видеороликов. Усовершенствуем приложение из предыдущего задания, для чего проделайте следующее:

  •  измените для компонента MediaPlayer значение свойства DeviceType на dtAutoSelect, чтобы он мог автоматически определять тип файла. Таким образом он станет универсальным устройством для проигрывания как аудио, так и видео файлов;  
  •  поместите на форму со страницы Win3.1 Палитры Компонентов следующие компоненты:

   FileListBox – список выбора файлов текущего каталога;

   DirectoryListBox – список выбора каталогов текущего диска;

   DriveComboBox –выпадающий список выбора текущего диска;

   FilterComboBox – выпадающий список задания фильтров для файлов;

Примечание. Размещение компонентов на форме производите в соответствии с рис. 16.2.

Рис. 16.2. Расположение компонентов на форме приложения «Универсальный проигрыватель».

  •  в свойствах FileList для компонентов DirectoryListBox1 и FilterComboBox1 установите значение FileListBox1;
  •  в свойстве DirList для компонента DriveComboBox1 установите значение DirectoryListBox1;
  •  в свойстве Filter для компонента FilterComboBox1 укажите требуемые расширения файлов:

                                       AVI File(*.avi)|*.avi

                                      WAVE File(*.wav)|*.wav

                                       MIDI file(*.MID)|*.mid

  •  пусть по двойному щелчку мышкой на компоненте FileListBox1 выбранный файл будет автоматически воспроизводиться. Для этого в обработчике события OnDblClick для  FileListBox1 задайте следующий код:

рrocedure Form1.FileListBox1DblClick(Sender:TObject);

begin

 with MediaPlayer1 do

 begin

   Close;                                                          // Закрытие файла

   FileName:=FileListBox1.FileName;    // Имя выбранного 

                                                                            // файла

   Open;                                                    // Открытие файла

   Play;                                                      // Воспроизведение

 end;

end;

Примечание. Здесь используются методы Open (открытие) и Close (закрытие) аудио/видео файла, а также метод Play (Воспроизведение) применительно к компоненту MediaPlayer.

  •  сохраните проект в отдельной папке. Запустите приложение, выберите нужный файл и дважды щелкните по нему мышкой. MediaPlayer должен воспроизвести этот файл в отдельном окне.

Примечание. В качестве видеоматериала можно воспользоваться рекламными видеороликами, входящими в стандартную поставку Delphi. Это файлы cool.avi u speedis.avi, которые можно найти в С:/Program Files/Borland/Delphi*/Demos/Coolstuf.

Как уже говорилось выше, видеоролик можно воспроизводить и внутри формы, например, на панели. Давайте несколько модифицируем проект:

  •  добавьте на форму компонент Panel (см. рис.16.2). Нужно убрать надпись с панели (Caption) и свойству BevelOuter для неё задать значение bvNone;
  •  в свойстве Display для MediaPlayer укажите Panel1;
  •  чтобы иметь возможность переключаться при воспроизведении с окна на панель – поместите компонент СheckBox на форму и задайте его свойству Caption значение «Подключение панели»;
  •  в обработчике события OnClick для СheckBox’а запишите следующий код:

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’е, меняя место вывода видеоизображения (панель или отдельное окно);
  •  во время выполнения программы может потребоваться отобразить текущее состояние объекта MediaPlayer и самого видеоролика (время, прошедшее с начала воспроизведения, длину видеоролика). Добавьте в проект прогресс-индикатор (Gauge) со страницы Samples, который отобразит в процентах, сколько прошло времени (рис. 16.3).

Рис. 16.3. Окончательный вид приложения

«Универсальный проигрыватель».

  •  для обновления показаний индикатора можно воспользоваться таймером. Поместите на форму компонент Timer и установите для него свойство Interval = 100 (100 миллисекунд). В обработчике события OnTimer нужно записать:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

 with MediaPlayer1 do

   if FileName<>'' then

   Gauge1.Progress:=Round(100*Position/Length);  //Здесь Position–

                                              // номер текущего кадра, Lengh – всего кадров

                                              // (длина видеоролика)

end;

  •  запустите проект, выберите файл (AVI) и щелкните на нем два раза мышкой. При воспроизведении видеоролика прогресс-индикатор должен отображать процент, соответствующий прошедшему времени;
  •  запустите видеофайл несколько раз. Опробуйте работу всех кнопок;

Примечание. Обратите внимание, что не все кнопки ком-понента MediaPlayer востребованы после запуска проекта. Кнопки, которые не используются можно удалить, установив необходимые значения в составном свойстве VisibleButtons.

 

  •  поэкспериментируйте с видимостью кнопок, используя свойство VisibleButtons;
  •  сохраните окончательный вариант проекта. Покажите результаты Вашей работы преподавателю.

Задания для самостоятельной работы.

Переделайте это приложение таким образом, чтобы выбор файла осуществлялся с помощью компонента OpenDialog со страницы Dialogs.

Вопросы

  1.  Какие требования предъявляются к оборудованию компьютера, если нужно работать со звуковыми файлами? Видео файлами?
  2.  Какими компонентами нужно воспользоваться, какие их свойства и как требуется настроить, чтобы во время работы приложения звучал один и тот же звуковой фрагмент?
  3.  Какие компоненты можно использовать в приложении для отображения текущего состояния видеоролика?
  4.  При помощи каких компонентов можно организовать выбор аудио/видео файла для воспроизведения?

Резюме

Компонент MediaPlayer - универсальный проигрыватель, который выглядит как панель с кнопками. Позволяет воспроизводить и записывать аудио- и видеоинформацию; служит для создания систем мультимедиа.

  1.  Для работы с компонентом MediaPlayer необходимо наличие муль-тимедийного оборудования компьютера: звуковая карта, достаточно мощная видеокарта, динамики (наушники).
  2.  Свойство DeviceType позволяет задать для чего будет использован компонент MediaPlayer: для проигрывания аудио или видео файлов. Значение DeviceType=dtAutoSelect заставит MediaPlayer автомати-чески распознавать типы файлов, т. е. сделает это устройство уни-версальным.
  3.  Имя файла-носителя аудио/видео информации для компонента  MediaPlayer определяется свойством FileName.
  4.  Для того, чтобы иметь возможность воспроизводить файл автоматически, сразу после запуска приложения необходимо установить свойству AutoOpen компонента  MediaPlayer значение True.
  5.  В качестве места вывода изображения можно выбрать панель на самой форме или отдельное окно (по умолчанию). Выбор этого места задаётся в свойстве Display.
  6.  Свойство VisibleButtons позволяет назначить компоненту MediaPlayer только используемые кнопки, а остальные убрать.
  7.  При проигрывании звуковых файлов можно совсем убрать MediaPlayer из окна приложения, назначив его свойству Visible значение False, имея возможность сопровождать работу приложения звуковыми эффектами, как бы без его участия.

Компонент Gauge (прогресс-индикатор) со страницы Samples совместно с компонентом Timer можно использовать в приложении для отображения текущего состояния видеоролика (время, прошедшее с начала воспроизведения). Для этой же цели можно воспользоваться компонентом ProgressBar со страницы Win32.

Для выбора аудио/видео файла для воспроизведения можно воспользоваться следующими компонентами со страницы Win3.1 Палитры Компонентов:

FileListBox – список выбора файлов текущего каталога,

DirectoryListBox – список выбора каталогов текущего диска,

DriveComboBox – выпадающий список выбора текущего диска,

FilterComboBox – выпадающий список задания фильтров для файлов;

Для этих же целей можно воспользоваться и компонентом OpenDialog со страницы Dialogs Палитры Компонентов.

7

PAGE  7

Лабораторная работа 16


EMBED PBrush  


 

А также другие работы, которые могут Вас заинтересовать

55185. Створення документів зі списками та схемами 856.5 KB
  Директор з маркетингу: група планування та маркетингу; група логістики; відділ маркетингу; відділ продажів. Комерційний директор: відділ приймання; відділ закупівель; обліковоопераційний відділ; відділ сертифікації; обліковий відділ; склад. Виконавчий директор: відділ кадрів; IT-служба.
55186. Створення документів в Word, в якому текст розміщується в декілька колонок з використанням вставки кадру 68 KB
  Мета: Формувати уміння та навички набору тексту в декілька колонок вставки у текст кадру і робота з ним. Постановка загальної проблеми: Як за допомогою текстового редактора Word створювати тексти...
55187. Організація роботи з табличним процесором Microsoft Excel для Windows 342.5 KB
  Робоча область вікна Excel становить таблицю поділену на окремі клітини. Для проведення розрахунків необхідно ввести в таблицю формули. Створити таблицю та провести необхідні розрахунки.
55189. Характеристика видів словесного впливу у професійно-педагогічному спілкуванні 67.5 KB
  Проаналізуйте основні способи і прийоми вияву нещирості дезінформації і маніпуляцій з боку як соціальних педагогів так і клієнтів у ситуаціях професійного спілкування.
55190. Методика підготовки та проведення діагностичної бесіди 107.5 KB
  Прийоми техніки: складання обмірковування плану бесіди інтервю Встановлення контакту контакт очей; привітання; знайомство; визначення дистанції імя; розмова про спільні інтереси приємне цікаве; “такâ€реакція; тон привітний...
55191. Методика підготовки та проведення гри 71.5 KB
  МЕТА: Сформувати уявлення щодо методики підготовки та проведення гри. З’ясуйте соціальне і психолого-педагогічне значення гри. Класифікуйте ігри за ознакою мети за місцем проведення за кількістю учасників за конкурсністю тощо.
55192. КОММУНИКАЦИОННАЯ ПОЛИТИКА ТУРИСТСКОГО ПРЕДПРИЯТИЯ 738.12 KB
  Сущность и элементы маркетинговых коммуникаций. Особенности рекламы в сфере туризма. Стимулирование сбыта. Личная продажа и прямой маркетинг.