همانطور که می دانید یکی از قابلیت های اضافه شده به XE3 توانایی کار با انواع فرمت های صوتی و تصویری است. از این قابلیت شما می توانید در ضبط صدا هم بهره ببرید که در این رابطه نمونه ای را در زیر قرار داده ام که مربوط به وبلاگ آقای David Intersimone است:
unit AudioUnit;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,
System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Media;
type
TForm3 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
MyAudio : TAudioCaptureDevice;
end;
var
Form3: TForm3;
implementation
{$R *.fmx}
procedure TForm3.Button1Click(Sender: TObject);
begin
if Button1.Text = 'Start Audio Capture' then begin
MyAudio := TCaptureDeviceManager.Current.DefaultAudioCaptureD evice;
if MyAudio <> nil then begin
Button1.Text := 'Stop Audio Capture';
MyAudio.FileName := 'TestAudio.mp3';
MyAudio.StartCapture;
end
else
Caption := 'Audio capture devices not available.';
end
else begin
MyAudio.StopCapture;
Button1.Text := 'Start Audio Capture'
end;
end;
end.