- 1、本文档共19页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
【2017年整理】采集声音信息
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
您可能关注的文档
- 【2017年整理】采购不合格食品原料记录台账.doc
- 【2017年整理】采购与供应商管理程序.doc
- 【2017年整理】采荷一小教育集团教职工大会表决通过绩效考核方案.doc
- 【2017年整理】采购与供应商管理:如何打破供应商的垄断行为.doc
- 【2017年整理】采购主管岗位职责 繁体版 keesr制作,必属精品!请去keesir文库下载,评五分。谢谢!.doc
- 【2017年整理】采购主管的工作职责.doc
- 【2017年整理】采购人担任评标专家小组成员授权函.doc
- 【2017年整理】采购从业人员应具备六大“职业道德”.doc
- 【2017年整理】采购创新.doc
- 【2017年整理】采购台帐的精细化管理.doc
- 大学生职业规划大赛《新闻学专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《应用统计学专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《音乐学专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《中医学专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《信息管理与信息系统专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《汽车服务工程专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《水产养殖学专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《市场营销专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《音乐表演专业》生涯发展展示PPT.pptx
- 大学生职业规划大赛《音乐学专业》生涯发展展示PPT.pptx
文档评论(0)