Delphi MacOS 请求使用麦克风的权限

Delphi MacOS request permission to use microphone

Delphi MacOS 上的 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."

仍然,根据 Apple 文档,项目在调用 fMic.RequestPermission 时被终止:

Requesting Authorization for Media Capture on macOS

在尝试获得在 macOS 公证应用程序中使用麦克风的权限时,我可能遗漏了什么?

编辑以包含此 Embarcadero RSP,它有一个最小的项目可以重现该问题。

https://quality.embarcadero.com/browse/RSP-36541

感谢@DaveNottage,经过公证的 Delphi 应用程序确实需要 Info.plist.

中的 NSMicrophoneUsageDescription 密钥对。

该项目还需要 Project | Options | Application | Entitlement List | Audio Input 检查为真。