如何在Delphi 7中监听麦克风并检测声音响度

我需要一个程序来捕获麦克风输入声音超过特定阈值时的事件。那么我可能需要不断地听麦克风，并以某种方式测量声音幅度？ Delphi 7 中可以这样做吗？

我建议您使用低音音频库 http://www.un4seen.com/bass.html http://www.un4seen.com/bass.html

BASS是一个音频库..为开发者提供强大的流（MP3..OGG..）功能。全部都在一个小型 DLL 中，大小不到 100KB。

正如这个简单的简约程序所示，它非常易于使用。它基于 Delphi 的 BASS 记录测试，包含在 BASS 附带的示例中。查看它以完整保存和播放录制的音频。

只需编译并运行即可。

program rec;
uses Windows, Bass;

(* This function called while recording audio *)
function RecordingCallback(h:HRECORD; b:Pointer; l,u: DWord): boolean; stdcall;
 var level:dword; 
 begin
  level:=BASS_ChannelGetLevel(h);
  write(''#13,LoWord(level),'-',HiWord(level),'         ');
  Result := True;
 end;

begin
  BASS_RecordInit(-1);
  BASS_RecordStart(44100, 2, 0, @RecordingCallback, nil);
  Readln;
  BASS_RecordFree;
end.