Delphi 多媒体（Tmediaplayer 3）

录制波形音频（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