Objectlist Serialisieen und Deserialisieren mittels Rest.Json

[kompi]

Hallo zusammen,

ich versuche, mittels Rest.Json Objekte zu serialisieren und deserialisieren. Diese Objekte stammen alle von einem Basisobjekt ab. Einige dieser Objekte habe Subobjekte, die eine Objectlist enthalten.

Delphi-Quellcode:

  TKeyValue = class
    private
      fname : string;
      fvalue : Tvalue;
      function getasstring : string;
      procedure setasstring(avalue : string);
      function getname : string;
      procedure setname(aname : string);
      function getasextended : Extended;
      procedure setasextended(avalue : Extended);
      function getasinteger : Integer;
      procedure setasinteger(avalue : Integer);
    public
      constructor Create; overload;
//      constructor Create(Aname : string); overload;
      property Asstring : string read getasstring write setasstring;
      property AsExtended  : Extended read getasextended write setasextended;
      property AsInteger   : Integer  read getasinteger write setasinteger;
      Property Name : string read getname write setname;
  end;

type
  JsonObjectListKeyValueAttribute = class(JsonObjectListAttribute<TKeyValue>)
  end;

type
  [JsonObjectlistKeyValue]
  TkeyValueElements = class(TObjectlist<TKeyValue>)
  end;

type
   TKeyValueListe = class
     private
      [JSONOwned(false),JsonObjectListKeyValue]
      FABWElements : TkeyValueElements;
      fname : string;
      [JSONOwned(false),JsonStrings]
      fstringlist : Tstringlist;
         function checkstring(AValue: string): Boolean;
      function searchinliste(aname : string) : TKeyValue;
      function getvalue(aindex : string) : TKeyValue;
      procedure setvalue(aindex : string; avalue : TKeyValue);
      function getvalueatindex(aindex : integer) : TKeyValue;
      function getname : string;
      procedure setname(aname : string);
      function gettostring(adelimiter : string) : string;
      function gettodelimstring : string;
      function gettostringcomplete(adelimiter : string) : string;
      function gettodelimstringcomplete : string;
      procedure settostringcomplete(adelimiter : string; avalue : string);
      procedure settodelimstringcomplete(avalue : string);
      function gettostringlist : tstrings;
      procedure settostringlist(astring : Tstrings);
    public
      constructor Create; overload;
      constructor Create(Aname : string); overload;
      destructor Destroy; override;
      procedure assign(Akeyvalueliste : Tkeyvalueliste);
      procedure add(aname, avalue: string); overload;
      procedure add(aname: string; avalue: integer); overload;
      procedure add(aname: string; avalue: extended); overload;
      procedure Reset;
      function Count : integer;
      property TostringList : Tstrings read gettostringlist write settostringlist;
      property Value[aindex : string] : TKeyValue read getvalue write setvalue;default;
      property Valueatindex[aindex : integer] : TKeyValue read getvalueatindex;
      Property Name : string read getname write setname;
{$WARNINGS off}
      Property Tostring[adelimiter : string] : string read gettostring;
{$Warnings on}
      Property Todelimstring : string read gettodelimstring;
      Property Tostringcomplete[adelimiter : string] : string read gettostringcomplete write settostringcomplete;
      Property Todelimstringcomplete : string read gettodelimstringcomplete write settodelimstringcomplete;
  end;

Ich bin genauso vorgegangen, wie Uwe Raabe dies mal hier gepostet hat. Ich verwenden sich seine Unit Rest.Json.Helpers von github ohne Änderungen.
Es geht um das Feld Fabwelements. Dies ist eine Objectlist von Tkeyvalue. Immer, wenn Elemente in dieser Objectlist vorhanden sind, erhalte ich beim Verlassen des TypeObjectsConverter die Meldung "tkpointer wird nicht unterstützt". Das Subobjekt ist im übrigen oben angezeigt.
Mache ich hier noch etwas falsch?
Gruß Kompi

[Uwe Raabe]

Ich kann das jetzt damit nicht nachstellen, weil halt noch so einiges fehlt, aber hast du die Unit REST.Json.Types in der uses-Anweisung? Andernfalls solltest du beim Compilieren eine Warnung W1074 Unbekanntes benutzerdefiniertes Attribut erhalten und dann funktioniert das JSONOwned nicht.

[fisipjm]

Du nutzt eine "normale" `Objectlist`. Uwe hat in der Github beschreibung eine `JsonObjectList`, liegt darin vielleicht schon das Problem?

[kompi]

Ich habe die Unit Rest.Json.types eingebunden. Die Warnung benutzerdefiniertes Attribute erscheint auch nicht. Es lässt sich alles kompilieren, nur es kommt beim Ausführen die Exception Tkpointer wird nicht unterstützt.
Dies kommt immer, wenn in der Objectlist ein Objekt vom Typ Tkeyvalue enthalten ist und der Converter verlassen wird.

Gruß Kompi

[Uwe Raabe]

Nee, das passt schon. JsonObjectList ist das Attribut was man ableiten muss und das hat er ja auch getan. Der Code entspricht strukturell schon dem aus dem Readme. Das hatte allerdings auch noch einen Fehler (die Klasse heißt JsonObjectListAttribute), aber den hat sicher der Compiler gemeldet, denn der Code ist soweit korrekt.

Wenn es also nicht an der fehlenden Unit liegt, dann hätte ich gerne einen reproduzierbaren Testfall in Form eines minimalen Projekts.

Übrigens ist das JsonObjectListKeyValue bei den Feld-Attributen redundant, da es ja schon bei der Klasse TkeyValueElements angegeben ist.

[Uwe Raabe]

Ich sehe schon woran es liegt: Ein TValue Feld lässt sich nicht in JSON umwandeln. Das hat erstmal nichts mit den Listen zu tun, sonder damit dass TValue ein record ist und neben einem Pointer, einem Interface auch noch einen varianten Record-Teil hat.

[kompi]

Hallo zusammen,

ich kann bestätigen, dass es an der Tvalue-Variablen fvalue lag. Ich habe dieses Feld in einen String verwandelt, und nun funktioniert es, wie es soll.
Da wäre ich selbst nicht drauf gekommen.

Noch mal Danke an alle.

Gruß Kompi

[Uwe Raabe]

Wenn ich demnächst etwas Zeit finde, werde ich mal schauen, ob man das mit einem passenden Converter lösen kann.