Delphi'de TMediaPlayer kullanarak mikrofon girişinden ses nasıl kaydedilir?

Question

Merhaba Ben Delphi için oldukça yeni ama daha önce programlanmış.

Dizüstü bilgisayarın mikrofon girişinden ses kaydetmek istiyorum. Tmediaplayer'ın bir kayıt düğmesi var ancak nasıl kullanacağım konusunda http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/MPlayer_TMediaPlayer_StartRecording.html belgelerini tam olarak anlayamıyorum.

Birisi, Tmediaplayer'ın kayıt için kullanıldığı örnek kodun nasıl kullanıldığına veya nasıl bağlanacağına ilişkin bazı adımları listeleyebilir mi?

Kaydedilen dosya hangi formatta kaydedilir? İçindeki verilerle bir dizi olabilir mi, yoksa bir .WAV dosyası mı?

Yardımlarınız için teşekkür ederiz.

Answer 1

TMediaPlayer.OnClick olayını kullanarak oldukça basit bir kullanımdır. Bu cevap, kullandığınız UI kitaplığını belirtmediğiniz için VCL.TMediaPlayer'ı temel alır.

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; 

Diğer düğmeleri ihmal için ihmal ettim.

Dosya türü, kayıt başlatılmadan önce ayarlanması gereken TMediaPlayer.DeviceType özelliği tarafından belirlenir. Listede görebileceğim tek ses kayıt tipi WAV formatıdır.