REST.Json.TJson.ObjectToJsonString - Options nicht in JSON schreiben

[swestner]

Hallo,

wenn ich ein Objekt mit REST.Json.TJson.ObjectToJsonString in ein JSON schreibe dann schreibt mir die Methode immer noch die Optionen des JSONStreamers mit ins JSON. Das sieht dann so aus:

{
"clientSettings":{
"client":[
{
"clientid":"0",
"Options":[
"joIgnoreEmptyStrings",
"joIgnoreEmptyArrays",
"joDateIsUTC",
"joDateFormatISO8601",
"joIndentCasePreserve"
]
},

Kann man das irgendwie abschalten?

Grüße

Stefan

[jaenicke]

Das heißt, du hast eine Property Options, die nicht mitgeschrieben werden soll? Das sollte mit dem Attribut

Delphi-Quellcode:

[JSONMarshalled(False)]

gehen.

[Der schöne Günther]

Sicher? Kannst du das an einem Beispiel nachstellen?

Delphi-Quellcode:

program Project1;

uses Rest.Json;

type
   TMyObject = class
      someField: Byte;
      someText: String;
   end;

begin
   var myObj := TMyObject.Create();
   myObj.someField := 42;
   myObj.someText := 'Hallo Welt';

   const asJson = Rest.Json.TJson.ObjectToJsonString(myObj);
   Assert(asJson = '{"someField":42,"someText":"Hallo Welt"}');
end.

[swestner]

Die Methode ObjectToJsonString hat einen Parameter Options. Da kann so Zeug wie Datumsformat usw. spezifiziert werden.
Diese Options, welche NICHTS mit dem zu schreibenden Objekt zu tun haben, schreibt der Marshaller aber mit in das JSON.
Das möchte ich aber nicht.

@Schöner Günther:
Du mußt den Parameter Options mit spezifizieren, dann hast Du diese auch im JSON.

class function ObjectToJsonString(AObject: TObject; AOptions: TJsonOptions = [joDateIsUTC, joDateFormatISO8601, joBytesFormatArray, joIndentCaseCamel]): string;

Ich erstelle nachher mal ein Beispiel.

[jaenicke]

Das hatte ich auch ausprobiert, aber das ist bei mir nicht passiert, egal ob ich wenige oder sogar alle möglichen Werte übergeben habe. Ein Beispiel wäre daher wichtig.

[swestner]

Hallo jaenike,

tatsächlich hatte ich in der Klasse ein privates Attribut FOptions. Das hatte ich völlig übersehen.

[JSONMarshalledAttribute(False)]
FOptions: TJsonOptions;

Das hat das Problem gelöst.

Danke für die Hilfe.

Stefan

[Uwe Raabe]

Nur so am Rande: Obwohl die Klasse

Delphi-Quellcode:

JSONMarshalledAttribute

heißt, kann dieser Name bei der Verwendung als Attribut auf [JSONMarshalled(False)] gekürzt werden. Das erhöht die Lesbarkeit und verringert die Schreibarbeit. Die Programmierhilfe zeigt das übrigens auch genauso an.