Forum: Netzwerke
by DeddyH,
22. Nov 2022
Sicher, dass es nicht knallt, wenn Du ein "Kind-JSONObjekt" selbst freigibst?
Forum: Netzwerke
by DeddyH,
22. Nov 2022
SuperObject
System.JSON (gab es wohl bereits unter XE7)
Forum: Netzwerke
by DeddyH,
21. Nov 2022
Du solltest das JSON-Objekt nicht händisch zusammenbasteln wie im Beispiel, sondern eine Bibliothek dafür verwenden. Ich weiß nicht mehr, ob es System.JSON unter XE7 bereits gab, aber alternativ kannst Du ja einmal nach SuperObject googlen.
Forum: Netzwerke
by DeddyH,
21. Nov 2022
Mal tust Du zu wenig, mal zuviel. Wenn schon, dann mit einem TStringStream statt einer TStringList.
var
lParamList: TStringStream;
begin
lParamList := TStringStream.Create('',TEncoding.UTF8); // Fehlermeldung sollte jetzt verschwinden
lParamList.WriteString('{');
lParamList.WriteString('"message":"test message",');
lParamList.WriteString('"type":"TEST",');
...
Forum: Netzwerke
by DeddyH,
21. Nov 2022
Sind denn die Parameter für Accept und Content-Type richtig gesetzt (siehe mjustins Beitrag)?
HTTP.Request.Accept := 'application/json';
HTTP.Request.ContentType := 'application/json';
Forum: Netzwerke
by DeddyH,
21. Nov 2022
Dann hast Du wohl einen Fehler in Deinem Code. Da wir den aber nicht kennen, können wir auch nicht sagen, wo genau.
Forum: Netzwerke
by DeddyH,
21. Nov 2022
Was steht denn in Zeile 66?
Forum: Netzwerke
by DeddyH,
21. Nov 2022
Und so?
lParamList := TStringList.Create;
lParamList.Add('{');
lParamList.Add('"message":"test message",');
lParamList.Add('"type":"TEST",');
lParamList.Add('"sender":"self",');
lParamList.Add('"timestamp":"1424950740000"');
lParamList.Add('}');
Wenn das geht, ist der Aufbau des JSON-Objekts schon einmal korrekt, aber das sollte man nicht so machen, sondern besser eine...