Wie aus diesem JSON object erstellen?

[Hobbycoder]

Okay, hab was gefunden "REST.Json.Interceptors.TArrayInterceptor"

Auf der Hilfeseite steht natürlich: "Embarcadero Technologies does not currently have any additional information."

[Der schöne Günther]

Ich versuche auch seit 10 Minuten Doku zu finden wie man einen eigenen Converter/Reverter da reinschraubt, habe jetzt aber ehrlich gesagt auch aufgegeben. Es sollte gehen, aber ich wüsste spontan auch nicht wie.

[Hobbycoder]

Vielleicht muss ich mir das mal näher ansehen: Synopse mORMot Framework
Ich hab da keinerlei Erfahrung mit. Aber vielleicht läßt es sich damit leichter umsetzen. Normalerweise verwende ich gerne Hausmittel, die, so Gott will, in späteren Version auch noch unterstützt werden.

[Uwe Raabe]

Zitat von Der schöne Günther:

Ich versuche auch seit 10 Minuten Doku zu finden wie man einen eigenen Converter/Reverter da reinschraubt, habe jetzt aber ehrlich gesagt auch aufgegeben. Es sollte gehen, aber ich wüsste spontan auch nicht wie.

Guckst du hier: Serializing Objects with TJson

[stephancramer]

Hallo,

der Thread ist zwar schon sehr alt, aber ich versuche es trotzdem mal ob ich eine Antwort bekomme.

Bei mir funktioniert das Beispiel von oben nicht. Ich bekommen immer die gleiche Fehlermeldung, siehe Anhang.

Ich habe schon mehrere Beispiele probiert, auch von der Embarcadero-Seite probiert, immer das gleiche.
http://docwiki.embarcadero.com/RADSt...nutzerobjekten

Bin ziemlich an verzweifeln. Objekte zu JSON funktioniert.
Vielleicht kann mir jemand helfen, was ich falsch mache.

Gruß Stephan.

[TiGü]

Hast du das Beispiel vom schönen Günther aus Beitrag #2 eins zu eins umgesetzt?
Geht bei in 10.4.2 ganz tadellos.

[stephancramer]

Danke für die schnelle Antwort.

Ja habe ich, erst mit 10.0 und jetzt nochmal mit 10.4.2 (Testversion) als Konsolenanwendung probiert.
Auch das Beispiel von Embarcadero von meinen Link.

Delphi-Quellcode:

class function TJSONUnMarshal.ObjectInstance(Ctx: TRttiContext; TypeName: string): TObject;
var
  rType: TRttiType;
  mType: TRTTIMethod;
  metaClass: TClass;
begin
  [COLOR="Blue"]rType := ObjectType(Ctx, TypeName);[/COLOR]
  if (rType <> nil) then
    for mType in rType.GetMethods do
    begin
      if mType.HasExtendedInfo and mType.IsConstructor then
      begin
        if Length(mType.GetParameters) = 0 then
        begin
          // invoke
          metaClass := rType.AsInstance.MetaclassType;
          Exit(mType.Invoke(metaClass, []).AsObject);
        end;
      end;
    end;
  Exit(nil);
end;

An der blauen Zeile kommt immer nil zurück.

Gruß Stephan

[TiGü]

Zippe mal dein Projekt und lade es hier als Anhang hoch.