TDictionary to JSON und zurück

[Yaso]

Hallo zusammen

Ich experimentiere gerade mit REST.JSON und das funktioniert ziemlich gut, aber hier habe ich ein Problem:

Ich möchte ein TDictionary<string,TEintragClass> in ein JSON String und zurück umwandeln. Das zurück geht aber leider noch nicht, da bringt er mir eine Exception:

Intern: Typ
System.Generics.Collections.TDictionary<...> kann nicht instantiiert werden.

Folgendes habe ich gemacht:

Delphi-Quellcode:

  TEintragClass = class
  private
    FOriginalFilename: string;
    FLastModified: TDateTime;
    FAnzahl: Integer;
    FStrings: TStringList;
  end;

procedure TForm8.Button1Click(Sender: TObject);
var
  Dict : TDictionary<string, TEintragClass>;
  Eintrag: TEintragClass;
  Liste: TStringList;
begin
  Liste := TStringList.Create();
  Eintrag := TEintragClass.Create();
  Dict := TDictionary<string,TEintragClass>.Create;  
  
  Liste.Add('File1');
  Liste.Add('File2');
  Eintrag.FOriginalFilename := 'abc';
  Eintrag.FLastModified := Now();
  Eintrag.FAnzahl := 3;
  Eintrag.FStrings := Liste;
  Dict.Add('asd',Eintrag);
  Dict.Add('asd2',Eintrag);
  Memo1.Lines.Text := TJson.ObjectToJsonString(Dict);
  
  Dict.Free;
  Eintrag.Free;
  Liste.Free;
  
end;

procedure TForm8.Button2Click(Sender: TObject);
var
  Dict2 : TDictionary<string, TEintragClass>;
begin
  Dict2 := TJson.JsonToObject<TDictionary<string, TEintragClass>>(Memo1.Lines.Text); // Da knallts
  Dict2.Free;
end;

Was habe ich übersehen?

[Dejan Vu]

Mach doch aus der TDictionary<string, TEintragsClass> einen eigenen Datentypen und spendiere dem einen parameterlosen Konstruktor.
Vielleicht ist diese Json-Implementierung zu blöd, eine generische Klasse zu instantiieren (oder Delphi ist zu minderbemittelt, keine Ahnung).

[himitsu]

Wenn es an den < und > im Klassennamen geht, dann mal probieren das zu verstecken.

Delphi-Quellcode:

type
  TEintragDictionary = class(TDictionary<string, TEintragClass>)
  end;

Nur über den Klassentyp wäre es egal, ob Generic oder nicht, denn das merkt man dort nicht.

[Yaso]

Erst Mal Danke für die Tipps, aber leider schaffe ich es immer noch nicht, vielleicht mache ich auch was falsch (bin erst seit kurzem bei Delphi).

mit

Delphi-Quellcode:

  TEintragDictionary = class(TDictionary<string, TEintragClass>)
  end;

Kommt nun eine Zugriffsverletzung am gleichen Ort (...Lesen von von Adresse 00000000)

mit

Delphi-Quellcode:

TEintragDictionary = class(TDictionary<string, TEintragClass>)
  constructor Create();
end;

constructor TEintragDictionary.Create;
begin
  inherited
end;

Gibts die gleiche Exception schon beim Umwandeln in einen JSON String

[Yaso]

hmmm

Wenn ich TDictionary<string, string>; oder TDictionary<string, Integer>; mache, dann klappts wunderbar.

Es scheint, dass Delphi mit selber erstellten Objekten mühe hat.

[Dejan Vu]

Deine Klasse hat ja auch nix zum Serialisieren. Deklariere mal ein paar public properties.

[himitsu]

Steht denn im JSON-Text auch der Typname dieser Objekte mit drin?