Bass: Trackbarlänge wird nicht korrekt verändert

[Mazel]

Hi,

ich mache folgendes:

Delphi-Quellcode:

function TForm1.GetBASSInfo(Info: String): Int64;
var
  MilliSec: Integer;
  FloatPos: Float;

begin
  FloatPos:=0;
  If Info = 'GetLength' then FloatPos:=BASS_ChannelBytes2Seconds(BassChannel, BASS_ChannelGetLength(BassChannel))
  Else If Info = 'GetPosition' then FloatPos:=BASS_ChannelBytes2Seconds(BassChannel, BASS_ChannelGetPosition(BassChannel));
  MilliSec:=Trunc(1000 * FloatPos);
  If MilliSec < 0 then MilliSec:=0;
  Result:=MilliSec;
end;

 TrackBar.Max:=GetBASSInfo('GetLength');

Dann sollte es eigentlich gehen.

Gruß
Mazel