在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
录制波形音频不是像大家想象的直接,也许大家以为所要做的就是调用StartRecording方法。然而,因为TMediaPlayer的问题,它不是那么简单的。 要录制波形文件,首先必须打开一个存在的波形文件,这个波形文件和所想要的新文件有相同的录制参数,然后开始录制新的波形文件,改变FileName属性为新文件名,然后保存文件,这有点笨拙,但其作用。 例如,假设有一个叫做Test.wav文件,这个文件以8000Hz,采样率16位且为单声道的波形格式录制,这时可以像下面代码那样在按钮上点击录制波形音频: procedure TForm1.btn6Click(Sender: TObject); begin with mpPlayer do begin { 设置FileName属性为 test.wav 文件,并从中获取录制参数信息} FileName := 'test.wav'; { 打开设备} Open; { 开始录制} Wait := False; StartRecording; end; end; 此时录制已经开始,并且控制已返回应用程序。现在需要停止录制,这可以通过第二个停止按钮来完成,如下: procedure TForm1.btn7Click(Sender: TObject); begin with mpPlayer do begin { 停止录音} Stop; { 改变FileName属性为新的文件名用来保存到硬盘} FileName := 'new.wav'; { 保存并关闭文件} Save; Close; end; end; 示例程序界面如下:
控制波形音频录制的因素包括采样位数(通常为8或16)、采样频率和声道数,通常采样频率为8000kHz、11025kHz、22050kHz以及44100kHz,采样频率越高,录制质量越好。大部分情况下,用户可能不使用立体声,除非做游戏程序设计。即使做游戏程序设计,也应根据需要使用立体声。采样位数也影像录音质量。
以上代码均在Delphi 7下测试通过,示例代码下载:TMediaPlayer.rar |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论