Verbinden ? Du hast eine Aussteuerung vom linken und vom rechten Kanal, also so zu sagen den linken und den rechten Lautsprecher.
Baue dir eine
procedure die zwei Balken zeichnet.
Delphi-Quellcode:
procedure DrawMyBars(LKanal, RKanal: Longword);
begin
if BassDLLPlayer1.Status = sndPlaying then
begin
// alles was in der PaintBox gezeichnet werden soll wenn Player läuft zB.:
for i := 0 to LKanal do
PaintBoxX.Canvas....odersowas
for i := 0 to RKanal do
PaintBoxX.Canvas....odersowas
end else
begin
// alles was in der PaintBox gezeichnet werden soll wenn Player auf Stop
end;
end;
die kannst du dann im Timer aufrufen lassen:
(! Setze den Interval des Timers nicht zu klein das gibt event. Probleme)
Delphi-Quellcode:
procedure TFormX.Timer1Timer(Sender: TObject);
begin
// Bar's zeichnen
DrawMyBars(BassDLLPlayer1.LeftPeak, BassDLLPlayer1.RightPeak);