Bass.dll: реализовать режим моно-стерео, скорость воспроизведения и т.д

var
  Time : Single;
  Freq : Single;
  info  : BASS_CHANNELINFO;
begin
  // Alas, BASS does not support floating bitrate (VBR)
  // частота, к примеру 22050
  BASS_ChannelGetAttribute(Channel, BASS_ATTRIB_FREQ, Freq);
  Time := BASS_ChannelBytes2Seconds(Channel, BASS_ChannelGetLength(Channel, BASS_POS_BYTE));
  // kbps, к примеру 32
  BitsPerSecond := Trunc(BASS_StreamGetFilePosition(Channel, BASS_FILEPOS_END) / (Time * 125) + 0.5);
...
  BASS_ChannelGetInfo(Channel, info);
  isStereo := info.chans > 1;
...
end;

function BassFileSize(sFilename: string): cardinal; 
var
 sFile: TFileStream;
begin
 sFile := TFileStream.Create(sFilename, fmOpenRead or fmShareDenyNone);
 try
   result := sFile.Size;
 finally
   sFile.free;
 end;
end;

const // разделитель строки времени
   b_time_rz = ':';
function SecondsToTime(sec: double): String;
var
  M, S, H: INTEGER;
begin
  S := Round(Sec);
  M:= Round(INT(S / 60));
  S := S - M * 60; //Seconds
  H := Round(INT(M / 60)); //Hours
  M := M - H * 60; //Minutes
  if H=0 then result:='' else result:=inttostr(H)+b_time_rz;
  if M<10 then result:=result+'0';
  result:=result+inttostr(M)+b_time_rz;
  if S<10 then result:=result+'0';
  result:=result+inttostr(S);
end;

function Channels(stream: cardinal): integer;
Var CHANINFO : BASS_CHANNELINFO;
begin
  result:=0;
  BASS_ChannelGetInfo(stream, CHANINFO);
  result:=round(CHANINFO.chans);
end;

function kbps(stream: cardinal): integer;
begin
  result:=0;
    result:=trunc((
      BASS_StreamGetFilePosition(stream, BASS_FILEPOS_END)/
      (125*BASS_ChannelBytes2Seconds(stream, BASS_ChannelGetLength(stream,BASS_POS_BYTE)))
    )+0.5); // bitrate (Kbps)
end;

function kHz(stream: cardinal): integer;
Var CHANINFO : BASS_CHANNELINFO;
begin
    result:=0;
  BASS_ChannelGetInfo(stream, CHANINFO);
  result := round(CHANINFO.freq);
end;

function SecondsLength(stream: cardinal): double;
begin
  result:=0;
    result:=BASS_ChannelBytes2Seconds(
    stream,
    BASS_ChannelGetLength( stream, BASS_POS_BYTE )
  );
end;

function ReadSecond(stream: cardinal): double;
begin
  result:=0;
  result:=BASS_ChannelBytes2Seconds(stream,
    BASS_ChannelGetPosition(stream,BASS_POS_BYTE)
  );
end;

procedure SetSecond(stream: cardinal; const Value: double);
begin
  BASS_ChannelSetPosition(
    stream,
    BASS_ChannelSeconds2Bytes(stream,Value),
    BASS_POS_BYTE
  );
end;

var
  Time   : DWORD;
  TimeSt : AnsiString;
  Len    : QWORD;
begin
  // общее время звучания
  Time := DWORD(Trunc(BASS_ChannelBytes2Seconds(Channel, BASS_ChannelGetLength(Channel, BASS_POS_BYTE))));
  TimeSt := Format(' (%.d:%.2d)', [Time div 60, Time mod 60]);
  // текущее или осталось
  if TimeSign then
    Len := BASS_ChannelGetPosition(Channel, BASS_POS_BYTE)
  else
    Len := BASS_ChannelGetLength(Channel, BASS_POS_BYTE) - BASS_ChannelGetPosition(Channel, BASS_POS_BYTE);
  Time := Trunc(BASS_ChannelBytes2Seconds(Channel, Len));
  TimeSt := Format(' (%.d:%.2d)', [Time div 60, Time mod 60]);
...
end;

const // ðàçäåëèòåëü ñòðîêè âðåìåíè
   b_time_rz = ':';
function SecondsToTime(sec: double): String;
var
  m, s: INTEGER;
begin
  s:=round(sec);
  m:=s div 60;
  if m<60 then result := Format('%.2d'+b_time_rz+'%.2d', [m, s mod 60])
  else result := Format('%.d'+b_time_rz+'%.2d'+b_time_rz+'%.2d', [m div 60, m mod 60, s mod 60]);
end;