JSON String to Object mit factory

[TigerLilly]

Ärgerlich. Ich habe beim Recherchieren einen Artikel gelesen, in dem (mit Code) beschrieben wurde, wie aus einem JSON String, der Daten für unterschiedliche Objekte enthält, mittels einer Factory die Klassen erzeugt werden. Jetzt finde ich den Artikel nicht mehr. :-(

Der Trick war wohl, den Klassennamen in das JSON mit aufzunehmen und für die Klassenerzeugung zu nutzen. So konnten sehr elegant auch verschachtelte Klassen in einem Rutsch wiederhergestellt werden.
Kennt jemand zufällig den Link/Artikel?

Danke im Voraus. :thumb:

[TiGü]

Zitat:

Zitat von TigerLilly (Beitrag 14202)

Kennt jemand zufällig den Link/Artikel?

Danke im Voraus. :thumb:

Was meint denn dein Browserverlauf dazu?

[TigerLilly]

:shock: Browserverlauf? Wasn das?

Nein, so einfach ist es leider nicht. Ist ein paar Tage her + mein Browserverlauf ist ein Verlauf, soll heißen, da verlaufen sich alle Spuren.

[sh17]

Deutsch oder Englisch? Schon mal google mit diversen Fragen bemüht? "JSON Delphi instantiate class name"

[Dennis07]

Da JS Ducktyped ist, also du überhaupt keine "Klassen" im ängeren Sinne hast, geht das leider nicht so ohne weiteres. Du müsstest halt vorher genau definieren, bei welchem Property-Set welche Klasse benutzt werden soll. Diese musst du vorher dann registrieren. Delphi erlaubt kein Erzeugen anonymer Klassen zur Laufzeit (zumindest nicht so einfach). Das Mappen einer JSON auf ein Klassenobjekt hingegen ist aber denkbar einfach: Entweder du benutzt JsonToObject (falls das so hieß, kann auch sein dass ich den Namen jetzt nicht mehr genau im Kopf hab), oder du iterierst das selber, mit einem der unzähligen JSON-Parsern/Lexern, die Delphi hat oder die es im Internet gibt.

[Schokohase]

Das Zauberwort ist polymorphic und damit lässt sich dann für Delphi das finden

GRIJJY Blog: Efficient and easy-to-use JSON and BSON library (sieht Abschnitt Polymorphism)

Delphi-Quellcode:

var
  Dog: TDog;
  Animal, Rehydrated: TAnimal;
  Json: String;
begin
  Dog.Weight := 30;
  Dog.FurColor := 'Blond';
  Animal := Dog;
  TgoBsonSerializer.Serialize(Animal, Json); // Result:
  // { "_t" : "TDog", "Weight" : 30.0, "FurColor" : "Blond" }

  TgoBsonSerializer.Deserialize(Json, Rehydrated);
  // This will actually create a TDog instance (instead of TAnimal)
end;

[TigerLilly]

Danke für die vielen Hinweise, aber das war´s leider nicht. :- (

Aber kein Problem, ich weiß ungefähr worum´s ging + das ist das wichtigste. Danke trotzdem. :thumb: