| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TMediaPlayer [D7, Win95/98, WinXP]

Steef ©   (2004-05-30 15:08:00) 

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

---

gyry   (2004-05-30 15:41:00) [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);

---

Наверх