Показать сообщение отдельно
  #3  
Старый 18.10.2012, 20:08
Dmitry_DM Dmitry_DM вне форума
Активный
 
Регистрация: 07.08.2012
Сообщения: 258
Версия Delphi: Delphi 7
Репутация: 11
По умолчанию

Цитата:
Сообщение от sariman
Здравствуйте форумчане! Как реализовать оставшееся время воспроизведения в формате "-00:00:00" ?
Заранее спасибо.
Могу предложить свой пример. Правда там весь плеер. Но там есть именно то, что вам нужно. Вот часть кода:
Код:
//время проигрывания трека
//считаваем сколько секунд прошло от начала воспроизведения
TrackPos:=BASS_ChannelBytes2Seconds(Channel,BASS_ChannelGetPosition(Channel,0));
//считываем всю длину песню в секундах
TrackLen:=BASS_ChannelBytes2Seconds(Channel,BASS_ChannelGetLength(Channel,0));
//переводим секунды в часы
ValPos:=TrackPos / (24 * 3600);
ValLen:=TrackLen / (24 * 3600);
//Выводим данные о времени на форму в Label1 и Label2
Label1.Caption:=FormatDateTime('hh:mm:ss',ValPos);
Label2.Caption:=FormatDateTime('hh:mm:ss',ValLen);
А внизу весь плеер.
Надеюсь, вам поможет!
Вложения
Тип файла: rar mp3player.rar (313.5 Кбайт, 21 просмотров)
Ответить с цитированием