ПРАКТИЧЕСКАЯ РАБОТА № 9
Часть
Begin
Var
Begin
Var
s: string; //рабочая переменная для формирования удобочитаемых значений индикаторов
min, sec: Longint;
//получаем секунды и минуты из миллисекунд
sec := trunc(n/1000);
min := trunc(sec/60);
sec := sec - min*60;
s := IntToStr(min);
// добавляем в строку 0, если секунд больше десяти // чтобы получилось 2:06, а не значение 2:6;
If sec<10 Then
s := s + ':0' + IntToStr(sec)
Else
s := s + ':' + IntToStr(sec);
MusicToStr := s;
End;
procedure TForml.Output; //вывод значений на индикаторы
leng, posit, remain: longint; // длина файла, позиция в файле и оставшееся время
//читаем свойства проигрывателя
leng := MediaPlayer1.Length;
posit := MediaPlayer1.Position;
remain := leng - posit;
Label1.Caption := MusicToStr(posit);
Label2.Caption := MediaPlayer1.FileName;
Label3.Caption := MusicToStr(leng);
Label4.Caption := MusicToStr(remain);
End;
12. Объявить созданные процедуру и функцию:
Function MusicToStr(n: longint): string;
Procedure Output;
13. Определите процедуру, которая выполняет проигрывание звукового файла(кнопка PLAY):
If mpCanPlay in MediaPlayer1.Capabilities Then MediaPlayer1.Play;
13. Для кнопок STOP и PAUSE ввести соответствующий код:
If mpCanPlay in MediaPlayer1.Capabilities Then
Begin
MediaPlayer1.Stop;
MediaPlayer1.Position := 0;
End;
If mpCanPlay in MediaPlayer1.Capabilities Then MediaPlayer1.Pause;
14. Ввести код для кнопок перемотки вперед и назад:
//кнопка перемотки вперед
If mpCanPlay in MediaPlayer1.Capabilities Then
Begin
If (MediaPlayer1.Position+10000)<=MediaPlayer1.Length Then
MediaPlayer1.Position := MediaPlayer1.Position + 10000
Else
MediaPlayer1.Position := MediaPlayer1.Length;
MediaPlayer1.Play;
End;
//кнопка перемотки назад
Begin
If mpCanPlay in MediaPlayer1.Capabilities Then
Begin
If MediaPlayer1.Position>=10000 then
MediaPlayer1.Position := MediaPlayer1.Position -10000
Else
MediaPlayer1.Position := 0;
MediaPlayer1 .Play;
End;
13. Для объекта таймер установить значения свойства Interval= 1000, Enabled = False, выберить событие OnTimer и ввести вызов процедуры OutPut.
14. Добавить в конец процедуры Button1Click строку Timerl.Enabled:=True;
15. Проверить работу приложения.
16. Самостоятельно модернизировать приложение для воспроизведения звуковых файлов различных форматов.
17. Проект сохранить. Результат показать преподавателю.
1. Создать новый проект.
2. На форме установить компоненты: одну кнопку (для открытия файлов), один компонент MediaPlayer, одну рамку GroupBox (Standard), один диалог для открытия файлов
3. Всем объектам изменить свойств в соответствии с таблицей:
компонент | свойство | значение |
Forml | BorderIcons/biMaximize bibiMaximize | False |
BorderStyle | bsSingle | |
Caption | Телевизор «СОНЯ» | |
Height | ||
Width | ||
Button 1 | Caption | Открыть |
Left | ||
Top | ||
MediaPlayer1 | Left | |
Top | ||
GroupBox | Caption | |
Height | ||
Width | ||
Left | ||
Top |
4. Сравните свою форму с образцом
5. Для кнопки Открыть ввести код:
If OpenDialog1.Execute=true then
begin
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPIayer1.Open;
end;
6. Для формы выберите событие OnActivate и ввести код:
//назначаем область просмотра для видеофайла
MediaPlayer1.Display := GroupBox1;
7. Проверьте работу приложения
ТемаГрафические возможности Delphi
Цель работы:Получить навыки вывода графики на форму.