delphi - 単純なマーシャリング オブジェクトのアンマーシャリング

Question

json のサポートは、Delphi 2009 および Delphi 2010 の新機能の 1 つです。スーパーオブジェクト ライブラリのように、文字列とオブジェクトの間で直接マーシャリング/アンマーシャリングする簡単な機能があるかどうかを知りたいです。

例：

MyKnownObject := FromJSON('{name:"francis", surname:"lee"}');

Answer 1

ここを参照してください。ベローは興味深い部分を切り取ったものです：

procedure TForm13.Button4Click(Sender: TObject);
var
  LContact: TContact;
  oMarshaller: TJSONMarshall;
  crtVal: TJSONValue;
begin
  LContact:=TContact.Create; //our custom class
  LContact.Name:='wings-of-wind.com';
  LContact.Age:=20; //fill with some data
  oMarshaller:=TJSONMarshal.Create(TJSONConverter.Create); //our engine
  try
    crtVal:=oMarshaller.Marshal(LContact); //serialize to JSON
    Memo1.Text:=crtVal.ToString; //display
  finally //cleanup
    FreeAndNil(LContact);
    FreeAndNil(oMarshaller);
  end;
end;

また、Adrian Andrei (DataSnap アーキテクト) によるより複雑な例と、カスタム マーシャリングの例をここで見ることができます。

Answer 2

文字列を直接アンシリアライズするTJSONObject

var
  ConvertFrom: String;
  JSON: TJSONObject;
  StringBytes: TBytes;
  I: Integer;
begin
  ConvertFrom := '{"name":"somebody on SO","age":"123"}';
  StringBytes := TEncoding.ASCII.GetBytes(ConvertFrom);
  JSON := TJSONObject.Create;
  try
    JSON.Parse(StringBytes, 0);
    Assert(JSON.ToString = ConvertFrom, 'Conversion test');
    Memo1.Lines.Add(JSON.ToString);

    for I := 0 to JSON.Size - 1 do
      Memo1.Lines.Add(JSON.Get(I).JsonString.Value + 
         ' : ' + JSON.Get(I).JsonValue.Value);

  finally
    JSON.Free;
  end;
end;