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;