录制波形音频(Recording Wave Audio)
录制波形音频不是像大家想象的直接,也许大家以为所要做的就是调用StartRecording方法。然而,因为TMediaPlayer的问题,它不是那么简单的。
要录制波形文件,首先必须打开一个存在的波形文件,这个波形文件和所想要的新文件有相同的录制参数,然后开始录制新的波形文件,改变FileName属性为新文件名,然后保存文件,这有点笨拙,但其作用。
例如,假设有一个叫做Test.wav文件,这个文件以8000Hz,采样率16位且为单声道的波形格式录制,这时可以像下面代码那样在按钮上点击录制波形音频:
1
2
3
4
5
6
7
8
9
10
11
12
13
|
procedure TForm1.btn6Click(Sender: TObject);
begin
with mpPlayer do
begin
{ 设置FileName属性为 test.wav 文件,并从中获取录制参数信息}
FileName := 'test.wav';
{ 打开设备}
Open;
{ 开始录制}
Wait := False;
StartRecording;
end;
end;
|
此时录制已经开始,并且控制已返回应用程序。现在需要停止录制,这可以通过第二个停止按钮来完成,如下:
1
2
3
4
5
6
|