Frequenzen und Lautstärte vom Soundkarten Output

[PsychoDK]

Ich möchte ein Program schreiben das so ähnlich ist wie die Visualization von Winamp... es soll die frequenzen und deren Lautstärken aller Töne ausslesen die aus der Soudkarte raus gehen (output)... Später das ganze evt auch graphisch dastellen...
ich hoffe irgendjemand weis was ich meine... :wink:
schon mal danke für die hilfe

[flomei]

Herzlich Willkommen in der Delphi-PRAXIS! :dp:

Ändere bitte zunächst den Titel dieses Threads indem du deinen ersten Beitrag editierst! Wir lieben :love: hier nämlich eindeutige Titel die einen ersten Hinweis auf das Problem geben. :)

Danach solltest du dich mit der Foren-Suche vertraut machen. Sie kann meistens helfen oder Anhalts- bzw. Stichpunkte liefern.

Such hier in der DP mal nach FFT (Fast Fourier T...dingsbums) Vielleicht hilft dir das schon ein wenig.

MfG Florian :hi:

[EDIT] Willkommensgruß eingefügt... [/EDIT]

[PsychoDK]

zum ersten punkt... ich weis nicht wie ich das nennen soll...
hatte 10 min überlegt... habs aber jetzt mal geändert (hoffe das das halbwegs logisch war...)
und zum zweiten... ich hab hier vorher gesucht aber nichts eindeutiges gefunden und desswegen die frage gestellt

[Gandalfus]

das gleiche Thema giebt es sogar noch auf der ersten seite!!!!!

kuck dir mal meine unit http://www.delphipraxis.net/internal...ect.php?t=9978 an
basiert auf der bass.dll. Für dich besonders interesant dürfte getfftdata sein.

[PsychoDK]

danke für den link... aber irgendwie verstehe ich das noch nicht so ganz...
bei mir kommt dann immer ne fehlmeldung das mit dir bass.dcu fehlt, warum? :?:

[PsychoDK]

oh sorry hat sich schon erledigt... war mein fehler!
ich habe von der funktion getfftdata Zahlen (hmm nicht ganz, irgendwas anderes womit ich in Delphi noch nichts zu tun hatte...) sichbar gemacht...
was genau sagen die mir und wie kann ich damit weiterabeiten?

[Gandalfus]

Delphi-Quellcode:

var
  data: TFFTdata;
  backbild: TBitmap;

oncreate;

Delphi-Quellcode:

backbild := TBitmap.create;
backbild.width := 256;
backbild.height:= 150;

in einen Timer mit kleinem Intervall:

Delphi-Quellcode:

Data:= BassPlayer.GetFFTData;
for i := 1 to 256 do
begin
  data[i] := (Data[i] * (backbild.height)); //Werte anpassen
end; 
 
backbild.Canvas.Brush.Color := clBlack; //Bild "löschen"
backbild.Canvas.Rectangle(0,0,backbild.Width,backbild.Height);
   
backbild.Canvas.Brush.Color := clred;//Farbe der Balken
backbild.Canvas.pen.Color := clred;

for i:=1 to 256 do
begin   //DAs zeichnen der Balken                        
  backbild.canvas.moveto(i,backbild.height)
  backbild.canvas.lineto(i,backbild.height-round(Data[i]))
end;

BitBlt(Form1.Handle, 0, 0, backbild.width, backbild.height, backbild.Handle , 0, 0 , SRCCOPY);
//der Backpuffer wird aufs Formular kopiert

Ist jetzt nicht getestet.

Bei der darstellung sind dir fast keine Grenzen gesetzt. Kuck dir nur mal die vielen Visualierungs Plugins von Winamp an. :zwinker:


mfg

[PsychoDK]

danke das het mir sehr geholfen... ich denke das ich jetzt das habe was ich haben wollte!