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

Delphi-Quellcode:

[JSONMarshalled(False)]

Attribut geben.

[Hobbycoder]

Danke :-)

[taveuni]

Zitat:

Zitat von Uwe Raabe (Beitrag 1524330)

Ja, dazu musst du dem Feld ein

Delphi-Quellcode:

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

Zitat von Uwe Raabe (Beitrag 1524417)

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:

Zitat von taveuni (Beitrag 1524413)

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:

Zitat von Uwe Raabe (Beitrag 1524424)

OK, habe ich erst übersehen:

Zitat:

Zitat von taveuni (Beitrag 1524413)

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!