Delphi. Трюки и эффекты - Валерий Борисок

Процедуру создания корректного формата времени мы разобрали. Теперь необходимо выяснить, как можно узнать время, которое прошло с момента начала воспроизведения файла. Для этого обратимся к свойствам компонента MediaPlayer, а именно к Length (длина загруженного файла) и Position (текущая позиция в нем). Зная позицию, можно при помощи ранее рассмотренной функции FileLangToStr найти время воспроизведения (листинг 5.7).

Листинг 5.7.

Процедура вывода или обновления индикаторов

procedure TSoundPlayerForm.UpdateViewTime;

var

//Длина файла и позиция в файле

leng, posit: longint;

begin

//Находим длину воспроизводимого файла

leng := mdpSoundPlayer.Length;

//Находим позицию в воспроизводимом файле

posit := mdpSoundPlayer.Position;

//Преобразуем время в строку

lbMainTime.Caption := FileLangToStr(posit);

//Устанавливаем имя файла

lbFileName.Caption := mdpSoundPlayer.FileName;

end;

Как можно заметить из листинга 5.7, после получения позиции в файле и его имени данные о времени воспроизведения и путь к файлу попадают на индикаторы lbMainTime и lbFileName соответственно.

Открытие и загрузка файла в мультимедийный компонент происходит при выполнении кода из листинга 5.8. Кроме того, обработчик вызывает известную нам процедуру UpdateViewTime и включает таймер (tmTimer. Enabled:= true).

Листинг 5.8.

Открытие файла

procedure TSoundPlayerForm.bnOpenFileClick(Sender: TObject);

begin

if opdOpenDialog.Execute=true then

begin

//Открываем файл

mdpSoundPlayer.FileName := opdOpenDialog.FileName;

mdpSoundPlayer.Open;

//Устанавливаем значения в индикаторах

UpdateViewTime;

//Включаем таймер

tmTimer.Enabled := true;

end;

end;

Процедура обработки срабатывания таймера заключается в вызове функции обновления значений индикаторов (UpdateViewTime) (листинги 5.9 и 5.10).

Листинг 5.9.

Событие таймера

procedure TSoundPlayerForm.tmTimerTimer(Sender: TObject);

begin

//Обновление значений экрана

UpdateViewTime;

end;

Листинг 5.10.

Обработчик активизации формы

procedure TSoundPlayerForm.FormActivate(Sender: TObject);

begin

//Временное выключение таймера

tmTimer.Enabled := false;

//Задание значений

lbMainTime.Caption := '00:00

lbFileName.Caption := 'no file…

// Установка фильтров для диалога

opdOpenDialog.Filter :=

'MP3 music (*.mp3)|*.MP3|Wav files (*.wav)|*.WAV

end;

Перемотка осуществляется при помощи двух кнопок. Для перемотки вперед на десять секунд необходимо нажать», назад – «(листинги 5.11 и 5.12).

Листинг 5.11.

Перемотка вперед

procedure TSoundPlayerForm.bnNextStClick(Sender: TObject);

begin

if mpCanPlay in mdpSoundPlayer.Capabilities then

begin

if (mdpSoundPlayer.Position+perem)<=mdpSoundPlayer.Length then

mdpSoundPlayer.Position := mdpSoundPlayer.Position + perem

else

mdpSoundPlayer.Position := mdpSoundPlayer.Length;

mdpSoundPlayer.Play;

end;

end;

Листинг 5.12.

Перемотка назад

procedure TSoundPlayerForm.bnPrevStClick(Sender: TObject);

begin

if mpCanPlay in mdpSoundPlayer.Capabilities then

begin

if mdpSoundPlayer.Position>=perem then

mdpSoundPlayer.Position := mdpSoundPlayer.Position – perem

else

mdpSoundPlayer.Position := 0;

mdpSoundPlayer.Play;

end;

end;

Таким образом, разработанный проигрыватель располагает набором минимальных функций и возможностей. Но он обладает важным преимуществом, а именно простотой реализации. Как вы могли заметить, созданная программа может проигрывать и МРЗ-файлы. Это становится возможным благодаря использованию специального программного обеспечения – кодеков, установленных в операционной системе. Современная и достаточно распространенная операционная система Windows ХР содержит такие кодеки в комплекте базовой поставки. При использовании созданного проигрывателя в других операционных системах типа Windows, вероятно, понадобится самостоятельная установка кодеков.

На этом этапе принцип построения проигрывателя звуковых записей вам известен. Что касается просмотра видеозаписей, то благодаря универсальности компонента MediaPLayer он схож с воспроизведением звуковых файлов.

5.5. Видеопроигрыватель

Не менее интересной задачей, рассмотренной в рамках этой главы, является разработка проигрывателя видеофайлов. Форматов видео присутствует достаточно большое количество, но самым распространенным из них, несомненно, является AVI. Учитывая этот факт, разработаем проигрыватель видеофайлов в AVI-фор-мате.

