Hallo zusammen,

ich bin auf der Suche nach einer Möglichkeit JSON-Daten zu verarbeiten. Ich habe auch schon verschiedene Library's gefunden, die waren aber alle nicht Delphi XE5 kompatibel. Jetzt ist meine Frage, kennt Ihr eine Delphi-Library, die mit Delphi XE5 funktioniert und eventuell kostenlos ist ?

Mit einem REST-Client habe ich es auch schon probiert, hatte aber leider keinen Erfolg dabei die Daten abzurufen. Habe immer den Fehler 403 bekommen. Sollte es nur über einen REST-Client gehen, dann wäre es nett, wenn Ihr mir ein paar Links zu Tutorials für Delphi XE5 zur Verfügung stellen könntet.

SuperObject sollte auch mit XE5 kompatibel sein. superobjrct auf googlecode

War nicht das JSON eine DER NEUERUNGEN in XE5? Außer Android natürlich...

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

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.

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.

zusammenfalten · markieren

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;