Длительность трека через Bass.dll

[DIgorevich]

Всем привет!
Получаю длительность трека, через Bass.dll вот такой функцией:

Function dlit(const fail:string): string;
var
  s:string;
  mCc: DWORD;
begin
  mCc := BASS_StreamCreateFile(false, pointer(fail), 0, 0, 0 );
  s:= qbass_formattime(qbass_gettime(mCc),false);
  mCc:=0;
  bass_streamfree(mcc);
  result:=s;
end;

Но она что-то оставляет в памяти, т.к. при большом кол-ве треков, программа при проходе этой функцией жрет о-очень много оперативки. Помогите, пожалуйста, разобраться в чем дело.

[Дворник]

так а там же есть

Bass_...Lenght(Channel) - это сразу выдает длину трека в сек.
и есть
Bass_...Position(Channel) - это постепенно, по мере проигрывания трека. Только разумееться через Timer.
Т.е. к примеру возьмешь Gauge допустим, и сначало приравняшь Gauge.Max = Bass_...Length(Channel)
а затем в Timer
Gauge.Position = Bass_Position(Channel). И будет у тебя строка загрузки постепенно наростать до 100%.

p.s. извеняюсь что не столь точно Bass_..., просто не помню уже =)

[DIgorevich]

Не нашел я там такого простого способа. К тому же, мне надо пройтись по очень большому списку. Не проигрывать же для этого каждый раз файл....

[ZuBy]

function QBass_GetTime(const Channel: DWORD): DWORD; stdcall;
var
  pPos: Cardinal;
  AllTime: Cardinal;
begin
  result := 0;
  pPos := BASS_ChannelGetLength(Channel, BASS_POS_BYTE);
  if (pPos > 0) then
  begin
   Alltime := Trunc(BASS_ChannelBytes2Seconds(Channel, pPos));
   Result := Alltime;
  end;
end;

вот так получай длину трека

var
  mch: dword;
  lng: dword;
begin
  mch := BASS_StreamCreateFile(false, pointer(fname), 0, 0, 0 );
try
  lng := qbass_gettime(mch);
  // тут преобразовывай время в строку
finally
  bass_streamfree(mch);
  mch := 0;
end;
end;

если чуть ошибся исправишь, писал на форуме

[DIgorevich]

Сообщение от ZuBy

вот так получай длину трека

если чуть ошибся исправишь, писал на форуме

Спасибо, дорогой! Оказывается всё дело было в этих двух строках:

  bass_streamfree(mch);
  mch := 0;

поменял их местами и память освобождалась...