Delphi-Quellcode:
image1.Picture.LoadFromFile('J:\mediaplayer\bass\a.bmp');
Bass_ChannelGetData(stream, @data, BASS_DATA_FFT512);
for i := 1 to 256 do
begin
image1.Canvas.LineTo(i, strtoint(formatfloat('0',450-data[i]*2000)) );
end;
end;
isch das schon eine?
also ausshen tuts schon wie eine!
[edit=alcaeus]Delphi-Tags Mfg, alcaeus[/edit]