需要帮助以了解此函数为何返回null

问题描述

我正在编写一个Delphi Android应用程序以使用Google Push。

这是有问题的功能。它总是返回null：

var
  PushService: TPushService;
  Notifications: TArray<TPushServiceNotification>;
  ServiceConnection: TPushServiceConnection;
begin
  PushService := TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.Gcm);
  Memo1.Lines.Add('PushService');
  if not assigned(PushService) then
    Memo1.Lines.Add('PushService error')
  else begin
    Memo1.Lines.Add('PushService ok');
    PushService.AppProps[TPushService.TAppPropNames.GCMAppID] := '543546532983';
    ServiceConnection := TPushServiceConnection.Create(PushService);

解决方法

TPushService.TServiceNames.Gcm（Google云消息传递）已过时，因为Google不再提供该服务。您需要改用TPushService.TServiceNames.FCM（Firebase云消息传递）。

有关如何在应用程序中注册，配置和使用FCM的详细信息，请参见Embarcadero文档中的Firebase Android Support。