Я создаю приложение для iOS с помощью Delphi Rad Studio Seattle 10. Это приложение должно получать push-уведомления. Это работает для меня, но когда приложение работает, оно получает какие-либо уведомления. Что я могу делать неправильно?
Вот код:
var
APushService: TPushService;
AServiceConnection: TPushServiceConnection;
ADeviceID, AdeviceToken: String;
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];
С этим кодом приложение получает push-уведомления, но не во время работы.