Hallo
Delphi-Quellcode:
//also hier der Anfang
...
Channel:=BASS_RecordStart(44100, 2, BASS_RECORD_PAUSE, nil, 0);
...
procedure ...
var FFT:array[0..512] of Cardinal;
BASS_ChannelGetData(Channel, @FFT, BASS_DATA_FFT512);
// damit dann mit
FFT[i]
// zeichen lassen ( ich habs noch ein bisschen geteilt dass die Werte dann in einem normalen Bereich leigen );
mehr code ? ( ist ein bisschen kompliziert da mein Programm ein wenig umfangreich ist )
MfG