AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

ObjectList serialisieren JSON

Ein Thema von lxo · begonnen am 10. Nov 2021 · letzter Beitrag vom 19. Jan 2022
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.609 Beiträge
 
Delphi 12 Athens
 
#1

AW: ObjectList serialisieren JSON

  Alt 10. Nov 2021, 12:09
Ob das als Warnung oder Fehler kommt kannst du in den Projektoptionen unter Erzeugen - Delphi-Compiler - Hinweise und Warnungen - Ausgabewarnungen - Unbekanntes benutzerdefiniertes Attribut durch setzen des Werts auf True bzw. Fehler steuern.

Leider geht das aktuell nur projektweise.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
lxo

Registriert seit: 30. Nov 2017
294 Beiträge
 
Delphi 12 Athens
 
#2

AW: ObjectList serialisieren JSON

  Alt 10. Nov 2021, 12:56
Noch eine Frage hätte ich dazu.
Sehe ich das richtig das man nicht drum rum kommt, eine weitere Klasse zu erstellen die dann die ObjectList enthält? Also wie in meinem Fall die Klasse TPersonJSON?
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.609 Beiträge
 
Delphi 12 Athens
 
#3

AW: ObjectList serialisieren JSON

  Alt 10. Nov 2021, 13:01
Ja, das ist richtig. Ein JSON String, der nur aus der Liste besteht, stellt halt eine TJSONArray dar und kein TJSONObject. TJson.JsonToObject arbeitet aber nur mit einem TJSONObject.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
lxo

Registriert seit: 30. Nov 2017
294 Beiträge
 
Delphi 12 Athens
 
#4

AW: ObjectList serialisieren JSON

  Alt 10. Nov 2021, 13:49
Hmm.. wenn in den Klassen der ObjectList dann wieder ObjectList enthalten sind wäre das ja schon unschön.
Zum Beispiel, wenn wir Firma noch dazu nehmen, also eine Firma die mehrere Personen enthält.

Dann müsste ja die Klassenstruktur so aussehen damit dies wie gewünscht serialisiert wird oder?
TFirmaJSON.TFirmaList.TFirma.TPersonJSON.TPersonLi st.TPerson

Oder gibt es auch eine Möglichkeit eine Klasse abzuleiten von ObjectList<T> wo der Interceptor dran und von der Klasse dann meine ObjectLists zu abzuleiten, damit die Struktur dann so aussieht:
TFirmaList.TFirma.TPersonList.TPerson


https://docs.microsoft.com/de-de/dot...ots=dotnet-6-0
In c# wandelt der JsonSerializer wie ich das verstehe auch die Listen in JSONArrays um so wie das mit deinen Interceptor-Klassen dann auch wird.

Weißt du ob Embarcadero daran arbeitet das vielleicht auch so zu machen?
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.429 Beiträge
 
Delphi 12 Athens
 
#5

AW: ObjectList serialisieren JSON

  Alt 10. Nov 2021, 13:32
Moin...

ich hätte noch eine Variante für komplexe Objekte mit Listen <Txxx>:

Delphi-Quellcode:
class function TToolsJson.JsonFromObject(aValue: TObject): string;
var
  MarshalObj: TJSONMarshal;
  JSONObject: TJSONObject;
begin
  Result := '';
  MarshalObj := TJSONMarshal.Create;
  try
    JSONObject := MarshalObj.Marshal(aValue) as TJSONObject;
    try
      if Assigned(JSONObject) then
        Result := JSONObject.ToString;
    finally
      JSONObject.Free;
    end;
  finally
    MarshalObj.Free;
  end;
end;

class function TToolsJson.ObjectFromJson(aJson: string): TObject;
var
  UnMarshalObj: TJSONUnMarshal;
  JSONObject: TJSONObject;
