Показать сообщение отдельно
  #43  
Старый 28.01.2012, 01:47
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Узнать текущую позицию BASS_ChannelGetPosition.
Код:
var
  Time : DWORD;
begin
...
  Time := Trunc(BASS_ChannelBytes2Seconds(Channel, BASS_ChannelGetLength(Channel, BASS_POS_BYTE) - BASS_ChannelGetPosition(Channel, BASS_POS_BYTE)));
...
end;
в Time остаток до конца. 
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием