Sorry:
ich verwende das aktuelle Delphi Sydney 10.4
und ja, laut
Apple muss die Permission abgefragt werden.
Dies habe ich inzwischen eingebaut:
FMicrophone deklaration:
Code:
FMicrophone: TAudioCaptureDevice;
im Create:
Code:
FMicrophone := TCaptureDeviceManager.Current.DefaultAudioCaptureDevice;
FMicrophone.OnPermissionRequest := actGrantPermission;
und die Ereignisprocedure:
Delphi-Quellcode:
procedure TForm1.actGrantPermission(ASender: TObject; const AMessage: string; const AAccessGranted: Boolean);
begin
if AAccessGranted then
FMicrophone.StartCapture
else
TDialogServiceAsync.ShowMessage('Bitte in den Einstellungen den Zugriff auf das Microfon erlauben!' + LineFeed + AMessage));
end;
Und um die Aufnahme zu starten, wird die Methode:
FMicrophone.RequestPermission;
aufgerufen.
Der Aufbau ist also ähnlich wie bei Android.
Vielleicht kann es ja jemand gebrauchen