Учитывая то, что среда Delphi предоставляет высокоуровневый доступ к мультимедийным возможностям компьютера, сам принцип построения проигрывателя не меняется. Как и в случае со звуковым проигрывателем, будет использоваться знакомый вам ранее компонент MediaPLayer. Особенностью воспроизведения видео является только вывод изображения на экран в дополнение к звуковому сопровождению. Таким образом, необходимо определить, какие именно компоненты могу т служить в качестве контейнеров для воспроизведения в них видеопотока.

Приступим к созданию проигрывателя видео (рис. 5.4). Как и в случае звукового проигрывателя, нам понадобятся: компонент MediaPLayer, диалог для открытия файлов OpenDiaLog, компонент-контейнер для вывода изображения (используем GroupBox). Настраиваем форму приложения. Убираем кнопку максимизации, в данном случае она является лишней: присваиваем свойству biMaximaze, которое находится на вкладке Borderlcons, значение False. Устанавливаем BorderStyle равным bsSingle. Это не позволит пользователю изменять размеры формы. Для удобства использования проигрыватель появляется в центре экрана, следовательно, свойство Position устанавливаем KaKpoScreenCenter. В компоненте MediaPLayer оставляем видимыми только кнопки начала, паузы и остановки воспроизведения (аналогичным образом, как в проигрывателе звука). Помещаем на форму компонент GroupBox, свойство Caption устанавливаем пустой строкой, так как именно в этот компонент будет выводиться изображение.

Рис. 5.4. Вид видеопроигрывателя

Рассмотрим некоторые особенности созданного видеопроигрывателя. В качестве элемента-контейнера для динамического изображения использовался компонент GroupBox, поэтому его необходимо было назначить элементом вывода видео для MediaPLayer. Этот процесс сводится к присваиванию свойству Display компонента MediaPLayer экземпляра компонента GroupBox. Происходит это во время активизации формы (листинг 5.13).

Листинг 5.13.

Назначение элемента вывода изображения

procedure TFormVideoPlayer.FormActivate(Sender: TObject);

begin

//Устанавливаем область воспроизведения

mpVideoPlayer.Display := gbViewVideo;

end;

В предложенном фрагменте текста программы переменная gbViewVideo является экземпляром компонента GroupBox.

В качестве доказательства простоты, удобства и гибкости использования компонента MediaPLayer приведем весь исходный текст приложения (листинг 5.14).

Листинг 5.14.

Видеопроигрыватель

unit video_player;

interface

uses

//Подключаемые модули

Windows, Messages, SysUtils, Variants, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls, MPlayer;

Type

//Главная форма приложения

TFormVideoPlayer = class(TForm)

mpVideoPlayer: TMediaPlayer;

FileOpenDlg: TOpenDialog;

gbViewVideo: TGroupBox;

bnOpenFile: TButton;

//Нажатие кнопки открытия файла

procedure bnOpenFileClick(Sender: TObject);

//Активизация формы

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormVideoPlayer: TFormVideoPlayer;

implementation

{$R *.dfm}

procedure TFormVideoPlayer.bnOpenFileClick(Sender: TObject);

begin

if FileOpenDlg.Execute = True then

begin

//Загружаем файл, выбранный в диалоге открытия файла

mpVideoPlayer.FileName := FileOpenDlg.FileName;

//Активизируем проигрыватель

mpVideoPlayer.Open;

end;

end;

procedure TFormVideoPlayer.FormActivate(Sender: TObject);

begin

//Устанавливаем область воспроизведения

mpVideoPlayer.Display := gbViewVideo;

end;

end.

Из предложенного фрагмента видно, что, обладая минимальным объемом исходного текста, видеопроигрыватель может выполнять все необходимые базовые функции.

Глава 6 Использование Windows GDI

• Графические объекты

• Аппаратно-независимыи графический вывод

• Контекст устройства

• Графические режимы

• Работа со шрифтами

• Рисование примитивов

• Работа с текстом

• Работа с растровыми изображениями

• Альфа-смешивание

Операционная система Windows с самого начала создавалась прежде всего как графическая оболочка. И как следствие, в ней осуществляется графическое представление информации. Вполне естественным является то, что почти любое приложение использует экран для отображения данных, с которыми оно работает. По крайней мере, сама операционная система отображает на экране визуальные элементы приложений. Windows обеспечивает универсальность представления информации как на экране, так и на других устройствах вывода, например, на принтере. Стоит отметить, что для этого используются одни и те же примитивы отображения. Система самостоятельно определяет целевое устройство и активизирует соответствующий ему модуль. ОС Windows является многозадачной и предъявляет к приложениям ряд основных требований, исключающих конфликты при использовании функций вывода. Однако это вовсе не означает, что Windows обеспечивает приложения только набором функций вывода на экран или печать – система полностью управляет всем выводом. Наверное, более правильно будет сказать, что приложения используют в качестве первичного вывода окно, а не непосредственно экран. Каждое устройство вывода в Windows характеризуется набором текущих параметров, с использованием которых происходит собственно вывод. Причем в каждый конкретный момент времени только одному приложению соответствует некоторое устройство вывода, что исключает одновременный доступ к последнему, изменение параметров одним приложением перед началом процесса вывода другим.