unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
MMSystem;{引用mmsystem单元}
const
FNumBuffers = 4;

type TACMWAVEFORMAT = packed record
   case Integer of
   0: (Format: twaveformatex);
   1: (Rawdata: array[0..128] of byte);
end;

type
TForm1 = class(TForm)
   Button1: TButton;
   Label1: TLabel;
   Label2: TLabel;
   procedure Button1Click(Sender: TObject);
private
   FBufferSize :integer;
   FWaveInHandle: HWaveIn;
   WaveFmt: TACMWAVEFORMAT;
public
   { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure WaveInCallback(hWave: HWAVEIN; uMsg: cardinal; pform1: tform1; dwParam1, dwParam2: cardinal) stdcall;

var
Header: PWaveHdr;
Res: Integer;
BytesRecorded: Integer;
Data: Pointer;
begin
if (uMsg = MM_WIM_DATA) then
begin
   header := PWaveHdr(dwParam1);
   Res := WaveInUnPrepareHeader(hWave, Header, sizeof(TWavehdr));
   if Res <> 0 then Exit;
   BytesRecorded := header.dwBytesRecorded;
   begin
   Getmem(Data, BytesRecorded);
   try
   move(header.lpData^, Data^, BytesRecorded);
  {此处进行数据处理 采集的data }
   pform1.Label1.Caption := Format(' %0.1f KB/S', [BytesRecorded / 1024]);

   finally
   Freemem(Data);
   end;

   {清空缓冲区,并添加到录音设备}
   header.dwbufferlength := pform1.FBufferSize;
   header.dwBytesRecorded := 0;
   header.dwUser := 0;
   header.dwflags := 0;
   header.dwloops := 0;
   FillMemory(Header.lpData, pform1.FBufferSize, 0);
   Res := WaveInPrepareHeader(hWave, Header, sizeof(TWavehdr));
   if Res <> 0 then Exit;
   Res := WaveInAddBuffer(hWave, Header, sizeof(TWaveHdr));
   if Res <> 0 then Exit;
   end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Res: Integer;
J: Integer;
Header: PWaveHdr;
begin
FWaveInHandle := 0;
/////////////////////////////////////
/////////GSM 6.10////////////
/////////////////////////////////////
WaveFmt.Format.wFormatTag := 49;
WaveFmt.Format.nChannels := 1;
       {1k/s    2k    4k    8k}
WaveFmt.Format.nSamplesPerSec := 8000; //11025//22050//44100
WaveFmt.Format.nAvgBytesPerSec := 1625;//2239//4478//8957
WaveFmt.Format.nBlockAlign := 65;
WaveFmt.Format.wBitsPerSample := 0;
WaveFmt.Format.cbSize := 2;
Wavefmt.Rawdata[18] := 64;
Wavefmt.Rawdata[19] := 1;

FBufferSize :=WaveFmt.Format.nAvgBytesPerSec;
{用回调函数取得采集的音频数据}
res := WaveInOpen(@FWaveInHandle, WAVE_MAPPER, @Wavefmt, cardinal(@WaveInCallback), cardinal(Self), CALLBACK_FUNCTION);
if Res <> 0 then exit;

{为音频输入设备一次添加多个缓冲区,这些缓冲区有系统调度}

for j := 1 to FNumBuffers do
begin
   Getmem(Header, SizeOf(TWaveHDR));
   with Header^ do begin
   Getmem(lpData, FBufferSize);
   dwBufferLength := FBufferSize;
   dwBytesRecorded := 0;
   dwFlags := 0;
   dwLoops := 0;
   Res := WaveInPrepareHeader(FWaveInHandle, Header, sizeof(TWaveHDR));
   if Res <> 0 then Exit;
   Res := WaveInAddBuffer(FWaveInHandle, Header, SizeOf(TWaveHDR));
   if Res <> 0 then Exit;
   end;
end;
Res := WaveInStart(FWaveInHandle);
if Res <> 0 then exit;
end;