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