如何使用Delphi中的TMediaPlayer录制麦克风输入的音频？

Question

嗨，我对Delphi很新，但之前已编程过。

我想录制笔记本电脑麦克风输入的音频。 Tmediaplayer有一个记录按钮，但我不太了解来自的文档   关于如何使用它的http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/MPlayer_TMediaPlayer_StartRecording.html。

有人可以列出一些如何使用它的步骤或链接任何使用Tmediaplayer进行录制的示例代码吗？

录制的文件保存的格式是什么？它可以是包含数据的数组，还是.WAV文件？

任何帮助表示赞赏和感谢。

Answer 1

使用TMediaPlayer.OnClick事件非常简单。此答案基于VCL.TMediaPlayer，因为您没有指定您正在使用的UI库。

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
  case Button of
    btStop:
      begin
        MediaPlayer1.Stop;
        MediaPlayer1.FileName := 'WhateverYouWant.wav';
        MediaPlayer1.Save;
      end;
    btRecord: MediaPlayer1.StartRecording;
  end;

为简洁起见，我省略了其他按钮。

文件类型由TMediaPlayer.DeviceType属性决定，必须在录制开始前设置。我在列表中看到的唯一录音类型是WAV格式。