声卡录音，很简单的那种，通过麦克录音，请问代码是如何实现的？

Question

欢迎有经验的朋友指点一二，非常感谢～～

Answer 1

一种: 用TMediaPlayer, 网上有许多资料, 例如: http://www.qqread.com/delphi/d258320.html二种: 用MCI控制音频设备:
procedure TForm1.Button1Click(Sender: TObject);{开始录音}
begin
  mciSendString('set wave bitpersample 8', nil, 0, 0);
  mciSendString('set wave samplespersec 11025', nil, 0, 0);
  mciSendString('set wave channels 2', nil, 0, 0);
  mciSendString('set wave format tag pcm', nil, 0, 0);
  mciSendString('close movie', nil, 0, 0);
  mciSendString('open new type WAVEAudio alias movie', nil, 0, 0);
  mciSendString('record movie', nil, 0, 0);
end;procedure TForm1.Button2Click(Sender: TObject);{停止录音并保存为wav}
begin
  mciSendString('stop movie', nil, 0, 0);
  mciSendString('save movie C:\123.wav', nil, 0, 0);
  mciSendString('close movie', nil, 0, 0);
end;

Answer 2

没这么复杂吧  这个我做个呀  用一个控件就搞定了  叫什么来着  ...   AudioComponentsSuite.v2.2