Порядок выполнения 1 часть
Постановка задачи
Разработать приложение, позволяющее воспроизводить звуковые файлы различных форматов, приложение должно выводить информацию о длине звукового файла, времени воспроизведения и времени, которое осталось до конца звучания файла.
1. Создать новый проект.
2. Для формы установить следующие значения свойств:
Borderlcons / biMaximize False
BorderStyle bsSingle
Caption Позолоченный граммофон
Color СlGray
Position poScreenCenter
3. Установить на форму компонент MediaPlayer (System), для свойства Visible установите значение False.
4. Установитm на форме следующие компоненты: шесть кнопок, четыре метки, таймер, компонент для открытия файлов/
Примечание:
в Label1 (самый большой индикатор) будет показываться текущая позиция в файле.
в Label2 (справа сверху) должно отображаться имя открытого файла
в Label3 (справа в середине) - длина открытого файла
в Label4 - сколько осталось времени до конца файла.
5. Для всех меток установить значение свойства AutoSize = False
6. Привести форму в соответствие с образцом.
7. Для всех кнопок установить значение свойства Cursor crHandPoint
8. Самостоятельно изменить интерфейс проекта (цвет, шрифты) и сохранить.
9. Для инициализации объектов для Form выберите событие OnActivate и введите код
label1.Font.Color := clGreen; Label2.Font.Color := clGreen;
LabeL3.Font.Color := clGreen; Label4.Font.Color := clGreen;
Label1.Caption := '00:00'; Label2.Caption := 'no file...';
LabeL3.Caption := '00:00'; LabeL4.Caption := '00:00';
//задание фильтра для OpenDialog
OpenDialog1.Filter := 'Wav files (*.wav)|*.WAV';
10. Определите процедуру, которая выполняется при открытии звукового файла(кнопкаOPEN)
If OpenDialog1.Execute=true Then
Begin
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open; // открываем файл
Label1.Font.Color := clLime; // включаем индикаторы
Label2.Font.Color := clLime;
LabeL3.Font.Color := clLime;
Label4.Font.Color := clLime;
Output; // присваиваем индикаторам значения
Timer1.Enabled:=True;
11. Создать новую функцию MusicToStr и процедуру Output, которая преобразует длину файла, текущую позицию или количество оставшегося до конца звучания времени в форму, легкую для восприятия.
Function TForm1.MusicToStr(n: longint): string;