RTC Forums

procedure TDMRTC_GF.SendMobileNotification(const ADestino, AMessage: String);
begin
  RtcDataRequest.Request.Method := 'POST';
  RtcDataRequest.Request.FileName:='/fcm/send';
  RtcDataRequest.Request['Content-Type']:='application/json';
  RtcDataRequest.Request['Authorization']:='key=<insert my google key here>'; // here come your key
  With RtcDataRequest.Request.Info.newRecord('data') do begin
    asText['to']:= ADestino;
    with newRecord('data') do
      asText['message'] := AMessage;
    end;
  RtcDataRequest.Post;
end;

procedure TDMRTC_GF.RtcDataRequestBeginRequest(Sender: TRtcConnection);
begin
  With TRtcDataClient(Sender) do
    Write(Request.Info.asJSON['data']);
end;

procedure TDMRTC_GF.RtcDataRequestDataReceived(Sender: TRtcConnection);
var S: String;
begin
  With TrtcDataClient(Sender) do
    If TrtcDataClient(Sender).Response.Done then begin
      S := TrtcDataClient(Sender).Read;
      CodeSite.Send( csmLevel4, 'Google Response', S);
    end;
end;