MacOS 上的 Delphi 11 项目正在使用以下代码请求许可:
procedure TCOWMainForm.Button1Click(Sender: TObject);
var
fMic: FMX.Media.TAudioCaptureDevice;
begin
fMic := TAVCaptureDeviceManager.Current.DefaultAudioCaptureDevice;
if (fMic <> nil) then
begin
ShowMessage('fMic not nil so calling fMic.RequestPermission');
fMic.RequestPermission;
end;
end;
Project | Options | Version Info
包括一个密钥对
NSMicrophoneUsageDescription "COW records your voice."
fMic.RequestPermission
尽管如此,根据Apple文档,该项目在调用时被终止:
在尝试获得在 macOS 公证应用程序中使用麦克风的许可时,我可能会遗漏什么?
编辑包含这个 Embarcadero RSP,它有一个最小的项目来重现这个问题。