[angvelem]

Код:

var
  TimeAll,
  TimeCur : DWORD;
  Len     : QWORD;
...
  Len     := BASS_ChannelGetPosition(Channel, BASS_POS_BYTE);
  TimeCur := Trunc(BASS_ChannelBytes2Seconds(Channel, Len));
  TimeAll := Trunc(BASS_ChannelBytes2Seconds(Channel, BASS_ChannelGetLength(Channel, BASS_POS_BYTE)));

TimeCur - Сколько проиграно
TimeAll - Вся длина

Два архива с NetRadio (Delphi, ASM), когда-то переделывал из С для Ian Luck-а.