【2017年整理】采集声音信息.docVIP

unit caiji; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,MMSystem, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; type trecorder=class private Fwavefmt:Twaveformatex; wavehandle:hwavein; wavehdr1:pwavehdr; wavebuffer1:lpstr; procedure callback(umsg,dwinstance,dwparam1,dwparam2:dword);stdcall; end; var Form1: TForm1; recorder:trecorder; umsg,dwinstance,dwparam1,dwparam2:dword; dddd:WAVEINCAPS; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var re:uint; wave_num:uint; str:string; mmrError:MMRESULT; pszText: LPSTR; cchText:UINT; begin recorder:=trecorder.Create; recorder.Fwavefmt.wFormatTag:=wave_format_pcm; recorder.Fwavefmt.nSamplesPerSec:=11025; //采样速率 recorder.Fwavefmt.nAvgBytesPerSec:=22050; //每秒采样得到的数据 recorder.Fwavefmt.wBitsPerSample:=16; //量化位数 recorder.Fwavefmt.nBlockAlign:=2; //记录区块对齐的单位。 re:=waveInGetNumDevs; wave_num:=uint(1); re:= waveinopen(@recorder.wavehandle,wave_mapper,(@recorder.Fwavefmt),dword(@trecorder.callback),dword(@recorder), callback_function);//callback_function+wave_allowsync; showmessage(inttostr(re)); // str:=inttostr(dddd.wMid)+ +inttostr(dddd.wPid)+ +inttostr(dddd.vDriverVersion)+ ; // str:=str+inttostr(dddd.dwFormats)+ + inttostr(dddd.wChannels)+ +inttostr(dddd.wReserved1)+ ; case re of MMSYSERR_ALLOCATED:showmessage(已经分配内存); MMSYSERR_BADDEVICEID:showmessage(超出索引); MMSYSERR_NODRIVER:showmessage(没有驱动); MMSYSERR_NOMEM:showmessage(不能分配内存); WAVERR_BADFORMAT:showmessage(打开不支持的设备); end;//end case //////////////////////////////////// //////////为采样数据分配缓冲空间 recorder.wavehdr1:=globalallocptr(ghnd or gmem_share,sizeof(wavehdr)); recorder.wavebuffer1:=globalallocptr(ghnd or gmem