Поиск сообщества
Показаны результаты для тегов 'push token apn'.
Найдено: 1 результат
-
Вот такой код судя по форумам у многих работает норм...но не у меня. procedure TForm1.Button1Click(Sender: TObject); var ADeviceID, ADeviceToken: string; begin APushService := TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.APS); AServiceConnection := TPushServiceConnection.Create(APushService); AServiceConnection.Active := true; AServiceConnection.OnChange := OnChange; AServiceConnection.OnReceiveNotification := OnReceiveNotificationEvent; ADeviceID := APushService.DeviceIDValue[TPushService.TDeviceIDNames.DeviceID]; ADeviceToken := APushService.DeviceTokenValue[TPushService.TDeviceTokenNames.DeviceToken]; Писал гонсалес еще для XE7, толи все работают на ХЕ7 то ли у меня руки кривые, но на строке ADeviceID ...вылетает access violation ... Мои настройки: XE8upd1, IPAD Estay, OX Osemite 10.10(VMWare). Сертификат APN выпускал, но чую не в нем дело... Что только не делал...программа то работает, просто этот код погоняет...
