equalizer mit der bass.dll

[padavan]

Hmm,
1. Soundfiles sind diverse Musikstücke, würde dies als Fehlerquelle auschließen.
2. Paintbox1.height div 2 setzt in die Mitte, lass ich das weg ist es am oberen Anschlag, bringt auch nichts
3. mir ist nicht klar, welche Unit beim Abholen evtl. murks macht. Ich nehme an, du meinst die Komponente in der die Bass.dll zur Verfügung gestellt wird?!
(Hab die Komponente "TBassDllPlayer" mal angehängt.)

4. Das die geraden den linken und die ungeraden den rechten Kanal ausgeben habe ich nicht gewusst, dass war in der Tat ein heißer Tipp

Trotzdem hat´s am aussehen nichts geändert. Der Pegel der Visalisierung erinnert nach wie vor eher an einen Gleichstromsteller für Elektromotoren als an Musik

Ich hab das Gefühl, dass ich sehr nah dran bin, aber irgendwie....

Delphi-Quellcode:

Paintbox1.Canvas.pen.color := RGB(255 - i, i, 0);
if i mod 2 = 0 then
  Paintbox1.Canvas.LineTo(i,Paintbox1.height div 2 - Data1[i] div trackbar3.position);

Paintbox1.Canvas.pen.color := clyellow;
if i mod 2 = 1 then
  Paintbox1.Canvas.LineTo(i,Paintbox1.height div 2 - Data1[i] div trackbar3.position);