№24 Мультимедиа

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

Мультимедиа

План работы:

1. Проект “Просмотр видеоклипов”

Разработать проект, который позволяет просматривать выбранные пользователем видеофайлы. На этапе разработки форма должна иметь следующий вид:

1. Создайте новый проект в Delphi и сохраните его в отдельной папке “Просмотр видеоклипов”;

2. Разместите на форме компоненты OpenDialog, Panel, который необходим для отображения видеофайлов, и MediaPlayer. Компонент MediaPlayer является универсальным проигрывателем аудио- и видео- информации. Измените следующие свойства этого компонента:

• Укажите место показа видеофайла, выбрав в свойстве Display значение Panel1;

• В данном проекте управление видеофайлами будем осуществлять с помощью методов MediaPlayer, а не с помощью кнопок этого компонента, поэтому сделайте MediaPlayer невидимым с помощью свойства Visible;

3. Разместите на форме кнопку “Начало просмотра” и обработайте событие OnClick для этой кнопки так, чтобы на панели осуществлялся просмотр файла, выбранного пользователем в диалоговом окне открытия файла:

if OpenDialog1.Execute then

begin

MediaPlayer1.FileName := OpenDialog1.FileName;

MediaPlayer1.Open;

{определяем область показа видеофайла (прямоугольник)}

MediaPlayer1.DisplayRect:=Rect(10,10,Panel1.Width-10,

Panel1.Height-10);

MediaPlayer1.Play;

end;

4. Проверьте работу проекта.

2. Проект “Клипы Windows”

Разработать проект, показывающий все стандартные клипы Windows. На этапе разработки форма должна иметь следующий вид:

На этапе выполнения форма должна иметь следующий вид:

1. Создайте новый проект в Delphi и сохраните его в отдельной папке “Клипы Windows”;

2. Разместите на форме кнопку “Просмотр”, начинающую воспроизводить файл, и кнопку “Стоп”, останавливающую воспроизведение клипа;

3. Разместите на форме со страницы Win32 палитры компонентов компонент Animate, который воспроизводит стандартные клипы Windows и файлы *.avi – клипы без звукового сопровождения. Измените следующие свойства этого компонента:

• Установите свойство Visible в состояние false. Это необходимо для того, чтобы изображение возникало только тогда, когда произойдет соответствующее событие, в данном случае – нажатие на кнопку “Просмотр”;

• Свойство Active в false. Это необходимо для того, чтобы проигрывание видеоклипа начиналось только тогда, когда произойдет соответствующее событие;

• Свойство AutoSize в false, которое обозначает, что размеры Animate не будут автоматически адаптироваться к размерам видеоклипа;

• Center = true, чтобы изображение всегда появлялось в центре экрана;

• Ознакомьтесь со свойством CommonAVI, позволяющем воспроизводить стандартные клипы Windows;

4. Опишите в модуле глобальную переменную numklip, которая будет являться счетчиком номеров клипов;

5. Обработайте событие OnClick кнопки “Просмотр” так, чтобы компонент Animate визуализировался и активизировался, счетчик номера клипа принимал значение 1 и в качестве клипа для проигрывания выбирался первый из списка свойства CommonAvi;

6. Обработайте событие OnClick для кнопки “Стоп” следующим образом:

• Порядковый номер просматриваемого клипа каждый раз при нажатии на эту кнопку увеличивается на 1;

• В зависимости от значения порядкового номера клипа воспроизводить второй, …, восьмой клип из списка;

• Активизировать компонент Animate каждый раз, если порядковый номер просматриваемого клипа не превышает возможное количество клипов. В противном случае (все клипы закончились) компонент Animate сделать невидимым;

7. Проверьте работу проекта.