JSON in Delphi

[DeddyH]

Da mir dieses ganze Marshalling in Delphi immer etwas suspekt ist, mache ich sowas von Hand.

Delphi-Quellcode:

uses ..., System.JSON;

type
  TLinks = class
  private
    FStart: string;
    Fxxx: string;
    Fzzz: string;
  public
    class function FromJSON(const Obj: TJSONObject): TLinks; overload; static;
    class function FromJSON(const ObjStr: string): TLinks; overload; static;
    property Start: string read FStart write FStart;
    property xxx: string read Fxxx write Fxxx;
    property zzz: string read Fzzz write Fzzz;
  end;

...

class function TLinks.FromJSON(const Obj: TJSONObject): TLinks;
var
  Value: TJSONValue;
  lObj: TJSONObject;
  Dummy: string;
begin
  Result := nil;
  if Assigned(Obj) then
    begin
      Value := Obj.Values['links'];
      if Assigned(Value) and (Value is TJSONObject) then
        begin
          lObj := TJSONObject(Value);
          Result := TLinks.Create;
          if lObj.TryGetValue<string>('start', Dummy) then
            Result.Start := Dummy;
          if lObj.TryGetValue<string>('xxx', Dummy) then
            Result.xxx := Dummy;
          if lObj.TryGetValue<string>('zzz', Dummy) then
            Result.zzz := Dummy;
        end;
    end;
end;

class function TLinks.FromJSON(const ObjStr: string): TLinks;
var
  Obj: TJSONObject;
begin
  Obj := TJSONObject.ParseJSONValue(ObjStr) as TJSONObject;
  try
    Result := TLinks.FromJSON(Obj);
  finally
    Obj.Free;
  end;
end;

[Uwe Raabe]

Welche Delphi Version benutzt du denn? Bei mir (10.3.3) ist das eine andere Zeilennummer und da steht:

Delphi-Quellcode:

          rField := GetFieldType(Data, FieldName);
          // Unmarshal TList<T>.FListHelper as dynamic array using 10.2 layout
          if (rField <> nil) and
             (rField.FieldType.Handle = TypeInfo(System.Generics.Collections.TListHelper)) and

Damit sollte der Fehler nicht auftauchen.

[Incocnito]

Zitat von DeddyH:

Da mir dieses ganze Marshalling in Delphi immer etwas suspekt ist, mache ich sowas von Hand....

Dein Ernst? Bei den ganzen Json, die wir nutzen wären wir ewig zu gange das alles auch noch von Hand zu machen!

Zitat von Uwe Raabe:

Welche Delphi Version benutzt du denn? Bei mir (10.3.3) ist das eine andere Zeilennummer und da steht:

Delphi-Quellcode:

          rField := GetFieldType(Data, FieldName);
          // Unmarshal TList<T>.FListHelper as dynamic array using 10.2 layout
          if (rField <> nil) and
             (rField.FieldType.Handle = TypeInfo(System.Generics.Collections.TListHelper)) and

Damit sollte der Fehler nicht auftauchen.

Was soll ich sagen: 10.3.2 ... dann ist das wohl ein Delphi-Bug, den die selbst schon behoben haben, ja?
Dann heißt es mal wieder: auf zum nächsten Update!

Danke für die Hilfe!
Liebe Grüße
Incocnito

[Uwe Raabe]

Zitat von Incocnito:

Was soll ich sagen: 10.3.2 ... dann ist das wohl ein Delphi-Bug, den die selbst schon behoben haben, ja?

Access violation in TJSONUnMarshal.PopulateFields if array does not exist in target object

[Sherlock]

Zitat von Incocnito:

Zitat von DeddyH:

Da mir dieses ganze Marshalling in Delphi immer etwas suspekt ist, mache ich sowas von Hand....

Dein Ernst? Bei den ganzen Json, die wir nutzen wären wir ewig zu gange das alles auch noch von Hand zu machen!

Das dauert weniger lange als Du denkst, wenn man zwei Punkte beachtet: man unterstützt zunächst kein Allerwelts-JSON, sondern ein sehr spezielles von einem Anbieter. Wenn man das erweiterbar implementiert, ist man sehr zügig mit weiteren Anbietern durch.

Sherlock