Trackbar/Zeit

[Die Muhkuh]

Zitat von Nils_13:

Hi,

Luckie hat mal etwas von:

Delphi-Quellcode:

var TrackPos, hFileStream: integer;
begin
TrackPos := BASS_ChannelGetPosition(hFileStream);

Wie könnte ich das in der Trackbar verwenden?

Wenn du jetzt noch die gesamte Länge des Stream herausbekommst dann gehts ganz einfach:

Delphi-Quellcode:

procedure {Öffnen oder so};
begin
  TrackBar1.Max := BASS_StreamLength(aStream); // Ich weiß nicht obs das gibt. Aber eine Function zum herausfinden der gesamten länge wirds ja geben
end;

// Danach Timer auf die Form und ins OnTimer event:

procedure {OnTimerEvent};
var
  TrackPas, hFileStream: Integer;
begin
  TrackPos := BASS_ChannelGetPosition(hFileStream);
  TrackBar1.Position := TrackPos;
end;