Валерий Борисок - Delphi. Трюки и эффекты
- Название:Delphi. Трюки и эффекты
- Автор:
- Жанр:
- Издательство:неизвестно
- Год:неизвестен
- ISBN:нет данных
- Рейтинг:
- Избранное:Добавить в избранное
-
Отзывы:
-
Ваша оценка:
Валерий Борисок - Delphi. Трюки и эффекты краткое содержание
«Delphi. Трюки и эффекты», как и все издания данной серии, адресована тем, кто хочет научиться делать с помощью уже знакомых программных пакетов новые, интересные вещи. В первой части книги многое говорится о среде разработки Delphi (самых последних версий) и программировании на языке Object Pascal. Благодаря этому издание подходит и новичкам, и начинающим программистам. Вторая (основная) часть книги описывает удивительные возможности, скрытые в языке, и на примерах учит читателя программистским фокусам – от «мышек-невидимок» и «непослушных окон» до воспроизведения МРЗ и управления офисными программами Word и Excel из приложений Delphi. Купив эту книгу, вы пройдете непростой путь к вершинам программистского мастерства весело и интересно.
Delphi. Трюки и эффекты - читать онлайн бесплатно ознакомительный отрывок
Интервал:
Закладка:
Управление воспроизведением будет осуществляться частично при помощи кнопок проигрывателя. Функции перемотки будут реализованы в обработчиках двух других дополнительных кнопок. Поэтому скрываем все кнопки компонента 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).
Листинг 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, вероятно, понадобится самостоятельная установка кодеков.
Читать дальшеИнтервал:
Закладка:
