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  


 

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

83475. Правонаступництво України в зв’язку з розпадом СРСР 39.9 KB
  Правонаступництво України щодо Союзу PCP регулюється комплексом домовленостей з питань правонаступництва що були досягнуті між країнами які увійшли після розпаду СРСР у Співдружність Незалежних Держав серед них: Меморандум про взаємопорозуміння з питань правонаступництва щодо договорів колишнього Союзу PCP що становлять взаємний інтерес 1992 p. Україна є правонаступницею прав і обов’язків СРСР які не суперечать Конституції України. було закріплено що кожна держава СНД має право підтвердити чинність для себе міжнародних договорів СРСР.
83476. Поняття і види територій в міжнародному праві 35.51 KB
  За правовим режимом територія поділяється на три основні види: 1 державна територія; 2 міжнародна територія; 3 територія із змішаним режимом. Державна територія це частина простору земної кулі що знаходиться під суверенітетом держави яка здійснює відносно неї і в її межах своє територіальне верховенство. Територія із змішаним режимом територія на якій одночасно діють норми міжнародного та національного права. До територій зі змішаним режимом також відноситься державна територія міжнародного користування що включає міжнародні річки...
83477. Демілітаризовані і нейтралізовані території 36.41 KB
  Демілітаризована територія - це територія, відносно якої держава прийняли міжнародне зобовязання скоротити або взагалі не розташовувати в її межах військові укріплення і споруди, певні види озброєнь збройних сил. Такі території створюються на основі міжнародних угод з метою забезпечення міжнародної безпеки.
83478. Поняття та склад державної території 35.77 KB
  До складу державної території входять: сухопутна територія поверхня суші включаючи острови; водна територія акваторія що включає внутрішні води і територіальне море; земні надра; повітряний простір розташований над вищевказаними просторами. До внутрішніх вод відносяться: води портів; води заток бухт лиманів ширина входу в які не перевищує 24 морські милі; води заток бухт лиманів і проток ширина входу в які перевищує 24 морські милі але які історично належать даній державі; води річок озер і інших водоймищ що...
83479. Способи придбання території 37.79 KB
  Способи придбання державної території поділяються на первини і похідні. Сьогодні до первинних способів придбання державної території відноситься прирощення території який полягає у встановленні державою суверенітету над утворюваними новими ділянками суші поява яких повязана як з природними процесами наприклад землетрусом так і з діяльністю людини спрямованою на збільшення території держави наприклад намивання нових ділянок території в морі. Похідні способи полягають у переході території однієї держав до складу території іншої як на...
83480. Державні кордони 38.17 KB
  Міжнародне право зобовязує утримуватися від будьяких посягань на кордони інших держав від будьяких вимог або дій спрямованих на захоплення частини або всієї території будьякої держави. Кордони можуть змінюватися відповідно до міжнародного права мирним шляхом. Відомі також випадки коли традиційні кордони визнаються без договірного оформлення спираючись на норми звичаєвого права.
83481. Міжнародні річки 38.03 KB
  Міжнародні річки річки що протікають по території декількох держав або розділяють території декількох держав. Розрізняють власне міжнародні річки судноплавні річки що мають вихід до моря і використовуються для цілей інтенсивного торгового судноплавства; трансграничні багатонаціональні річки ті що протікають по території декількох держав і що не мають виходу до моря вони або несудноплавні або судноплавство по них носить місцевий характер; та прикордонні річки що розділяють території держав. Більш того прибережні держави спільно...
83482. Правовий режим Антарктики. Система договору про Антарктику 37.85 KB
  З метою визначення міжнародноправового режиму Антарктики 1 грудня 1959 р. Для сприяння реалізації цілей і принципів Договору створен; Консультативна рада що надає свої рекомендації національним урядам та готує проекти конвенцій щодо ресурсів Антарктики. Конвенція про збереження морських живих ресурсів Антарктики 1980 р.
83483. Режим Антарктики. Секторальний принцип розподілу арктичних просторів 38.21 KB
  Природні ресурси військовостратегічна безпека міжнародні сполучення ось причини уваги яка приділяється режиму Арктики. Правовий режим Арктики встановлюється міжнародним правом а також законами приарктичних держав. Простори Арктики історично поділені між Росією Канадою США Данією та Норвегією на п\'ять секторів.