JSON mit Indy verschicken -> Fehler

[michaelg]

Hallo,

sorry, wenn ich das Thema noch mal aufreisse, ich habe aktuell ein ähnliches Problem. Ich bekomme beim Versenden von Pushnachrichten per FCM einen "json parse error: unexcepted Character at ...". Das ist immer der erste Buchstabe des Parameters aMessage. Das Problem tritt auf, sobald mindestens ein Leerzeichen in der Message ist.

Schicke ich "Bitte ruf mal an", kommt der Fehler mit Hinweis auf den Buchstaben B.
Schicke ich "Bitterufmalan" oder "Bitte_ruf_mal_an", kommt kein Fehler und die Nachricht geht einwandfrei durch.

Meine Vermutung: Es muss irgendwas mit der Codierung der Zeichen zu tun haben. Aber ich steh hier seit heute morgen mit einem Brett vorm Kopf. Das kann nur eine Kleinigkeit sein, aber ich sehe sie nicht.

Noch ein Hinweis: Von der Firebase-Console kommen Pushnachrichten einwandfrei in meiner App an, auch wenn sie Leerzeichen beinhalten.

Hier der Quelltext der kleinen Funktion:

Code:

function PushSend(aToDeviceToken:String;aNick:String;aMessage:String):Boolean;
var
  idHTTP:tIdHTTP;
  IdIOHandler:TIdSSLIOHandlerSocketOpenSSL;
  jSonString:String;
  jSonToSend:tStringStream;
  response:String;
begin
  result:=True;
  IdHTTP := TIdHTTP.Create(nil);
  try
    IdIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
    IdIOHandler.SSLOptions.Method := sslvSSLv23;
    IdHTTP.Request.BasicAuthentication:=False;

    IdHTTP.IOHandler := IdIOHandler;

    IdHTTP.Request.ContentType := 'application/json';
    IdHTTP.Request.Charset := 'UTF-8';
    IdHTTP.Request.CustomHeaders.Values['Authorization'] := 'key='+MG_SERVERKey;

    jsonString := '{"to" : "'+atoDeviceToken+'",' +
                   '"data" : {' +
                   '"nick" : "'+aNick+'",' +
                   '"body" : "'+aMessage+'",' +
                   '"room" : "Testraum"' +
                   '},}';

    JsonToSend := TStringStream.Create(jsonString,TEncoding.UTF8);
    try
      response := IdHTTP.Post('https://fcm.googleapis.com/fcm/send', JsonToSend);
      response := response.Replace(#10, '');
    except
      on E: EIdHTTPProtocolException do begin
        response := e.ErrorMessage;
        result:=false;
      end;
    end;
    showmessage('Response:'+response);
  finally
    IdHTTP.Free;
  end;

Ich habe

Code:

ContentEncoding='utf-8';

auch bereits mal gesetzt.

Und ich habe den Stringstream auch schon durch einen tStream ersetzt und bin genauso vorgegangen wie in dem vorangegangenen Post. Trotzdem kommt der Fehler immer, sobald in der Message ein Leerzeichen ist.

Kann mir jemand einen Schups geben?

[Der schöne Günther]

Aufgrund des Syntax-Fehlers (letzte Zeile des Strings) wundert es mich dass das überhaupt durchkommt.

PS: Geh doch mal mit dem Debugger durch, was wirklich konkret in deinen Variablen drin steht. Ich würde so ein Json-Objekt echt nicht per Hand durch Strings zusammenbauen sondern das mit uses System.Json machen, da muss man sich um das Maskieren von Sonderzeichen in Strings auch nicht mehr kümmern.

[michaelg]

Du meinst das Komma, ok, hab ich rausgenommen. Daran lag es nicht, das hat er tatsächlich gefressen.

Ich hab den Fehler gefunden, aMessage wurde komischerweise bereits mit Anführungszeichen übergeben, so stand im json dann

"body" : ""Bitte ruf mal an""

Die Message kam aus einem tMemo. Ich hatte den Inhalt unüblicherweise mit eMemo.lines.commatext ausgelesen und der fügt wohl selbst Anführungszeichen dazu, wenn Leerzeichen im String sind. War mir auch neu, aber ein blöder Nebeneffekt, der dann die Ursache für den Fehler war. Hab mir den Inhalt zig mal angesehen und immer übersehen.

Die Funktion ansich ist also völlig ok. Danke für die Hilfe und sorry.

[himitsu]

.CommaText nutzt .DelimitedText und das achtet auf die Einstellung von .StrictDelimiter, was bei dir besser True sein sollte.
Denn standardmäßig reagiert .DelimitedText nicht nur auf das DelimiterChar, sondern auch auf #1 bis ' ' und somit werden diese Zeichen standardmäßig ebenfalls gequotet.

Wie auch beim manuellen Zusammenbauen von SQL-Queries würde ich davon abraten das " hart im Text einzubauen und stattdessen QuoteString die passende Quote-Funktion zu benutzen. (eine, welche nach der Syntax von C-Strings quoted und nicht wie QuoteString nach der Syntax von Pascal)

Oder du machst es gleich richtig und nutzt parametrisierte Funktionen, also eine JSON-Klasse, um damit den JSON-String zu generieren.

[HolgerX]

Hmm..

und wenn doch ein " im Text sein soll, dann muss der Escaped werden, wie auch einige andere Zeichen!

Unten auf
https://www.json.org/

sind die Zeichen aufgelistet!