Wie funzt die Anbindung eines ProgressBars an Bass?

pascalsv · Verfasst: Mo 14.08.06 14:16

Hallo zusammen,

ich verwende bass für meinen Player und möchte mit einem ProgressBar nicht nur den aktuellen Verlauf des Titels sehen sondern auch die Position wählen können. Dazu habe ich zwei Prozeduren, die aber leider nicht das richtige für mich tun, d.h. bei Verändern des ProgressBars fängt der Titel bei 0 an.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TfMain.ProgressBarChange(Sender: TObject);
begin
  BASS_ChannelPause(Stream);
  BASS_ChannelSetPosition(Stream, ProgressBar.Position);
  BASS_ChannelPlay(Stream, true);
end;

procedure TfMain.TimerTimer(Sender: TObject);
begin
  ProgressBar.OnChange:=nil;
  ProgressBar.Position:=GetPosition;
  ProgressBar.OnChange:=ProgressBarChange;
end;

Was mache ich falsch?

Danke & Gruß,

Pascal

Gausi · Verfasst: Mo 14.08.06 14:33

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TfMain.ProgressBarChange(Sender: TObject);   
begin   
  BASS_ChannelPause(Stream);   
  BASS_ChannelSetPosition(Stream, ProgressBar.Position); 
  BASS_ChannelPlay(Stream, false);  
end;

Was das False im Gegensatz zum True macht, steht in der Bass-Hilfe. Hat was damit zu tun, ob die Position vor dem Play wieder auf 0 zurückgesetzt wird oder nicht ;-)

btw.: Probier mal, das Pause und Play drumherum wegzulassen. Das sollte eigentlich auch funktionieren.

_________________
We are, we were and will not be.

pascalsv · Verfasst: Di 15.08.06 07:27

Hallo Gausi,

das hatte ich auch schon probiert. Wenn ich Pause und Play weglasse und nur die Position ändere, springt er trotzdem immer wieder an den Anfang... Daher habe ich meine Prozedur ProgressBarChange mit angehängt, falls dort der Schlüssel zum Problem läge.

Pascal

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme