Hi
here an short example (The return Value is in ms)
function PlayLength(Channel:HStream) int64;
begin
result := 0;
if Channel = 0 then
exit;
Result := round(1000 * BASS_ChannelBytes2Seconds(channel,BASS_ChannelGetLength(Channel)) / (BASS_FX_TempoGetRateRatio(Channel)));
end;
Chris