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

Процедура Stop прерывает воспроизведение видеоклипа и устанавливает свойству Active значение False. Процедура Reset, кроме того, дополнительно сбрасывает свойства StartFrame и StopFrame, устанавливая значения по умолчанию.

В качестве примера, наглядно отражающего работу компонента Animate, рассмотрим приложение для просмотра стандартной анимации операционной системы Windows.

Стандартный видеоклип можно просмотреть, нажав кнопку Просмотр, предварительно выбрав анимацию в группе независимых переключателей. Клип воспроизводится непрерывное количество раз с первого до последнего кадра. Чтобы прервать воспроизведение, необходимо нажать кнопку Стоп. Окно приложения приведено на рис. 5.2.

Рис. 5.2. Приложение для просмотра стандартной анимации

Рассмотрим исходный текст приложения подробно. Для работы программы необходим набор констант, значения которых может принимать свойство CommonAVI. Поэтому в начале программы объявляем константный массив Typeof AVI типа ТCommonAVI, который и будет содержать необходимые значения:

...

const TypeofAVI: array[0..8] of TCommonAVI =

(aviNone, aviCopyFile, aviCopyFiles,

aviDeleteFile, aviEmptyRecycle,

aviFindComputer, aviFindFile,

aviFindFolder, aviRecycleFile);

При создании главного окна приложения устанавливаем положение переключателя в группе выбора анимации:

...

procedure TFormViewAnim.FormCreate(Sender: TObject);

begin

//Стандартная анимация «Копирование файла»

RadioGroupSelectAnimEffects.ItemIndex := 1;

end;

Создаем обработчик выбора группы независимых переключателей. При выборе анимации первым делом устанавливается доступность кнопок управления. Далее задается вид воспроизводимого ролика (например, Копирование файлов). В блоке if происходит проверка индекса выбранной анимации, и если она не выбрана (индекс равен 0), то блокируется кнопка Просмотр, так как в этом случае просмотр стандартной анимации невозможен (листинг 5.5).

...

Листинг 5.5. Обработчик выбора анимационных роликов

//Выбор стандартной анимации

procedure TFormViewAnim.RadioGroupSelectAnimEffectsClick(Sender:

TObject);

begin

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

bnStopView.Enabled := False;

bnStartView.Enabled := True;

//Устанавливаем значение свойства CommonAVI

StandartAnimate.CommonAVI :=

TypeofAVI[RadioGroupSelectAnimEffects.ItemIndex];

//Если анимация не выбрана, делаем недоступной

//кнопку старта показа

if RadioGroupSelectAnimEffects.ItemIndex = 0

then bnStartView.Enabled := False

else bnStopView.Enabled := True;

end;

Значения индексов (RadioGroupSelectAnimEf f ects. Itemlndex) переключателей соответствуют порядковым номерам в массиве Typeof AVI, который содержит возможные значения свойства CommonAVI.

При нажатии кнопки начала показа происходит вызов метода Play компонента Animate и устанавливается доступность кнопок управления показом:

...

//Старт показа

procedure TFormViewAnim.bnStartViewClick(Sender: TObject);

begin

//Начинаем показ выбранной анимации

StandartAnimate.Play(1, StandartAnimate.FrameCount, 0);

bnStartView.Enabled := False;

bnStopView.Enabled := True;

end;

Обработчик кнопки Стоп основан на вызове метода Stop компонента Animate и выглядит следующим образом:

...

procedure TFormViewAnim.bnStopViewClick(Sender: TObject);

begin

//Остановка показа анимации

StandartAnimate.Stop;

bnStartView.Enabled := True;

bnStopView.Enabled := False;

end;

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

Компонент Animate обеспечивает воспроизведение только простых AVI-файлов. С той же целью можно использовать компонент MediaPlayer, который с функциональной точки зрения значительно сложнее и обеспечивает много других мультимедийных возможностей.

5.4. Разработка звукового проигрывателя

Обладая достаточно большим багажом знаний о мультимедийных компонентах Delphi, мы вплотную подошли к созданию программы-проигрывателя. В рамках этой книги разработка многофункционального сложного проигрывателя не предусматривается, но создание легко реализуемого приложения с набором необходимых функций будет рассмотрено. Таким образом, приступим к проектированию проигрывателя. Для начала определим набор необходимых функций. В качестве базовых возможностей любого проигрывателя как видео-, так и аудиофайлов выделяют: непосредственно воспроизведение выбранного файла, возможность кратковременной остановки и возобновления воспроизведения (функция паузы), остановки, перемещение позиции воспроизведения (перемотка). Необходимыми также являются показ времени проигрывания и имя воспроизводимого файла. Как известно, компонент MediaPLayer поддерживает почти все эти функции, за исключением двух последних. Следовательно, MediaPLayer практически идеально подходит на роль основного элемента разрабатываемого проигрывателя.

