Скачать: CL | DM;

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

← →
indigo   (2002-05-19 22:23) [0]

мастера как в label вывести сколько времени песня идет и сколько она длится (mp3)

---

← →
fore_3   (2002-05-20 20:54) [1]

Смотри mmsystem.dll, Mcisendcommand(...) делает все что нужно.

---

← →
indigo   (2002-05-20 20:58) [2]

ты знаешь я в дельфи новенький и с библиотеками дела не имел а свой проигрыватель сделать охота а что в mmsystem.dll надо делать не подозреваю

---

← →
fore_3   (2002-05-20 21:02) [3]

А так понятнее? Толькр в uses укажи: Uses ....., mmsystem;


//считываем текущее состояние трека
MciStatusParams.dwItem:=MCI_STATUS_POSITION;
mciSendCommand(Id,MCI_STATUS,MCI_STATUS_item,longint(@MciStatusParams));
cur_pos:=MciStatusParams.dwreturn;
//выводим мм:сс
temp:=round(cur_pos/1000) mod 60;
if temp<10 then str:="0" else str:="";
time.Caption:=str+inttostr(temp);
temp:=round(cur_pos/1000) div 60;
if temp<10 then str:="0" else str:="";
time.Caption:=str+inttostr(temp)+":"+time.Caption;
//определяем длину трека
MCIStatusParams.dwItem := mci_Status_Length;
mciSendCommand(Id,MCI_STATUS,mci_Status_Item,longint(@MciStatusParams));
cur_track_len:=MCIStatusParams.dwreturn;
if whatdo=_none then
if cur_track_len=0 then _pos.left:=0
else _pos.left:=round((225-_pos.Width)*(cur_pos/cur_track_len));
if cur_track_len=cur_pos then nextClick(Sender);

---

← →
indigo   (2002-05-20 21:20) [4]

ну а где это все писать(в каком событии) и где вывод в label если не трудно обьясни плиз и что такое time.caption

---

← →
fore_3   (2002-05-20 21:29) [5]

time - это и есть label
time.caption - это есть label.caption
в каком событии? ну у меня допустим это в таймере...
удачи

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.038 c