在Delphi 10 Seattle上接收iOS推送通知

Question

这里的主要目的是产生和接收 Push Notifications的iOS用Delphi 10西雅图.

我正在尝试关注此视频,但到目前为止,我只能成功发送推送通知.

有这个令人难以置信的教程,帮助我了解了解应用的ID,预置描述文件,证书,PEM文件,SSL连接等更好的.这基本上就是我现在看到的方式(是的,那是真正的董事会):

但有趣的是关于我需要在Delphi链接的Provisioning Profile.它必须与APNS证书具有相同的反向域名.

我能够想象的Provisioning Profile与Push Support我在苹果公司的会员中心创建了德尔福的Tools > Options > Provisioning.

但我没能看到不属于任何预置描述文件的iOS团队发放模板时Project > Options > Provisioning,即使提供CFBundleIdentifier在Version Info从Xcode中同样捆绑标识符(应用程序ID)相匹配.

如果我包括我只能运行应用程序Team Prefix的Bundle ID,但我觉得我必须做一些错误的.

通知仅在应用程序具有链接到它的正确证书时才有效.

这就是我获取应用程序令牌的方式:

procedure TFormPush.Button1Click(Sender: TObject);

var

    FormPush          : TFormPush;
    APushService      : TPushService;
    AServiceConnection: TPushServiceConnection;

    ADeviceID   : string;
    AdeviceToken: string;

begin

    APushService := TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.APS);

    AServiceConnection        := TPushServiceConnection.Create(APushService);
    AServiceConnection.Active := True;

    ADeviceID    := APushService.DeviceIDValue[TPushService.TDeviceIDNames.DeviceID];
    AdeviceToken := APushService.DeviceTokenValue[TPushService.TDeviceTokenNames.DeviceToken];

    ShowMessage(AdeviceToken);

end;

我花了很多精力才到这里,但我仍然没有收到推送通知.

我必须犯的错误是什么？