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
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.