Hasta la version anterior de Delphi, la forma de recuperar el Token de la App para poder enviar una Notificación Push era la siguiente:
PushService := TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.GCM);
ServiceConnection := TPushServiceConnection.Create(PushService);
ServiceConnection.Active := True;
ServiceConnection.OnChange := OnServiceConnectionChange;
ServiceConnection.OnReceiveNotification := OnReceiveNotificationEvent;
En la versión 10.4, ha cambiado, y si no lo sabemos podemos tener un dolor de cabeza, ya que en la versión 10.4 de 64 bits no genera error al momento de compilar, pero al ejecutar la app se cierra inesperadamente.
La corrección es la siguiente:
PushService := TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.FCM);
ServiceConnection := TPushServiceConnection.Create(PushService);
ServiceConnection.Active := True;
ServiceConnection.OnChange := OnServiceConnectionChange;
ServiceConnection.OnReceiveNotification := OnReceiveNotificationEvent;
El cambio se centra en la siguiente línea:
PushService := TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.FCM);
pasando de TPushService.TServiceNames.GCM a TPushService.TServiceNames.FCM
Espero les sirva.
Saludos