|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Помогите в освоении TMediaplayer
Как реализовать перемотку при воспроизведении медиафайла при помощи TTrackbar?
Отображение текущей позиции с его помощью я сделал, но когда патаюсь реализовать рперемотку, то ни фига не работает. Вот мой код: Код:
procedure TForm1.Timer1Timer; begin with MediaPlayer1 do if FileName<>'' then TrackBar1.Position:=Round(200*Position/Length); end; procedure TForm1.TrackBar1Change(Sender: TObject); begin //with MediaPlayer1 do // if FileName<>'' then // Position:=Round(TrackBar1.Position*Length/200); end; Последний раз редактировалось Admin, 25.05.2009 в 21:43. |
#2
|
||||
|
||||
И ещё вопрос: хочу реализовать отображение времени в минутах и секундах при помощи TLabel, образец кода взял из статьи "Как при проигрывании музыки с Audio CD показывать сколько прошло минут и секунд". Вроде всё правильно, но таймер какую-то фигню показывает.
Код:
procedure TForm1.Timer2Timer(Sender: TObject); var Min, Sec: word; begin with MediaPlayer1 do if FileName<>'' then begin Min:=MCI_TMSF_MINUTE(MediaPlayer1.Position); Sec:=MCI_TMSF_SECOND(MediaPlayer1.Position); Label3.Caption:=Format('%.2d:%.2d',[Min,Sec]); end; Последний раз редактировалось Admin, 25.05.2009 в 21:44. |