Delphi. Трюки и эффекты

Для отображения текстовой динамической информации удобным является использование компонента 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.

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

...