'Visualissation'

[turboPASCAL]

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);