Marshalling und Unmarshalling mittels DBXJson

[jaenicke]

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;