Einzelnen Beitrag anzeigen

Kostas

Registriert seit: 14. Mai 2003
Ort: Gerstrhofen
1.095 Beiträge
 
Delphi 10 Seattle Enterprise
 
#6

AW: Fehler: Java-Klasse JGoogleCloud-Messaging wurde nicht gefunden.

  Alt 28. Mär 2018, 12:23
Hallo Zusammen,

die Nachricht kommt noch nicht an.
[Edit] Die Nachricht versende ich übrigens über console.firebase.google.com. Aus dem Video habe ich ersteinmal NUR das Android Projekt umgesetzt!

Ich arbeite gerade dieses Beispiel durch: https://www.youtube.com/watch?v=XE7dV5Devco

Die DeviceID wird nach Patch abgerufen. Der DeviceToken ist leer. Ich bekomme eine Exception "EJNIException mit der Meldung 'Java.io.IOException: MAIN_TREAD'"
sobald ich versuche AServiceConnection.Active:=True; zu setzen.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const
  Senderid: String = '383490665090';
var
  ADeviceID, ADeviceToken: string;
begin
  APushService := TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.GCM);
  APushService.AppProps[TPushService.TAppPropNames.GCMAppID]:=SenderID;
  AServiceConnection:=TPushServiceConnection.Create(APushService);
  AServiceConnection.Active:=True; <<< hier kommt die Exception
  AServiceConnection.OnChange := OnChange;
  AServiceConnection.OnReceiveNotification := OnReceiveNotificationEvent;
  ADeviceID := APushService.DeviceIDValue[TPushService.TDeviceIDNames.DeviceID];
  ADeviceToken := APushService.DeviceTokenValue[TPushService.TDeviceTokenNames.DeviceToken];

  Memo1.Lines.Add('DeviceID = ' + ADeviceID);
  Memo1.Lines.Add('DeviceToken = ' + ADeviceToken);

end;

Hat jemand eine Idee?
Gruß Kostas

Geändert von Kostas (28. Mär 2018 um 12:25 Uhr)
  Mit Zitat antworten Zitat