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

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

windows media player

sd ©   (2003-05-09 12:54:00) 

работа с windows media player надо выводить полное и текущее время воспроизведения файла на TLABEL компоненту в формате {00:00:00}.
Нужен код.

---

sd   (2003-05-11 16:28:00) [1]

это не то. Нужен код для вывода времени от WMP 2 OCX файла.

---

reticon   (2003-05-09 22:58:00) [2]

Общее время воспроизведения (сек):

...

Time:=MediaPlayer.Length;
Label:=mci_msf_Second(Time);

...

Текущее время:

procedure TForm1.ShowCurrentTime;
begin
m := mci_Tmsf_Minute(MediaPlayer1.Position); // минуты
s := mci_Tmsf_Second(MediaPlayer1.Position); // секунды
Label1.Caption := Format("%dm %ds";, [m, s]);
Gauge1.Progress := (60 * m) + s; //обновление индикатора
end;

mci_hms_Hour() -> возвращает часы

не забудь uses MMSystem

---

Наверх