Einzelne Objectvariable aus ObjectToJSON ausschließen

[Hobbycoder]

Hi,

kann ich irgendwie verhindern, dass eine einzelne Variable eines Objects von der Funktion ObjectToJSON aus der REST.Json-Library ausgeschlossen wird. Also das JSON hinterher ohne diesen Eintrag gebildet wird?

[Uwe Raabe]

Ja, dazu musst du dem Feld ein [JSONMarshalled(False)] Attribut geben.

[Hobbycoder]

Danke

[taveuni]

Zitat von Uwe Raabe:

Ja, dazu musst du dem Feld ein [JSONMarshalled(False)] Attribut geben.

Hallo Uwe,
Ich habe:

Delphi-Quellcode:

type
  TDoorList = TObjectList<TTBADoor>;
  TDoorListInterceptor = TObjectListInterceptor<TTBADoor>;

type
  TDoors = class
    private
    [JSONOwned(False), JsonObjectList(TDoorListInterceptor)]
    FDoors: TDoorList;
    public
      property Doors: TDoorList read FDoors;
    constructor Create;
    destructor Destroy; override;
  end;

Wenn ich das deserialsiere mit TJson.ObjectToJsonString(TDoors)

erhalte ich das Json:

Code:

'{"doors":{"ownsObjects":true,"listHelper":[{"doorNumber":102,"lastUpdateGmt":"2023-07-11T07:55:13.862Z","wbTerm"........................

Wie kann ich das "ownsObjects":true,"listHelper" im Json vermeiden?

[Uwe Raabe]

Kannst du dafür ein minimales Beispielprojekt machen?

[taveuni]

Zitat von Uwe Raabe:

Kannst du dafür ein minimales Beispielprojekt machen?

Hallo Uwe. Ich werde das bei Gelegenheit machen. Ich habe auf die Schnelle jetzt auf Neon gewechselt.
Vielen Dank
Gruss Werner

[Uwe Raabe]

OK, habe ich erst übersehen:

Zitat von taveuni:

Delphi-Quellcode:

type
  TDoorList = TObjectList<TTBADoor>;
  TDoorListInterceptor = TObjectListInterceptor<TTBADoor>;

Das muss heißen:

Delphi-Quellcode:

type
  TDoorList = class(TObjectList<TTBADoor>);
  TDoorListInterceptor = class(TObjectListInterceptor<TTBADoor>);

Im GitHub Repo steht das auch im ReadMe:

Zitat:

The new attribute (JsonObjectListContactAttribute) as well as the new list (TContactList) must not be an alias - the class keyword is mandatory.

[taveuni]

Zitat von Uwe Raabe:

OK, habe ich erst übersehen:

Zitat von taveuni:

Delphi-Quellcode:

type
  TDoorList = TObjectList<TTBADoor>;
  TDoorListInterceptor = TObjectListInterceptor<TTBADoor>;

Das muss heißen:

Delphi-Quellcode:

type
  TDoorList = class(TObjectList<TTBADoor>);
  TDoorListInterceptor = class(TObjectListInterceptor<TTBADoor>);

Im GitHub Repo steht das auch im ReadMe:

Zitat:

The new attribute (JsonObjectListContactAttribute) as well as the new list (TContactList) must not be an alias - the class keyword is mandatory.

Oje...
Danke!