delphi - 如何在 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 格式。