Visualisierung des "Output-Streams"

[nabbl]

Hi! Ich habe mal ne Frage:
Wie kann ich den "Ouput-Stream" visualisieren?
ich denke da an sowas wie winamp.

Habe mir die bass.dll angeguckt - allerdings glaube ich, dass die Visualisierung nur bei der wiedergabe von mediendateien mit der bass.dll funktioniert? :gruebel:

n bissl aufklärung wäre supi ;)

EDIT: Ich dachte da an sowas:
http://www.delphipraxis.net/internal...visualisierung

die Orangenen balken da - halt nur für jeden sound, der kommt =)

[omata]

Moin,

schau dir doch mal bei den Beispielen von der bass.dll das custloop-Beispiel an.

In meiner BassPlayerEx-Komponente habe ich auch einige Visualisierungen eingebaut (die funktionieren allerdings nur beim Abspielen).

MfG
Thorsten

[nabbl]

habe mir das mal angeschaut - es entspricht aber nicht so ganz meinen vorstellungen
ich dachte da an etwas wie in der SampleVis-Demo zu sehenden Balken (richtig umschrieben :gruebel:)

Nur, dass ich nicht eine bestimmte mp3-datei ausgeben lassen will, sondern generell alles, was über die soundkarte den weg zu meinen boxen findet =)

[edit=Luckie]Push-Posting gelöcht. Bitte erst nach 24 Stunden pushen. Mfg, Luckie[/edit]

[Luckie]

Zitat:

Zitat von nabbl

habe mir das mal angeschaut - es entspricht aber nicht so ganz meinen vorstellungen

Dann schreib es doch entsprechen um und füge deine Visualisierung hinzu. Wie es geht solltets du ja an dem Demo sehen.

[arbu man]

Vielleicht hilft dir das hier

[Wishmaster]

Hi

Du kannst das mit der BASS.dll machen. Kreiere dir en Rec. Channel

Delphi-Quellcode:

Var 

FFT   : array[0..1024] of float; 
Rec_Ch : HRECORD


procedure TForm1.FormCreate(Sender: TObject);
begin
BASS_RecordInit(0); 
Rec_Ch := BASS_RecordStart(44100, BASS_SAMPLE_MONO, nil, 0); 

End


procedure TForm1.FormDestroy(Sender: TObject);
begin
  BASS_RecordFree(); 
  Bass_Free; 
end;

mit Timer

Delphi-Quellcode:

Bass_ChannelGetData(Rec_Ch, @FFT, BASS_DATA_FFT2048); // Get the data

Der Rest ist das selbe wie in “SampleVis“. Und Schau dir mal die bass Hilfe an.

[nabbl]

vielen dank! werde es mir mal anguggn =)

[nabbl]

Zitat:

Zitat von arbu man

Vielleicht hilft dir das hier

sieht ja schonmal vielversprechend aus - aber: ich bekomme die audioio-kompo nicht installiert :( fehler:

Delphi-Quellcode:

      Property WaveDevice : Integer Read FWaveDevice Write FWaveDevice Default WAVE_MAPPER;
Inkombatible Datentypen: 'Cardinal' und 'Integer'.

[nabbl]

*push*

[nabbl]

*nochmal push*

weiss niemand rat?