Deserialisierung eines Json-Strings

[Ralle1]

Hallo!
Ich bin auf der Suche nach einer eleganten Lösung, wie ich beliebige Json-Strings in Klassen deserialisieren kann. Unten ein Beispiel, wie ich es z.Z. löse. Leider muss dann jede Klasse die FillFromJson Methode haben. Gibt es nicht via Spring4D Möglichkeiten, das zu automatisieren?

Delphi-Quellcode:

type
  TRequest = class
    Code : integer;
    Message : string;
    procedure FillFromJson(Json: string);
  end;


procedure TRequest.FillFromJson(Json: string);
var
  JsonObject : TlkJSONObject;
begin
  if Json='' then exit;
  JsonObject := TlkJSON.ParseText(Json) as TlkJSONobject;
  if not Assigned(JsonObject) then exit;
  try
    Code := StrToIntDef(GetFieldValueAsString('Code'), 0);
    Message := GetFieldValueAsString('Message');
  finally
    JsonObject.Free;
  end;
end;

[jaenicke]

Was möchtest du erreichen? Bestehende Klassendefinitionen benutzen und mit den Daten füllen? Dazu findest du z.B. hier etwas:
http://www.danieleteti.it/2009/09/01...n-delphi-2010/

[mjustin]

Zitat:

Zitat von Ralle1 (Beitrag 1276236)

Hallo!
Ich bin auf der Suche nach einer eleganten Lösung, wie ich beliebige Json-Strings in Klassen deserialisieren kann.

SuperObject kann ab Delphi 2010 Objekte direkt über RTTI serialisieren.

Codebeispiele:

https://code.google.com/p/superobjec...705abe94f1ebf6

http://stackoverflow.com/questions/1...-of-properties

Habe damit aber noch nicht selber gearbeitet.

[Sir Rufo]

Da gibt es auch was von Delphipharm
http://blogs.embarcadero.com/stephen...-line-of-code/

[Der schöne Günther]

Und dabei ganz besonders den Kommentar von Herrn Monien beachten. Dazu auch mein passendes Thema: http://www.delphipraxis.net/182105-f...unmarshal.html

[Ralle1]

ich muss wohl noch dazu sagen, dass ich in XE2 unterwegs bin.

REST.JSON Unit ist somit leider für mich aus dem Rennen :-(
Aber genau sowas suche ich! SuperObject klingt auch ganz passend, das werde ich mal testen.

Wenn jemand weitere sachdienlich Hinweise geben kann, immer gerne her damit :-D

[jaenicke]

Das von mir eingangs gepostete Marshalling funktioniert ab Delphi 2010. ;-)
Das nutzen wir auch.

[Ralle1]

Hört sich auch top an. Wird ausprobiert.

[Ralle1]

ich habe ein Problem beim UnMarshal.

das TJSONUnMarshal.UnMarshal erwartet einen Json inkl "type" und "id".
Type ist soweit kein Problem. Aber woher kriege ich eine ID ?

Wenn ich ein Objekt erzeuge und daraus einen String generiere, sieht es so aus:

{"type":"UnitRequest.TRequest","id":1,"fields":{"M essage":"Hier ein Text","Code":401}}

Mache ich daraus wieder ein Objekt, funktioniert es wunderbar.
Nur bekomme ich aus dem Fremdsystem nur folgenden String:

{"Message":"Hier ein Text","Code":401}

Setze ich type/id/fields manuel drum herum, knallt es bei mir.

Kann mir jemand auf die Sprünge helfen ?

Danke!!!