ObjectList serialisieren JSON

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

[Uwe Raabe]

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.

[lxo]

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?

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

[lxo]

Zitat von haentschman:

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.

[Uwe Raabe]

Zitat von lxo:

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.

Das ist ja auch genau der Hintergrund für die Interceptor-Klassen. Die wandeln nämlich die Listen in JSON-Arrays um und wieder zurück. Im wesentlichen tun TJson.JsonToObject und TJson.ObjectToJsonXXX ja auch nichts anderes als Marshal und CreateObject (Unmarshal gibt es nur in Data.DBXJSONReflect, die beißt sich aber mit REST.JsonReflect) für die jeweils erzeugten Hilfsklassen aufzurufen (halt nur simpler zu benutzen). Kann man ganz gut in deren Implementierung nachschauen.

Zitat von lxo:

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

Man könnte einen Interceptor schreiben, der TJson.ObjectToJsonString dazu bringt, aus einer TObjectList<T> ein Json-Array (fängt mit [ anstatt { an) zu machen. Die Rückwandlung des Json, was ja dann ein Json-Array ist, funktioniert aber nicht mit TJson.JsonToObject, da das explizit ein TJsonObject erwartet und kein TJsonArray. Auch Data.DBXJSONReflect ist da ähnlich restriktiv.

Das wäre dann vielleicht mal was für eine Erweiterung der REST.Json.Helpers Unit.