Ich rate dir dringend statt der alten DataSnap- / DBX-Geschichten, die wirklich alt sind, aktuelle Lösungen zu verwenden. Es gibt z.B. die
Unit REST.Json:
https://docwiki.embarcadero.com/Libr...ctToJsonString
Delphi-Quellcode:
uses
REST.Json;
type
TPerson = class
public
Name: string;
Age: Integer;
constructor Create;
end;
procedure Test;
var
Person, NewPerson: TPerson;
JSONString: string;
begin
Person := TPerson.Create;
Person.Name := 'Vorname';
Person.Age := 45;
// serialisieren
JSONString := TJson.ObjectToJsonString(Person);
// deserialisieren
NewPerson := TJson.JsonToObject<TPerson>(JSONString);
ShowMessage(NewPerson.Name);
end;