JSON & Delphi XE5

[Lemmy]

Hi,

ja, XE5 bietet eine eigene Json Implementierung - wenn ich mich richtig erinnere uses Rest.Json; Zumindest gestern hat das recht gut funktioniert

Grüße

[jaenicke]

In der Unit Data.DBXJSONReflect gibt es TJSONMarshal und TJSONUnMarshal. Man beachte, dass dabei wegen TEncoding keine TStringList direkt gemarshalled werden kann, dafür gibt es TSerStringList.

Das ist aber auch nicht neu in XE5.
// EDIT:
Ach so, ja die Kapselung in Rest.Json kann neu sein, die hatte ich vorher zumindest nicht gesehen. Die Einschränkung bzgl. TEncoding gilt da genauso, weil die auch nur TJSONMarshal usw. nutzt.

[Gloegg_FHBI]

Das hier sollte auch unter XE5 funktionieren:
https://bitbucket.org/Gloegg/delphi-xe-json

Bei dem eingebauten DBXJSON schreckt mich immer das viele rumgecaste ab.

Delphi-Quellcode:

procedure ParseJson;
var
  LJsonArr   : TJSONArray;
  LJsonValue : TJSONValue;
  LItem     : TJSONValue;
begin
   LJsonArr    := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(StrJson),0) as TJSONArray; // soft cast
   for LJsonValue in LJsonArr do
   begin
      for LItem in TJSONArray(LJsonValue) do // hard cast
        Writeln(Format('%s : %s',[TJSONPair(LItem).JsonString.Value, TJSONPair(LItem).JsonValue.Value])); // 2x hard cast
     Writeln;
   end;
end;

[jaenicke]

Zitat von Gloegg_FHBI:

Das hier sollte auch unter XE5 funktionieren:
https://bitbucket.org/Gloegg/delphi-xe-json

Tut es, aber abgesehen davon, dass zusätzliche Abhängigkeiten natürlich immer ein Nachteil sind:
Ich finde dort so auf Anhieb keine Möglichkeit ein Objekt aus den JSON Daten zu erzeugen, sprich die Funktionalität des JSON Unmarshallers von Delphi selbst.
Das ist für uns aber die wichtigste Funktion.

[Gloegg_FHBI]

Ist jetzt etwas OT:

Zitat von jaenicke:

Ich finde dort so auf Anhieb keine Möglichkeit ein Objekt aus den JSON Daten zu erzeugen, sprich die Funktionalität des JSON Unmarshallers von Delphi selbst.
Das ist für uns aber die wichtigste Funktion.

Mittels TJSON.GeneratePODOUnit(aObject : IJSONObject); kann man sich eine unit generieren lassen, die das JSON-Objekt (oder Array) in eine Delphi-Klasse umwandelt, welches dann methoden SaveToJSON und LoadFromJSON bereitstellt.

[jaenicke]

Also geht es direkt nicht, ok. Also bleibt mir weiterhin nur die delphieigene Implementierung.

Für den Zweck, den RWarnecke verfolgt, sollte die Bibliothek allerdings ausreichen, ja.

[RWarnecke]

Hallo zusammen,

danke erstmal für die vielen Antworten. Ich habe jetzt nochmal rumprobiert und die Beispiele in den verschiedenen Links ausprobiert. Leider steige ich hinter das Prinzip von JSON nicht. Gibt es nicht irgendwie eine Library, wo ich nur den JSON Text übergebe und mir die Daten in ein ClientDataSet zum Beispiel übergeben werden. Denn ich habe noch nicht verstanden, wann ist was ein TJSONArray oder ein TJSONObject.

Edit:
So nach ewigen rumprobieren, habe ich es geschafft Daten aus dem JSON-Format auszulesen. Entweder in einer Schleife oder auch einzeln. Als Unterstützung habe ich die Superobject Library genommen. Jetzt bleibt nur noch eine Frage übrig, wie kann ich programmtechnisch abfangen, wenn ich zum Beispiel ein Array anzeigen lassen will ? Gibt es da eine Funktion in der SuperObject Library ?