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

1 Мультимедиа-возможности Delphi

2 Большинство современных программ, работающих в среде Windows, являются мультимедийными. Такие программы обеспечивают просмотр видеороликов и мультипликации, воспроизведение музыки, речи, ззвуковых эффектов. Типичными примерами мультимедийных программ являются игры и обучающие программы. Delphi предоставляет в распоряжение программиста два компонента, которые позволяют разрабатывать мультимедийные программы: Animate обеспечивает вывод простой анимации (подобной той, которую видит пользователь во время копирования файлов); MediaPlayer позволяет решать более сложные задачи, например, воспроизводить видеоролики, ззвук, сопровождаемую ззвуком анимацию

3 Компонент Animate Компонент Animate позволяет также программисту использовать в своих программах стандартные анимации Windows. Вид анимации определяется значением свойства СommonAVI. Значение свойства задается при помощи именованной константы. В табл. приведены некоторые значения констант, вид анимации и описание процесса, для иллюстрации которого используется эти анимации.

4 Таблица Значений свойства comonAVi определяет стандартные анимации Windows Значение АнимацияПроцесс aviCopyFiles Копирование файлов AviDeleteFile Удаление файла aviRecycleFile Удаление файла в корзину

5 Компонент MediaPlayer Компонент MediaPlayer, значок которого находится на вкладке System, позволяет воспроизводить видеоролики, ззвук и сопровождаемую ззвуком анимацию.

6 Компонент MediaPlayer В результате добавления к форме компонента MediaPlayer на форме появляется группа кнопок, подобных тем, которые можно видеть на обычном аудио- или видеоплеере.

7 Кнопки компонента MediaPlayer Кнопка ОбозначениеДействие ВоспроизведениеbtPlay Воспроизведение ззвука или видео ПаузаbtPause Приостановка воспроизведения СтопbtStop Остановка воспроизведения СледующийbtNext Переход к следующему кадру ПредыдущийbtPrev Переход к предыдущему кадру ШагbtStep Переход к следующему ззвуковому фрагменту, например, к следующей песне на CD НазадbtBack Переход к предыдущему ззвуковому фрагменту, например, к предыдущей песне на CD ЗаписьbtRecord Запись Открыть/ЗакрытьbtEject Открытие или закрытие CD-дисковода компьютера

8 Свойства компонента MediaPiayer Свойство Описание Name DeviceType FileName AutoOpen Display VisibleButtons Имя компонента. Используется для доступа к свойствам компонента и управлением работой плеера Тип устройства. Определяет конкретное устройство, которое представляет собой компонент MediaPiayer. Тип устройства задается именованной константой: dtAutoSelect тип устройства определяется автоматически; dtVaweAudio проигрыватель ззвука; dtAVivideo видеопроигрыватель; dtCDAudio CD-проигрыватель Имя файла, в котором находится воспроизводимый ззвуковой фрагмент или видеоролик Признак автоматического открытия сразу после запуска программы, файла видеоролика или ззвукового фрагмента Определяет компонент, на поверхности которого воспроизводится видеоролик (обычно в качестве экрана для отображения видео используют компонент Panel) Составное свойство. Определяет видимые кнопки компонента. Позволяет сделать невидимыми некоторые кнопки

9 Воспроизведение ззвука Ззвуковые фрагменты находятся в файлах с расширением WAV. Например, в каталоге C:\Winnt\Media можно найти файлы со стандартными ззвуками Windows.

10 Пример программы с воспроизведением ззвука Компонент Значение DeviceTypeDtAutoSelect FileNameC:\Winnt\Media\3 звук Microsoft.wav AutoOpenTrue VisibleButtons. btNextFalse VisibleButtons.btPrevFalse VisibleButtons. btStepFalse VisibleButtons. btBackFalse VisibleButtons. btRecordFalse VisibleButtons.btEjectFalse

11 Программные коды для воспроизведения ззвука Form1.MediaPlayer1.Open; Form1.MediaPlayer1.Play;

12 Просмотр видеороликов и анимации Помимо воспроизведения ззвука, компонент MediaPiayer позволяет просматривать видеоролики и мультипликации, представленные как AVI-файлы (AVI это сокращение от Audio Video Interleave, что переводится как чередование ззвука и видео, т. е. AVI- файл содержит как ззвуковую, так и видеоинформацию). Процесс использования компонента MediaPiaer для просмотра содержимого AVI-файла рассмотрим на примере программы, которая в результате щелчка на командной кнопке воспроизводит на поверхности формы простую сопровождаемую ззвуковым эффектом мультипликацию вращающееся по часовой стрелке слово Delphi (файл delphi.avi).

13 Вид диалогового окна программы

14 Значения свойств компонента MediaPlayer1 Свойство Значение NameMediaPlayer1 FileNamedelphi.avi DeviceTypedtAVIVideo AutoOpenTrue DisplayPanel1 VisibleFalse

15 Компонент Panel1 Создается форма приложения обычным образом. Компонент Panel1 используется в качестве экрана, на который осуществляется вывод анимации, и его имя принимается в качестве значения свойства Display компонента MediaPlayeri. Поэтому сначала к форме лучше добавить компонент Panel и затем MediaPlayer. Такой порядок создания формы позволяет установить значение свойства Display путем выбора из списка. Размер области вывода анимации на панели определяется не значениями свойств width и Height панели (хотя их значения должны быть как минимум такими же, как ширина и высота анимации). Размер области определяется значением свойства DisplayRect компонента MediaPlayer. Свойство DisplayRect ВО время разработки программы недоступно (его значение не выводится в окне Object Inspector). Поэтому значение свойства DisplayRect устанавливается во время работы программы в результате выполнения инструкции MediaPlayer1.DisplayReet:=Rect(0,0,60,60). Чтобы получить информацию о размере кадров AVI-файла, надо, используя возможности Windows, открыть папку, в которой находится этот файл, щелкнуть правой кнопкой мыши на имени файла, выбрать команду Свойства и в появившемся диалоговом окне вкладку Сводка, в которой выводится подробная информация о файле, в том числе и размер кадров.

16 Программный код воспроизведения видео procedure TForm1.ButtonlClick(Sender: TObject); begin MediaPlayer1.Play; // воспроизведение анимации end; procedure TForm1.FormCreate(Sender: TObject); begin // зададим размер области вывода анимации // на поверхности формы MediaPlayer1.DisplayRect:=Rect(0,0,60,60); end; Процесс воспроизведения анимации активизируется применением метода Play, что эквивалентно нажатию кнопки Play в случае, если кнопки компонента MediaPlayer доступны пользователю.