Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

time [D6, Win95/98]

indigo © (2002-05-19 22:23:00)
мастера как в label вывести сколько времени песня идет и сколько она длится (mp3)

fore_3 (2002-05-20 21:29:00) [1]
time - это и есть label
time.caption - это есть label.caption
в каком событии? ну у меня допустим это в таймере...
удачи

indigo (2002-05-20 21:20:00) [2]
ну а где это все писать(в каком событии) и где вывод в label если не трудно обьясни плиз и что такое time.caption

fore_3 (2002-05-20 21:02:00) [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 20:58:00) [4]
ты знаешь я в дельфи новенький и с библиотеками дела не имел а свой проигрыватель сделать охота а что в mmsystem.dll надо делать не подозреваю

fore_3 (2002-05-20 20:54:00) [5]
Смотри mmsystem.dll, Mcisendcommand(...) делает все что нужно.

Наверх

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