知识大全用Delphi制作录音程序

Posted 2022-07-14 文件

篇首语：曲直都是经历，好坏都有风景。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用Delphi制作录音程序相关的知识，希望对你有一定的参考价值。

用Delphi制作录音程序 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　Delphi是Inprise（前Borland）公司的优秀的可视化编程工具它自带的Mediaplayer控件是开发多媒体的利器用它几分钟就可以做出一个象解霸一样可以播放多媒体文件的程序来但可能很少人知道用它也可以做一个录音程序

　　运行Delphi 在System页拖一个Mediaplayer控件到窗体上默认名为Mediaplayer 由于我们的程序是采用自己的按钮所以将Mediaplayer 的Visible属性设置为False 其它属性保持默认值再放两个按钮Button 和Button Button 的属性Name改为BtStart Caption改为开始录音 Button 的属性Name改为BtStop Caption改为停止录音 Enabled属性改为False 然后切换窗口到代码窗口开始书写代码

　　程序中我们定义了一个Wav文件的文件头格式录音时先创建一个只有文件头的Wav文件然后将Mediaplayer 录制下来的声音写进文件其中CreateWav过程的几个参数意义如下第一个channels代表声道取时代表单声取时代表立体声 resolution也只有两个值可以选择取时代表位声音取时代表位声音 rate则代表声音频率如值越大则声音越清晰当然所录制的文件也越大最后一个参数则代表对应的文件名称了所以CreateWav可以有以下形式

　　CreateWav（ C abc wav ） //在C盘根目录下创建一个位单声道频率为的名为abc wav的Wav文件

　　CreateWav（ C abc wav ） //在C盘根目录下创建一个位立体声道频率为的名为abc wav的Wav文件

　　外国一个很出名的用Delphi编写的远程控制软件Netbus有一个声音监听功能就是用本文的方法写的它先把对方的声音录制下来然后传送回来达到监听对方的目的当然前提是对方必须安装有话筒否则监听到的是对方播放的声音（如打开解霸或者Readplay播放运行本程序就可以把播放的声音录制下来了）

　　实际上现在的网络声音传播技术已经发展到一定阶段语音对讲和IP电话等也开始成熟不过它们采用的是VOX格式或者ACM格式具体代码可以在我的主页下载但如果对VOX或者ACM格式不熟悉的朋友也可以用本文的方法来制作自己的录音机至于如何调用系统自带的avifil dll来进行网络视频播放在有机会时再跟大家交流吧

　　本程序在Pwin +Delphi 下通过

　　unit Unit ;interfaceusesWindows Messages SysUtils Classes Graphics Controls Forms Dialogs StdCtrls MPlayer;typeavHeader = record //定义一个Wav文件头格式　rId : longint;　rLen : longint;　wId : longint;　fId : longint;　fLen : longint;　wFormatTag : word;　nChannels : word;　nSamplesPerSec : longint;　nAvgBytesPerSec : longint;　nBlockAlign : word;　wBitsPerSample : word;　dId : longint;　wSampleLength : longint;　end;TForm = class(TForm)MediaPlayer : TMediaPlayer;BtStart: TButton;BtStop: TButton;procedure CreateWav(channels : word; resolution : word; rate : longint; fn : string);//自定义写一个Wav文件头过程procedure BtStartClick(Sender: TObject);procedure BtStopClick(Sender: TObject);private Private declarations public Public declarations end;varForm : TForm ;implementation$R * DFMprocedure TForm CreateWav( channels : word; (单声)或者 (立体声) resolution : word; 或者代表位或位声音 rate : longint; 声音频率如 fn : string 对应的文件名称 );varwf : file of avHeader;wh : avHeader;beginwh rId := $ ;　wh rLen := ;　wh wId := $ ;　wh fId := $ d ;　wh fLen := ;　wh wFormatTag := ;　wh nChannels := channels;　wh nSamplesPerSec := rate;　wh nAvgBytesPerSec := channels*rate*(resolution div );wh nBlockAlign := channels*(resolution div );wh wBitsPerSample := resolution;wh dId := $ ;　wh wSampleLength := ;　assignfile(wf fn); 打开对应文件　rewrite(wf); 移动指针到文件头　write(wf wh); 写进文件头　closefile(wf); 关闭文件　end;procedure TForm BtStartClick(Sender: TObject);begintry//在程序当前目录下创建一个Wav文件Temp wavCreateWav( (ExtractFilePath(Application ExeName)+ Temp wav ));MediaPlayer DeviceType := dtAutoSelect;MediaPlayer FileName := (ExtractFilePath(Application ExeName)+ Temp wav );MediaPlayer Open;MediaPlayer StartRecording;BtStart Enabled:=false;BtStop Enabled:=true;exceptBtStart Enabled:=True;BtStop Enabled:=false;Application MessageBox( 媒体设备初始化失败！错误 MB_ICONERROR+MB_OK);end;end;procedure TForm BtStopClick(Sender: TObject);begintryMediaPlayer Stop;MediaPlayer Save;MediaPlayer Close;Application MessageBox( 声音录制完毕! 信息 MB_ICONINFORMATION+MB_OK);BtStart Enabled:=True;BtStop Enabled:=false;exceptApplication MessageBox( 保存声音文件出错! 错误 MB_ICONERROR+MB_OK);BtStart Enabled:=True;BtStop Enabled:=false;end;end;end

　　补充录制的文件播放时可能要把音频属性的Wav调大

　　如果系统安装了其它一些音频驱动程序则可能录制的Wav文件大小为零但会同时生成一个TMP结尾的文件将其扩展名改为Wav就是录制的声音文件但这种情况很少发生（机会几乎为零^ ^）

cha138/Article/program/Delphi/201311/24663

知识大全 用Delphi制作录音程序

知识大全用Delphi制作录音程序