AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

ObjectList serialisieren JSON

Ein Thema von lxo · begonnen am 10. Nov 2021 · letzter Beitrag vom 19. Jan 2022
Antwort Antwort
Seite 1 von 4  1 23     Letzte » 
lxo

Registriert seit: 30. Nov 2017
151 Beiträge
 
Delphi 11 Alexandria
 
#1

ObjectList serialisieren JSON

  Alt 10. Nov 2021, 08:56
Hallo zusammen,

ich hab mit Hilfe des Beitrags von Uwe Raabe probiert eine Objectlist zu de/serialisieren.
Serialisieren klappt aber deserialisieren klappt nicht.

Im TObjectListInterceptor<T>.ObjectsReverter knallt es immer mit einer Zugriffsverletzung.
Kann mir jemand sagen was ich da falsch mache?
List ist immer nil, ich hätte gedacht mit JSONOwned(False) umgeht man das.

https://www.uweraabe.de/Blog/2020/03...ts-with-tjson/


Delphi-Quellcode:

  TPerson = class
  private
   FName: String;
  public
   property Name: String read FName write FName;
  end;

  TPersonListe = TObjectList<TPerson>;

  TPersonListeInterceptor = TObjectListInterceptor<TPerson>;

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

var
  Form78: TForm78;

implementation

{$R *.dfm}

procedure TForm78.Button1Click(Sender: TObject);
const
  cNamen: TArray<String> = [ 'Name1', 'Name2', 'Name3'];
var
  lPersonJSON : TPersonJSON;
  lPerson : TPerson;
  lReverseTest: TPersonJSON;
  lJSONString: String;
begin
  lPersonJSON := TPersonJSON.Create;
  try
    for var lName in cNamen do
    begin
      lPerson := TPerson.Create;
      lPerson.Name := lName;
      lPersonJSON.PersonListe.Add( lPerson);
    end;

    lJSONString := TJson.ObjectToJsonString( lPersonJSON);
  finally
    lPersonJSON.Free;
  end;

 // !! Hier krieg ich eine Zugriffsverletzung
  lReverseTest := TJson.JsonToObject<TPersonJSON>( lJSONString);
end;

{ TPersonJSON }

constructor TPersonJSON.Create;
begin
  inherited;
  FPersonListe := TPersonListe.Create( True);
end;

destructor TPersonJSON.Destroy;
begin
  FreeAndNil( FPersonListe);
  inherited;
end;

Geändert von lxo (10. Nov 2021 um 08:59 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
8.953 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: ObjectList serialisieren JSON

  Alt 10. Nov 2021, 09:29
Ich vermute mal, du bekommst beim Compilieren diese Meldung?
Zitat:
W1074 Unbekanntes benutzerdefiniertes Attribut
Dann fehlt in deiner Uses-Anweisung noch ein REST.Json.Types. Dort ist JSONOwned nämlich definiert.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
lxo

Registriert seit: 30. Nov 2017
151 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: ObjectList serialisieren JSON

  Alt 10. Nov 2021, 11:39
Ich vermute mal, du bekommst beim Compilieren diese Meldung?
Zitat:
W1074 Unbekanntes benutzerdefiniertes Attribut
Dann fehlt in deiner Uses-Anweisung noch ein REST.Json.Types. Dort ist JSONOwned nämlich definiert.
Ja mit REST.Json.Types in der Uses-Anweisung funktioniert es.
Aber die Meldung die du vermutest bekomme ich nicht. Nur eine Zugriffsverletzung beim deserialisieren.
  Mit Zitat antworten Zitat
lxo

Registriert seit: 30. Nov 2017
151 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: ObjectList serialisieren JSON

  Alt 10. Nov 2021, 11:45
Aber die Meldung die du vermutest bekomme ich nicht. Nur eine Zugriffsverletzung beim deserialisieren.
Entschuldigung, doch ich kriege die eine Warnung. "[dcc32 Warnung] Unit78.pas(36): W1074 Unbekanntes benutzerdefiniertes Attribut"
Dachte du meintest eine Fehlermeldung vom Compiler.
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
8.953 Beiträge
 
Delphi 10.4 Sydney
 
#5

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
151 Beiträge
 
Delphi 11 Alexandria
 
#6

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
8.953 Beiträge
 
Delphi 10.4 Sydney
 
#7

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
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
4.867 Beiträge
 
Delphi 10.1 Berlin Professional
 
#8

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
151 Beiträge
 
Delphi 11 Alexandria
 
#9

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
lxo

Registriert seit: 30. Nov 2017
151 Beiträge
 
Delphi 11 Alexandria
 
#10

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
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 13:23 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf