Delphi Xe8 , 如何获取 android 设备令牌？

Question

我注册了Google云消息(GCM)系统。我正在使用 Delphi Xe8 .

我需要获取 android 设备令牌以使用 gcm 发送通知。

但是我不知道设备令牌。

如何获取设备令牌？

Answer 1

您可以使用以下代码获取 DeviceID 和 DeviceToken...

var 

    ADeviceID, ADeviceToken : String; 

begin

    APushService := TPushServiceManager.Instance.GetServiceByName( TPushService.TServiceNames.GCM );
    APushService.AppProps[ TPushService.TAppPropNames.GCMAppID ] := '123...GCMAppID...456';  // Your GCM App ID
    AServiceConnection := TPushServiceConnection.Create( APushService );
    AServiceConnection.Active   := True;
    AServiceConnection.OnChange := OnServiceConnectionChange;
    AServiceConnection.OnReceiveNotification := OnReceiveNotificationEvent;
    ADeviceID    := APushService.DeviceIDValue[ TPushService.TDeviceIDNames.DeviceID ];
    ADeviceToken := APushService.DeviceTokenValue[ TPushService.TDeviceTokenNames.DeviceToken ];
end;

Answer 2

  p : TJavaObjectArray<JString>;
begin
  gcm :=   TJGoogleCloudMessaging.JavaClass.getInstance(SharedActivity.getApplicationContext);
  p := TJavaObjectArray<JString>.Create(1);
  p.Items[0] := StringToJString('GCM Project Id');
  Memo1.Lines.Add(JStringToString(gcm.register(p)));
end;

Answer 3

如果您遵循本手册http://docwiki.embarcadero.com/RADStudio/XE8/en/Multi-Device_Application_to_Receive_Push_Notifications

然后在本手册中您从 PushEvents1 创建事件的那一点您可以通过此代码获取 Devicetoken。

procedure TForm1.PushEvents1DeviceTokenReceived(Sender: TObject);
begin
ShowMessage('Devicetoken received');
ShowMessage(PushEvents1.BindSource.Adapter.PushSender.DeviceToken);
end;

Delphi Xe8 , 如何获取 android 设备令牌？

Delphi Xe8 , How to get android device token?

delphi

google-cloud-messaging

android-devicetoken

delphi-xe8