begin
  Result := nil;
  UnMarshalObj := TJSONUnMarshal.Create;
  try
    // Todo: Json String welcher mit JsomFromObject erstellt wurde, wird nicht in JsonObject zurückgewandelt
    JSONObject := TJSONObject.ParseJSONValue(aJson) as TJSONObject;
    try
      if Assigned(JSONObject) then
        Result := UnMarshalObj.Unmarshal(JSONObject);
    finally
      JSONObject.Free;
    end;
  finally
    UnMarshalObj.Free;
  end;
end;
  Mit Zitat antworten Zitat
lxo

Registriert seit: 30. Nov 2017
294 Beiträge
 
Delphi 12 Athens
 
#6

AW: ObjectList serialisieren JSON

  Alt 10. Nov 2021, 14:04
Moin...

ich hätte noch eine Variante für komplexe Objekte mit Listen <Txxx>:
Aber da wird ja auch OwnsObjects, Listhelper mit in den JSONString geschrieben. Das möchte ich ja genau verhindern.
Ich möchte eine Instanz exportieren in einem allgemeinen JSONFormat damit auch ein anderer mit z.B. c# auch mit der Datei klar kommt.
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.609 Beiträge
 
Delphi 12 Athens
 
#7

AW: ObjectList serialisieren JSON

  Alt 10. Nov 2021, 15:07
Aber da wird ja auch OwnsObjects, Listhelper mit in den JSONString geschrieben. Das möchte ich ja genau verhindern.
Ich möchte eine Instanz exportieren in einem allgemeinen JSONFormat damit auch ein anderer mit z.B. c# auch mit der Datei klar kommt.
Das ist ja auch genau der Hintergrund für die Interceptor-Klassen. Die wandeln nämlich die Listen in JSON-Arrays um und wieder zurück. Im wesentlichen tun TJson.JsonToObject und TJson.ObjectToJsonXXX ja auch nichts anderes als Marshal und CreateObject (Unmarshal gibt es nur in Data.DBXJSONReflect, die beißt sich aber mit REST.JsonReflect) für die jeweils erzeugten Hilfsklassen aufzurufen (halt nur simpler zu benutzen). Kann man ganz gut in deren Implementierung nachschauen.

