ObjectList serialisieren JSON

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

[TiGü]

Mit Debug-DCU kompiliert, siehst du schnell, dass es eigentlich in REST.Json.Helpers.TObjectListInterceptor<T>.Object sReverter knallt.

Wenn man sich die Zeile list := TObjectList<T>(ctx.GetType(Data.ClassType).GetField(Field).GetValue(Data).AsObject); zum Debuggen etwas aufdröselt, dann erhalten wir so ein Konstrukt:

Delphi-Quellcode:

procedure TObjectListInterceptor<T>.ObjectsReverter(Data: TObject; Field: string; Args: TListOfObjects);
var
  ctx: TRTTIContext;
  list: TObjectList<T>;
  obj: TObject;
  RttiType: TRttiType;
  RttiField: TRttiField;
  RttiValue: TValue;
  ListObj: TObject;
begin
  RttiType := ctx.GetType(Data.ClassType);
  RttiField := RttiType.GetField(Field);
  RttiValue := RttiField.GetValue(Data);
  ListObj := RttiValue.AsObject;
  list := TObjectList<T>(ListObj);

  if list <> nil then
  begin
    list.Clear;
    for obj in Args do
      list.Add(T(obj));
  end;
end;

Dadurch bekommst du zumindest die Information, dass der Cast von TValue.AsObject nach der TObjectList<T> (im konkreten Fall TIOList = TObjectList<TIODevice>) fehlschlägt und nil zurückliefert.
In TValue.AsObject sieht man, dass Result = nil ist, weil TValue.GetIsEmpty True zurückgibt.
Das liegt daran, weil FAsObject = nil ist.
Warum und Wieso entzieht sich meinen Verständnis. Beim füllen des TValue per RttiField.GetValue(Data) und TValue.Make bleibt die TValue.FValueData leer.

[taveuni]

Zitat von TiGü:

Dadurch bekommst du zumindest die Information, dass der Cast von TValue.AsObject nach der TObjectList<T> (im konkreten Fall TIOList = TObjectList<TIODevice>) fehlschlägt und nil zurückliefert.

Weiter oben hat UWE Raabe geschrieben bei diesem Fehler soll man die Unit REST.Json.Types includieren. Das habe ich vergessen. Aber das Problem ist damit trotzdem vorhanden.

[Uwe Raabe]

Zitat von taveuni:

Weiter oben hat UWE Raabe geschrieben bei diesem Fehler soll man die Unit REST.Json.Types includieren. Das habe ich vergessen. Aber das Problem ist damit trotzdem vorhanden.

REST.Json.Types muss in der Unit in der Uses stehen, in der das Attribute JSONOwned verwendet wird. Andernfalls wirft der Compiler auch entsprechende Warnungen aus:

Code:

[dcc32 Warnung] uSettings.pas(33): W1074 Unbekanntes benutzerdefiniertes Attribut
[dcc32 Warnung] uSettings.pas(71): W1074 Unbekanntes benutzerdefiniertes Attribut
[dcc32 Warnung] uSettings.pas(74): W1074 Unbekanntes benutzerdefiniertes Attribut

[taveuni]

Zitat von Uwe Raabe:

Zitat von taveuni:

Weiter oben hat UWE Raabe geschrieben bei diesem Fehler soll man die Unit REST.Json.Types includieren. Das habe ich vergessen. Aber das Problem ist damit trotzdem vorhanden.

REST.Json.Types muss in der Unit in der Uses stehen, in der das Attribute JSONOwned verwendet wird. Andernfalls wirft der Compiler auch entsprechende Warnungen aus:

Code:

[dcc32 Warnung] uSettings.pas(33): W1074 Unbekanntes benutzerdefiniertes Attribut
[dcc32 Warnung] uSettings.pas(71): W1074 Unbekanntes benutzerdefiniertes Attribut
[dcc32 Warnung] uSettings.pas(74): W1074 Unbekanntes benutzerdefiniertes Attribut

Ja ich habe dies hier nachgeholt. Trotzdem erhalte ich die Zugriffsverletzung beim deserialsieren (TConvert.FromJSON<TSettings>)?

[Uwe Raabe]

TGate hat keinen parameterloses Constructor Create. Deshalb wird das TObject.Create verwendet (das gibt es immer) und somit ist FCameras nicht initialisiert.

Das intern verwendete TJSONUnmarshal erzeugt die Instanzen mit Hilfe der Funktion ObjectInstance. Dort steht als Bemerkung:

Zitat:

It is assumed the object has a no-parameter Create constructor