Текущий архив: 2004.08.15;
Скачать: CL | DM;

Вниз

TMediaPlayer   Найти похожие ветки 

← →
Steef   (2004-05-30 15:08) [0]

Как показать при воспроизведении фильма или клипа сколько времени прошло и их длину (час:мин:сек).

---

← →
gyry   (2004-05-30 15:41) [1]

var position, Xb, Sek: integer; Hod: Byte;  

 MediaPlayer1.TimeFormat:=tfMilliseconds;
 position := round(MediaPlayer1.Position/1000);
 Xb := position div 60;
 Sek := position mod 60; // сек
 Hod := Xb div 60;      // час
 Xb := Xb mod 60;       // мин
 Time1.Caption := FormatFloat ("00:", Hod) +
 FormatFloat("00:", Xb) +
 FormatFloat("00", Sek);

---

Страницы: 1 вся ветка

Текущий архив: 2004.08.15;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.041 c