Oder gibt es auch eine Möglichkeit eine Klasse abzuleiten von ObjectList<T> wo der Interceptor dran und von der Klasse dann meine ObjectLists zu abzuleiten, damit die Struktur dann so aussieht:
TFirmaList.TFirma.TPersonList.TPerson
Man könnte einen Interceptor schreiben, der TJson.ObjectToJsonString dazu bringt, aus einer TObjectList<T> ein Json-Array (fängt mit [ anstatt { an) zu machen. Die Rückwandlung des Json, was ja dann ein Json-Array ist, funktioniert aber nicht mit TJson.JsonToObject, da das explizit ein TJsonObject erwartet und kein TJsonArray. Auch Data.DBXJSONReflect ist da ähnlich restriktiv.

Das wäre dann vielleicht mal was für eine Erweiterung der REST.Json.Helpers Unit.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.656 Beiträge
 
Delphi 12 Athens
 
#8

AW: ObjectList serialisieren JSON

  Alt 10. Nov 2021, 15:45
Ich habe das für mich jetzt so gelöst, dass ich mir eine Basisklasse TJSONSerializable erstellt habe. Diese geht per RTTI ihre eigenen Properties durch und schaut, ob diese ein Attribut JSONFieldName aufweisen, in welchem der Keyname des JSON-Pairs angegeben ist. Zum Serialisieren wird ein TJSONObject erzeugt und die erwähnten JSON-Pairs gemäß der Readable-Properties hinzugefügt. Zum Deserialisieren geht das Ganze dann für die Writable-Properties andersherum. Eine spezialisierte generische TObjectList gibt es auch, die erstellt dann ein JSONArray mit Elementen der serialisierten TJSONSerializable-Instanzen. Leider habe ich diese Klasse für die Firma geschrieben und darf sie daher nicht einfach veröffentlichen, aber in dem Zusammenhang gibt es hier einen Thread von mir: https://www.delphipraxis.net/209157-...-erkennen.html

Da das IMHO unkritisch ist, kann ich aber zumindest Ausschnitte des Interface-Abschnitts zeigen:
Delphi-Quellcode:
uses System.SysUtils, System.JSON, System.Generics.Collections, System.Rtti;

type
  (* Attribut, mit dem gesteuert wird, wie das Feld im JSON-Objekt
    heißt/heißen soll *)

  JSONFieldNameAttribute = class(TCustomAttribute)
  private
    FFieldname: string;
  public
    constructor Create(const AFieldName: string);
    property Fieldname: string read FFieldname;
  end;

  (* Attribut, mit dem angegeben wird, dass der Standardwert des entsprechenden
    Property-Datentyps als NULL ausgegeben werden soll. Betrifft nur die
    Wandlung in JSON, andersherum nicht, da Delphi keine echten Nullables
    kennt. *)

  JSONNullIfDefaultAttribute = class(TCustomAttribute);

  // Forward-Deklarationen für die Klassenfunktion FromJSON
  TJSONSerializable = class;
  TJSONSerializableClass = class of TJSONSerializable;

  (* Die Parent-Klasse für JSON-Serialisierung. Betrachtet werden alle
    Properties, die das JSONFieldName-Attribut (s.o.) haben. Geparst werden
    einfache Datentypen, Arrays, Objekte (falls von TJSONSerializable
    abgeleitet) und Listen, sofern diese generisch sind.
    Heißt: TList<string> wird abgearbeitet, TStringList hingegen nicht.
    Wir leiten von TInterfacedObject ab, damit wir in Ableitungen ggf. noch
    Interfaces anflanschen können und damit automatische Referenzzählung
    haben. *)

  TJSONSerializable = class(TInterfacedObject)
  public
    constructor Create; virtual;
    function ToJSON: TJSONObject; virtual;
    // Parameter:
    // Obj = das zu parsende JSON-Objekt
    // AClass = die zu erzeugende konkrete Klasse (Ableitung von TJSONSerializable)
    // Um das erzeugte Objekt dann auch vollständig nutzen zu können, muss
    // es noch in den konkreten Typ gecastet werden:
    // MyObj := TMyObj.FromJSON(JsonObjekt, TMyObj) as TMyObj;
    class function FromJSON(const Obj: TJSONObject;
      const AClass: TJSONSerializableClass): TJSONSerializable; static;
  end;

  TJSONSerializableObjectList<T: TJSONSerializable> = class(TObjectList<T>)
  public
    function ToJSON: TJSONArray; virtual;
    class function FromJSON(const Obj: TJSONArray): TJSONSerializableObjectList<T>; static;
  end;
Benutzen lässt sich dann beispielsweise so:
Delphi-Quellcode:
type
  TUserDB = class(TJSONSerializable)
  private
    FName: String;
    FWinAuth: Boolean;
    FIsMySQL: Boolean;
    FPort: Word;
    FDatabase: String;
    FPassword: String;
    FUser: String;
    FServer: String;
  public
    [JSONFieldName('Name')]
    property Name: String read FName write FName;
    [JSONFieldName('Server')]
    property Server: String read FServer write FServer;
    [JSONFieldName('IsMySql')]
    property IsMySql: Boolean read FIsMySQL write FIsMySQL;
    [JSONFieldName('User')]
    property User: String read FUser write FUser;
    [JSONFieldName('Database')]
    property Database: String read FDatabase write FDatabase;
    [JSONFieldName('Password')]
    property Password: String read FPassword write FPassword;
    [JSONFieldName('Port')]
    [JSONNullIfDefault]
    property Port: Word read FPort write FPort;
    [JSONFieldName('WinAuth')]
    property WinAuth: Boolean read FWinAuth write FWinAuth;
  end;

...

UserDB := TUserDB.Create;
...
{TJSONObject}lObj := UserDB.ToJSON;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.609 Beiträge
 
Delphi 12 Athens
 
#9

AW: ObjectList serialisieren JSON

  Alt 11. Nov 2021, 14:03
Oder gibt es auch eine Möglichkeit eine Klasse abzuleiten von ObjectList<T> wo der Interceptor dran und von der Klasse dann meine ObjectLists zu abzuleiten
Nein, das geht nicht. Man kann an eine (generische) Klasse kein generisches Attribut anhängen.

Das wäre dann vielleicht mal was für eine Erweiterung der REST.Json.Helpers Unit.
Ich habe das mal entsprechend erweitert und vereinfacht. Die neue Version findet man bei GitHub: https://github.com/UweRaabe/REST-JSon-Helpers

Bezogen auf dein Code-Beispiel und erweitert um die direkten Verarbeitung der Listen könnte das nun so aussehen:
Delphi-Quellcode:
type
  TPerson = class
  private
    FName: String;
  public
    property Name: String read FName write FName;
  end;

  JsonObjectListPersonAttribute = class(JsonObjectListAttribute<TPerson>);

type
  [JsonObjectListPerson]
  TPersonListe = class(TObjectList<TPerson>);

type
  { Wrapper }
  TPersonJSON = class
  private
    [JSONOwned(False)]
    FPersonListe: TPersonListe;
  public
    constructor Create;
    destructor Destroy; override;
    property PersonListe: TPersonListe read FPersonListe write FPersonListe;
  end;

...

const
  cNamen: TArray<String> = ['Name1', 'Name2', 'Name3'];
  cPersonListe = '[{"name":"Name1"},{"name":"Name2"},{"name":"Name3"}]';
  cPersonJSON = '{"personListe":[{"name":"Name1"},{"name":"Name2"},{"name":"Name3"}]}';

  function CheckListe(AListe: TPersonListe): Boolean;
  var
    I: Integer;
  begin
    Result := (AListe.Count = Length(cNamen));
    if Result then begin
      for I := 0 to AListe.Count - 1 do
        if AListe[I].Name <> cNamen[I] then
          Exit(False);
    end;
  end;

var
  lPersonJSON: TPersonJSON;
  lPerson: TPerson;
  lJSONString: String;
  lPersonListe: TPersonListe;
begin
  { mit Wrapper }
  lPersonJSON := TPersonJSON.Create;
  try
    for var lName in cNamen do
    begin
      lPerson := TPerson.Create;
      lPerson.Name := lName;
      lPersonJSON.PersonListe.Add(lPerson);
    end;

    lJSONString := TConvert.ToJSONString(lPersonJSON);
    Assert(lJSONString = cPersonJSON);
  finally
    lPersonJSON.Free;
  end;

  lPersonJSON := TConvert.FromJSON<TPersonJSON>(cPersonJSON);
  try
    Assert(CheckListe(lPersonJSON.PersonListe));
  finally
    lPersonJSON.Free;
  end;

  { Liste direkt }
  lPersonListe := TPersonListe.Create;
  try
    for var lName in cNamen do
    begin
      lPerson := TPerson.Create;
      lPerson.Name := lName;
      lPersonListe.Add(lPerson);
    end;

    lJSONString := TConvert.ToJSONString(lPersonListe);
    Assert(lJSONString = cPersonListe);
  finally
    lPersonListe.Free;
  end;

  lPersonListe := TPersonListe.Create;
  try
    lPersonListe.AddRange(TConvert.FromJSONArray<TPerson>(cPersonListe));
    Assert(CheckListe(lPersonListe));
  finally
    lPersonListe.Free;
  end;

end;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
lowmax_5

Registriert seit: 9. Mai 2003
Ort: Münster, NRW
258 Beiträge
 
Delphi 11 Alexandria
 
#10

AW: ObjectList serialisieren JSON

  Alt 11. Nov 2021, 17:49
Bei

Code:
lJSONString := TConvert.ToJSONString(lPersonJSON);
bekomme ich einen Fehler mit der Meldung 'Assertion fehlgeschlagen....' (Delphi 11)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:05 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz