[Vayrus]

Необходимо для светомузыки на ПК получать в ральном времени текущую частоту звука в Герцах (а также желательно амплитуду)
на выходе звукового устройства по умолчанию (желателен выбор источника, но думаю сам разберусь), результаты просто
записываются в ListBox например (можно с графиком для наглядности).

Пример внешнего вида программы:
http://www.delphiforfun.org/programs...scFreq1Khz.gif

Нарыл следующие сорцы, которые так и не смог приспособить для захвата именно частоты звука, может кто доработает?
http://dl.dropbox.com/u/2020620/Oscilloscope4Source.zip
http://dl.dropbox.com/u/2020620/spectrum.rar

ЗЫ
Вроде можно организовать через микшер виндовый или ДиректСоунд.

[czuryk]

Тут есть подходящий пимер - ближе к концу в сообщении от меня.
http://forum.sources.ru/index.php?sh...2&view=showall

[SCrat.ORS]

Не знаю, актуально или нет, но мало ли кому понадобится

Код:

uses bass;

type
  FFTData = array[0..2048] of Single;

var
  FData: FFTDATA;
  Chan: DWORD;

function DuffRecording(handle : HRECORD; const Buffer : Pointer; Length : DWORD; user : Pointer) : Boolean; stdcall;
begin
  Result := True;	// continue recording
end;

procedure TForm1.FormShow(Sender: TObject);
begin
    BASS_RecordInit(-1);
    Chan := BASS_RecordStart(44100, 2, 0, @DuffRecording, NIL);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
Var
i:integer;
begin
BASS_ChannelGetData(chan, @FData, BASS_DATA_FFT256);
//BASS_DATA_FFT256 - количество выборки частот, можно использовать
//от 256 до 4096

   For i:=0 to 256 do begin //раз выбрали 256
   Trunc(Abs(FData[i])) //вот тут каждому i будет уровень сигнала спектра
   end;

end;