Wie nehme ich Audio mit dem TMediaPlayer in Delphi vom Mikrofoneingang auf?

Question

Hallo, ich bin ziemlich neu in Delphi, habe aber vorher programmiert.

Ich möchte Audio vom Mikrofoneingang eines Laptops aufnehmen. Tmediaplayer hat eine Record-Taste, aber ich kann die Dokumentation von http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/MPlayer_TMediaPlayer_StartRecording.html über die Verwendung nicht richtig verstehen.

Könnte jemand bitte einige Schritte aufführen, wie man es benutzt oder einen Beispielcode verlinkt, wo Tmediaplayer für die Aufnahme verwendet wird?

In welchem ​​Format ist die aufgenommene Datei gespeichert? Kann es ein Array mit den darin enthaltenen Daten sein oder handelt es sich um eine .WAV-Datei?

Jede Hilfe geschätzt und danke.

Answer 1

Die Verwendung ist ziemlich einfach, mit dem TMediaPlayer.OnClick Ereignis. Diese Antwort basiert auf dem VCL.TMediaPlayer, da Sie nicht angegeben haben, welche UI-Bibliothek Sie verwenden.

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; 

Ich habe die anderen Tasten der Kürze halber weggelassen.

Der Dateityp wird durch die Eigenschaft.festgelegt, die vor dem Start der Aufzeichnung festgelegt werden muss. Der einzige Tonaufnahme-Typ, den ich in der Liste sehen kann, ist das WAV-Format.