Delphi-PRAXiS - Mittels TJsonTextWriter ein TJSONObject erzeugen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Mittels TJsonTextWriter ein TJSONObject erzeugen (https://www.delphipraxis.net/195413-mittels-tjsontextwriter-ein-tjsonobject-erzeugen.html)

Kostas

26. Feb 2018 22:01

Delphi-Version: 10 Berlin

Mittels TJsonTextWriter ein TJSONObject erzeugen

HALT: Hat sich erledigt. Ich habe nur das falsche Objekt übergeben.

Hallo Zusammen,

ich verwende die Klasse TJsonTextWriter und erzeuge damit ein aufwendige JSON Struktur. Diese Struktur kann ich auch über ein TFileStream als Datei schreiben.
Dieses JSON benötige ich jetzt als JSONObject. Hat jemand eine Idee wie das geht?

Delphi-Quellcode:

			    OrdersJSON := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(sw.ToString), 0) as TJSONObject;
		

So geht es leider nicht OrdersJSON ist nil

Gruß Kostas

himitsu

27. Feb 2018 08:38

AW: Mittels TJsonTextWriter ein TJSONObject erzeugen

Warum nimmst du nicht gleich das ParseJSONValue, welches einen String nimmt?

http://docwiki.embarcadero.com/Libra...ON.TJSONObject

Aber ja, einige der Parse-Funktionen werfen keine Fehler ... sie geben einfach nix raus, wenn der JSONString nicht valide ist,
oder wenn weitere Zeichen/Bytes nach Ende des äußeren Nodes liegen.

Alle Zeitangaben in WEZ +1. Es ist jetzt 16:13 Uhr.