Wie aus diesem JSON object erstellen?

[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.

[stephancramer]

OK, nicht ganz so.

ich hatte TUser in der gleichen Unit, also alles in einer Unit.
Jetzt habe ich TUser in eine eigene Unit ausgelagert und da geht es.

Danke für Deine Hilfe. Ich werde jetzt das Embarcadero Beispiel auch noch so testen, das ich das Objekt
in eine extra Unit auslagere.


Gruß Stephan.