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イベントを使用しています。この回答は、使用しているUIライブラリを指定していないので、VCL.TMediaPlayerに基づいています。

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フォーマットです。