Bass: Trackbarlänge wird nicht korrekt verändert

[Nils_13]

Hi,

ich benutze die Bass.dll. Wenn ich ein Lied lade, setze ich die Länge der Trackbar auf die Liedlänge. Fast immer enden diese Lieder vor der Länge der Trackbar, obwohl ich die Länge richtig eingestellt habe. Deshalb bleibt der Thumb auch stehen. Warum ?

[faux]

Wie wärs mit etwas Code?

[Nils_13]

Delphi-Quellcode:

  //...
  tb1.Position := 0;
  tb1.Max := GetSongLength;
//...

  var
    Chan          : HSTREAM;

  TPlayerModus  = (moSamples, moMusik,  moStream);

  function TfrmMain.GetSongLength: Integer;
  begin
    Result := 0;

    Case Modus of
      moSamples: Result := round(BASS_ChannelBytes2Seconds(Chan,
                 BASS_ChannelGetLength(chan)));
    end;
  end;

[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

[Nils_13]

Ok, es muss noch durch 1000 geteilt werden. Danke.