Ich würde das Ganze erstmal ohne Service probieren, damit Du weisst, dass Dein Code in Ordnung ist...
btw. Klarstellung zu SuperMulti81's Text : Der Token, den Du in der App bekommst, wenn der User diese startet, musst Du nicht beim User ablegen, sondern auf Deinem Server, damit Du weisst, wem Du das schicken sollst.
Das Versenden geht ja eigentlich über einen http-Aufruf (ich hatte das mal mit RealThinClient gemacht) :
Delphi-Quellcode:
RtcDataRequest.Request.Method := 'POST';
RtcDataRequest.Request.FileName:='/fcm/send';
RtcDataRequest.Request['Content-Type']:='application/json';
// Das ist Dein key, den Du von Google für FCM bekommst (keine Angst, das ist nicht meiner ;)
RtcDataRequest.Request['Authorization']:='key=AAACFWjzosA:APA31bH60XgRU6QGoN8PQ0-1CUROMSZVGThqz5nS3yCfIrMeWMiFJjslg6l7geF_P9fB8f__hzbSZt8rIq0NrDOmRKxpk2pVM9mTvav8OHtjzcKFEmViGFobEuPzvBZlGA7ootKV8j0E';
With RtcDataRequest.Request.Info.newRecord('data') do begin
asText['to']:= ADestino; // hier kommt der Token rein, den Du für deinen Empfänger hast
with newRecord('data') do
asText['message'] := AMessage; // hier Deine Nachrichten-Text
end;
RtcDataRequest.Post;