1 unit Unit1;
  2
  3 interface
  4
  5 uses
  6   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  7   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  8   FMX.Controls.Presentation, System.Actions, FMX.ActnList, FMX.Media;
  9
 10 const
 11   AUDIO_FILENAME = 'test.mp3'; //录音保存的文件名
 12
 13 type
 14   TForm1 = class(TForm)
 15     Button1: TButton;
 16     Button2: TButton;
 17     Button3: TButton;
 18     Button4: TButton;
 19     Label1: TLabel;
 20     Label2: TLabel;
 21     ActionList1: TActionList;
 22     acStartRecording: TAction;
 23     acStopRecording: TAction;
 24     acPlay: TAction;
 25     acStop: TAction;
 26     MediaPlayer1: TMediaPlayer;
 27     procedure ActionList1Update(Action: TBasicAction; var Handled: Boolean);
 28     procedure acStartRecordingExecute(Sender: TObject);
 29     procedure acStopRecordingExecute(Sender: TObject);
 30     procedure FormCreate(Sender: TObject);
 31     procedure acPlayExecute(Sender: TObject);
 32     procedure acStopExecute(Sender: TObject);
 33   private
 34     { Private declarations }
 35   public
 36     FMicrophone: TAudioCaptureDevice;
 37     function HasMicrophone: Boolean;
 38     function IsMicrophoneRecording: Boolean;
 39     { Public declarations }
 40   end;
 41
 42 var
 43   Form1: TForm1;
 44
 45 implementation
 46 uses
 47   system.IOUtils;//需要引入
 48 {$R *.fmx}
 49 {$R *.NmXhdpiPh.fmx ANDROID}
 50
 51 //得到不同平台的录音文件保存路径
 52 function GetAudioFileName(const AFileName: string): string;
 53 begin
 54   {$IFDEF ANDROID}
 55   Result := TPath.GetTempPath + '/' + AFileName;
 56   {$ELSE}
 57   {$IFDEF IOS}
 58   Result := TPath.GetHomePath + '/Documents/' + AFileName;
 59   {$ELSE}
 60   Result := AFileName;
 61   {$ENDIF}
 62   {$ENDIF}
 63 end;
 64
 65 procedure TForm1.acPlayExecute(Sender: TObject);
 66 begin
 67   if IsMicrophoneRecording then //如果在录音，则先停止录音
 68   acStopRecording.Execute;
 69   //以下播放录音文件 AUDIO_FILENAME
 70   MediaPlayer1.FileName := GetAudioFileName(AUDIO_FILENAME);
 71   MediaPlayer1.Play;
 72 end;
 73
 74 procedure TForm1.acStartRecordingExecute(Sender: TObject);
 75 begin
 76   acStop.Execute;//选择停止录音
 77   if HasMicrophone then
 78   begin
 79     //准备将录音保存到文件 'test.mp3'
 80     FMicrophone.FileName := GetAudioFileName(AUDIO_FILENAME);
 81     try
 82     FMicrophone.StartCapture; //开始录音
 83     except
 84     ShowMessage('该设备不支持录音操作。');
 85     end;
 86   end
 87   else
 88   ShowMessage('没有麦克风设备。');
 89 end;
 90
 91 procedure TForm1.acStopExecute(Sender: TObject);
 92 begin
 93   MediaPlayer1.Stop;
 94 end;
 95
 96 procedure TForm1.acStopRecordingExecute(Sender: TObject);
 97 begin
 98   if IsMicrophoneRecording then //如果正在录音
 99   try
100     FMicrophone.StopCapture; { 停止录音 }
101   except
102     ShowMessage('该设备不支持停止录音操作。');
103   end;
104 end;
105
106 procedure TForm1.ActionList1Update(Action: TBasicAction; var Handled: Boolean);
107 begin
108   //判断图片的可见性
109   case (HasMicrophone and (FMicrophone.State = TCaptureDeviceState.Capturing)) of
110     True: Label2.Text := '录音';
111     False: Label2.Text := '停止录音';
112   end;
113   //判断 4 个按钮的是否可按下
114   acStartRecording.Enabled := not IsMicrophoneRecording and HasMicrophone;
115   acStopRecording.Enabled := IsMicrophoneRecording;
116   acStop.Enabled := Assigned(MediaPlayer1.Media) and (MediaPlayer1.State =
117   TMediaState.Playing);
118   acPlay.Enabled := FileExists(GetAudioFileName(AUDIO_FILENAME)) and
119   (MediaPlayer1.State <> TMediaState.Playing);
120 end;
121
122 procedure TForm1.FormCreate(Sender: TObject);
123 begin
124   //初始化录音设备
125   FMicrophone := TCaptureDeviceManager.Current.DefaultAudioCaptureDevice;
126 end;
127
128 //判断是否有麦克风
129 function TForm1.HasMicrophone: Boolean;
130 begin
131   Result := Assigned(FMicrophone);
132 end;
133
134 //判断是否在录音
135 function TForm1.IsMicrophoneRecording: Boolean;
136 begin
137   Result := HasMicrophone and (FMicrophone.State = TCaptureDeviceState.Capturing);
138 end;
139
140 end.