有没有人有 Delphi XE6 中 JSON 往返序列化的示例？ [关闭]

Question

我想在 Delphi 中编写一个（我认为是简单的）对象的往返序列化代码。但是，我似乎无法弄清楚如何与 JSON 进行交互。我可以并且已经有一段时间使用 XML 来实现了。

但是，我在标准 Embarcadero 文档中找到的示例和解释，例如本地帮助、DocWiki 等对我帮助不大。

最好，我正在寻找一个实际的工作示例使用 XE(6) 本机库或组件 -- 但是，我将不胜感激任何人曾经获得的任何文章（文档、文章、帖子等）和/或任何其他库的链接这个工作。

Answer 1

我会避免使用本机框架，主要原因是它序列化对象的私有成员，我认为这违反了 OOP 封装原则。序列化类的已发布属性会更正确。它破坏了与其他语言的互操作性。

不管怎样，这是一个基本的例子。

implementation

uses
  Serializable,
  REST.JsonReflect,
  System.Json,
  System.SysUtils;


{ TMain }

procedure TMain.Run;
var
  mySerializable: TMySerializable;
  marshaller: TJSONMarshal;
  unMarshaller: TJSONUnMarshal;
  jsonValue: TJSONValue;
begin
  mySerializable := TMySerializable.Create;
  mySerializable.MyInt := 42;
  mySerializable.MyString := 'The Answer';
  // Serialize
  marshaller := TJSONMarshal.Create;
  jsonValue := marshaller.Marshal(mySerializable);
  marshaller.Free;
  mySerializable.Free;
  mySerializable := nil;
  WriteLn('JSon value:');
  WriteLn(jsonValue.ToString);
  // Deserialize
  unMarshaller := TJSONUnMarshal.Create;
  mySerializable := TMySerializable(unMarshaller.CreateObject(TMySerializable, TJSONObject(jsonValue)));
  WriteLn('mySerializable.MyInt: ' + IntToStr(mySerializable.MyInt));
  WriteLn('mySerializable.MyString: ' + mySerializable.MyString);

  jsonValue.Free;
  mySerializable.Free;
  unMarshaller.Free;
  ReadLn;

end;

并且Serializable单元定义了一个简单的测试类。

unit Serializable;

interface

uses
  System.Classes;

type
  TMySerializable = class(TPersistent)
  private
    FMyString: string;
    FMyInt: Integer;
  published
    property MyInt: Integer read FMyInt write FMyInt;
    property MyString: string read FMyString write FMyString;
  end;

implementation

end.