FFT + Bassdllplayer

[omata]

Entferne mal bitte dieses unsinnige exit.

Delphi-Quellcode:

function TBassPlayer.getfftdata: TFFTData;
begin
  if status = sndPLAYING then begin
    if not (BASS_ChannelGetData(Channel, @Result, BASS_DATA_FFT4096) = 2048) then 
      ZeroMemory(@Result, SizeOf(Result));
  end
  else ZeroMemory(@Result, SizeOf(Result));
end;