Wie aus diesem JSON object erstellen?

[Hobbycoder]

Der Titel ist recht allgemein, aber ich weiß nicht wirklich wie ich das betiteln soll.

Gegeben ist folgender JSON-String:

Code:

[
   {
      "id":1,
      "attributes":{
         "notificationTokens":"bliblablup",  //<-----
         "color.background":"#yellow"        //<-----
      },
      "name":"admin",
      "login":"",
      "email":"admin",
   },
   {
      "id":4,
      "attributes":{
         "notificationTokens":"bliblablup",  //<-----
         "enabled":true  //<-----
      },
      "name":"user1",
      "login":"",
      "email":"[e-mail]",
   },
   {
      "id":5,
      "attributes":{
                                             //<-----
      },
      "name":"user2",
      "login":"",
      "email":"[e-mail]",
   }
]

Im Grunde ist das ja ein Array. Das läßt sich in einer TList "TUsers" halten.
Die Klassenstructur könnte so aussehen:

Delphi-Quellcode:

  TUser=class
    property id: Integer;
    property attributes: ??;     //<--Hier weiß ich nicht was ich nehmen soll.
    property name: string;
    property login: string;
    proeprty email: string;
  end;

mein Problem sind die "attributes". Ich weiß nicht was ich da nehmen soll, beziehungsweise wie ich das geschickt parsen kann (idealerwiese sollte das in beide Richtungen gehen (JSON->Object und Object->json). Es können unterschiedliche Datentypen enthalten sein (Integer, string, boolean), unterschiedliche Anzahl der attributes oder auch leer, wie im Beispiel.
Und es ist kein Array, sondern, wo wie ich das erkenne, nur ein Object.
Wie könnt man das behandeln? Oder kann ich das nur zu Fuß machen.

[Der schöne Günther]

Du hast dir deine Antwort doch schon selbst gegeben, es ist ein Objekt.

Die in der Delphi RTL vorhandene JSON-Serialisierung geht auf die Felder, nicht auf die Properties. Außerdem setzt sie zwingend voraus dass jeder Mensch die Namen der Felder immer mit einem F beginnt. Tust du das nicht, funktioniert es nicht. Oder man sagt explizit mit einem Attribut dass man es ernst meint.

Delphi-Quellcode:

unit Unit1;

interface uses Rest.JSON.Types;

type
   TUserAttributes = class
      [JSONName('notificationTokens')]
      notificationTokens: String;
      [JSONName('color.background')]
      color_background: String;
   end;

   TUser = class
      [JSONName('id')]
      id: Integer;
      [JSONName('attributes')]
      attributes: TUserAttributes;
      [JSONName('name')]
      name: string;
      [JSONName('login')]
      login: string;
      [JSONName('email')]
      email: string;

      constructor Create();
      destructor Destroy(); override;
   end;

implementation

constructor TUser.Create();
begin
   inherited;
   attributes := TUserAttributes.Create();
end;

destructor TUser.Destroy();
begin
   attributes.Free();
   inherited;
end;

end.

Das lässt sich herrlich hin- und her konvertieren:

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.JSON,
  Rest.Json,
  Unit1 in 'Unit1.pas';

const
   input =
      '   {'+
      '      "id":1,'+
      '      "attributes":{'+
      '         "notificationTokens":"bliblablup",'+
      '         "color.background":"#yellow"'+
      '      },'+
      '      "name":"admin",'+
      '      "login":"",'+
      '      "email":"admin"'+
      '   }';
var
   user: TUser;
   asJsonObject: TJsonObject;
begin
   user := TJson.JsonToObject<TUser>(input);
   asJsonObject := TJson.ObjectToJsonObject(user);
   WriteLn( TJson.Format(asJsonObject) );

   readln;
end.

[Hobbycoder]

ja, du hast recht. Aber vielleicht habe ich mich auch etwas unglücklich ausgedrückt. (Liegt mitunter an der Zeit, die man sich damit beschäftigt)

Ich könnte attributes zu einem einfachen Objekt machen. Nur leider ist das ein Art Property-List, die vom User beliebig erweitert werden kann.
Heute steht da nur:

Code:

      "attributes":{
         "notificationTokens":"bliblablup", 
         "color.background":"#yellow"       
      },

morgen kann es dann auch schon so aussehen.

Code:

      "attributes":{
         "notificationTokens":"bliblablup", 
         "color.background":"#yellow",      
         "meineSchugroesse":42
      },

Klar kann ich nicht vorhandene Properties ignorieren und bei starrem Objectdesign neue Properties ignorieren. Aber das würde ich gerne nicht tun.

[Uwe Raabe]

Dann mach doch TUserAttributes mit z.B. einer TStringList als Name-Value Storage und registriere einen eigenen Interceptor, der die Umwandlung aus JSON implementiert.

[Hobbycoder]

Zitat von Uwe Raabe:

Dann mach doch TUserAttributes mit z.B. einer TStringList als Name-Value Storage und registriere einen eigenen Interceptor, der die Umwandlung aus JSON implementiert.

Tolle Idee. Hab ich noch nie was von gehört. Wie geht denn sowas?

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