Итак, создаем новый проект приложения. Соответствующим образом настраиваем свойства формы программы. Убираем кнопку максимизации, в данном случае она является лишней: устанавливаем значение False свойству biMaximaze, которое находится на вкладке Borderlcons. Устанавливаем BorderStyle равным bsSingle. Это не позволит пользователю изменять размеры формы. Для удобства использования проигрыватель появляется в центре экрана, следовательно, свойство Position устанавливаем как poScreenCenter. Настраиваем цвета, в рассматриваемом случае Color равно clInactiveCaptionText.

Для отображения текстовой динамической информации удобным является использование компонента Label или меток. Время, позиция указателя воспроизведения в файле буд ут выводиться в специальный индикатор. Индикатор (в нашем случае lbMainTime типа TLabel) будет отображать текущее время проигрывания. Создаваемый проигрыватель должен обладать неплохим и удобным интерфейсом, поэтому настраиваем индикатор следующим образом: цвет фона Color устанавливаем как clSkyBlue, цвет и размер шрифта индикатора – clMenuHighlight и 28 соответственно. Другой индикатор (надпись с именем воспроизводимого файла) будет иметь свойства, установленные по умолчанию.

Управление воспроизведением будет осуществляться частично при помощи кнопок проигрывателя. Функции перемотки будут реализованы в обработчиках двух других дополнительных кнопок. Поэтому скрываем все кнопки компонента MediaPLayer, кроме кнопок воспроизведения, паузы и остановки. Делаем это при помощи присвоения свойству VisibleButtons массива значений [btPlay,btPause,btStop]. Кнопки управления перемоткой будут выглядеть стандартно. Нам также необходима кнопка открытия файла для выбора файла воспроизведения. Помещаем на форму стандартную кнопку и оставляем ее настройки по умолчанию.

Далее максимально эргономично размещаем на форме вышеперечисленные компоненты и можем переходить от создания дизайна к реализации функциональных возможностей. Для корректной работы индикатора времени его необходимо периодически обновлять. Для достижения этой цели нам понадобится таймер. Среда Delphi содержит компонент, который выполняет функции таймера Timer (вкладка System). На форму приложения также помещаем стандартный диалог открытия файлов. Находится этот компонент на вкладке Dialogs. Один из вариантов размещения компонентов интерфейса выглядит, как показано на рис. 5.3.

Рис. 5.3. Интерфейс проигрывателя

Начнем рассмотрение исходного текста приложения. В программе присутствует секция констант с единственной константой, необходимой для задания расстояния (положения указателя воспроизведения в файле), на которое будет осуществляться перемотка. В данном случае перемотка будет осуществляться на 10 секунд:

...

const

//Константа для перемотки на 10 000 миллисекунд

perem=10000;

Далее необходимо создать функцию, которая преобразует численные значения времени (миллисекунды) в более удобный для вывода строковый вариант с указанием минут и секунд (листинг 5.6).

...

Листинг 5.6.

Функция преобразования времени

function TSoundPlayerForm.FileLangToStr(leng: longint): string;

var

//Переменная результирующей строки

strTime: string;

sec: longint;

min: longint;

begin

//Получаем секунды и минуты из миллисекунд (leng)

sec := trunc(leng/1000);

min := trunc(sec/60);

sec := sec – min*60;

strTime := IntToStr(min);

//Если секунд меньше десяти, то преобразуем результирущую

//строку (участок минут), добавляя '0' спереди

if sec < 10 then strTime := strTime + ':0' + IntToStr(sec)

else strTime := strTime + ':' + IntToStr(sec);

FileLangToStr := strTime;

end;

Находим количество секунд, затем минут, преобразуем эти данные в строковый вид (для вывода на индикатор времени). Если после нахождения количества минут секунд оказалось меньше десяти, то добавляем 0 в результирующую строку. К примеру, мы получили, что композиция занимает три минуты и пять секунд. В этом случае строка должна выглядеть как 3:05, а не 3:5.