ObjectList serialisieren JSON

[lxo]

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;

[Uwe Raabe]

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.

[lxo]

Zitat von Uwe Raabe:

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.

[lxo]

Zitat von lxo:

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.

[Uwe Raabe]

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.

[lxo]

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?

[haentschman]

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;

[haentschman]

Hi...

welcome...

but...there is also an english one. https://en.delphipraxis.net

[taveuni]

Ich häng mich mal hier an.
Ich versuche seit geraumer Zeit meine Settings mit Hilfe von Uwe Raabes unit Rest.Json.Helpers in Json zu serialsieren. Viellicht habe ich etwas falsch verstanden.
Im Anhang ist ein abgespecktes Beispiel. Das TConvert.ToJSONString funktioniert. Rückwärts aber weder mit TConvert.FromJSON noch mit der Delphi Funktion TJson.JsonToObject.
Irgendwann erhalte ich eine Zugriffsverletzung in System.Generics.Collections in der procedure TListHelper.InternalSetCount4(Value: Integer);
Projekt ist erstellt mit Delphi 10.4.2

Was mache ich falsch?