delphi - 如何在Delphi 7中听麦克风和检测声音响度

Question

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

Answer 1

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

BASS 是一个音频库.. 为开发人员提供强大的流 (MP3..OGG..) 功能。所有这些都在一个微型 DLL 中，大小不到 100KB。

它非常易于使用，正如这个简单的简约程序所展示的那样。它基于 Delphi 的 BASS Record Test，包含在 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.