关于声音输入的问题……

Question

sorry,我没有!
================================================================
一颗红心向前看，为了革命两茫然，不好意思才囊尽，只能说上一点点。
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
★    我踢  我踢   我踢  我踢  我踢  我踢  我踢  我踢  我踢   ★
★    你UP  你UP   你UP  你UP  你UP  你UP  你UP  你UP  你UP   ★
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
================================================================

Answer 1

使用waveIn＊＊＊＊＊系列就可以实现了。

Answer 2

关注，只知道数据字段类型为Blob

Answer 3

从32 Bit Delphi 深度历险 下载 TAUDIOIO.ZIP等控件

Answer 4

我原来写的一段通过声卡采集寻呼机编码的程序片断
procedure TForm1.start_recoder;
var
  open_status: MMRESULT;
  //code: integer;
begin
  with InWaveFormatEx do
    begin
    wFormatTag := wave_Format_PCM;
    nChannels := 1;
    nSamplesPerSec := sample_rate;
    nAvgBytesPerSec := sample_rate;
    nBlockAlign := 1;
    wBitsPerSample := 8;
    cbSize := 0;
    end;
  //open_status := waveinOpen (@h_Wavein, 0, @InWaveFormatEx, Handle, 0, callback_window);
  if not WaveInFlag then               //如果未打开录音设备
  begin
    open_status := waveinOpen (@h_Wavein,WAVE_MAPPER, @InWaveFormatEx, Handle, 0,CALLBACK_WINDOW);
    if open_status = 0 then
    begin
      waveinflag:=not waveinflag;      //致录音设备标志
      Label1.Caption:='No Err on Recoder';
    end;
  end;
end;