QJson与QMsgPack中的RTTI调用演示

QJson和QMsgPack提供了对RTTI的支持,让你可以简洁方便的完成数据的转换存贮。因为QJson和QMsgPack在RTTI接口上是一致的,因此本文以QJson为例予以说明,如果要换成QMsgPack,只需要将类型声明换下就好:)。

1、记录类型

我们提供了FromRecord/ToRecord两个函数来完成记录类型的读写操作。FromRecord将一个记录类型的内容转储到QJson或QMsgPack中,ToRecord是从QJson或QMsgPack中恢复记录的内容。

下面是一个FromRecord的简单例子:

type
   TMyRecord=record
     Name:String;
     Age:Integer;
   end;
...
var
  ARec: TMyRecord;
  AJson:TQJson;
begin
AJson:=TQJson.Create;
ARec.Name:='Joney';
ARec.Age:=12;
try
   AJson.FromRecord<TMyRecord>(ARec);
   ShowMessage(AJson.AsJson);
finally
   FreeAndNil(AJson);
end;
end;

FromRecord

 

ToRtti的例子(接上面的例子):

var
  ARec: TMyRecord;
  AJson:TQJson;
begin
AJson:=TQJson.Create;
AJson.Add('Name').AsString:='Kitty';
AJson.Add('Age').AsInteger:=32;
try
   AJson.ToRecord<TMyRecord>(ARec);
   ShowMessage('ARec.Name='+ARec.Name+',ARec.Age='+IntToStr(ARec.Age));
finally
   FreeAndNil(AJson);
end;
end;

ToRecord

2、对象

我们使用FromRtti和ToRtti两个函数来完成对记录类型的读写操作。同上,FromRtti将一个对象转储到QJson或QMsgPack中,ToRtti是从QJson或QMsgPack中恢复对象的内容。

var
  AButton: TButton;
  AJson:TQJson;
begin
AJson:=TQJson.Create;
try
   AJson.FromRtti(Button17);
   ShowMessage(AJson.AsJson);
finally
   FreeAndNil(AJson);
end;
end;

FromRtti

ToRtti的例子:

var
  AButton: TButton;
  AJson:TQJson;
  AOld:String;
begin
AJson:=TQJson.Create;
AJson.Add('Caption').AsString:='ChangedByJson';
try
   Button17.Caption:='Button17';
   AJson.ToRtti(Button17);
   ShowMessage('Button17.Caption='+Button17.Caption);
finally
   FreeAndNil(AJson);
end;
end;

ToRtti

3、调用函数

我们提供Invoke函数来直接使用QJson或QMsgPack的数据来调用一个函数,函数名由当前结点的名称来确定,参数由子结点提供,QJson或QMsgPack按名称对应到函数的参数中,然后完成调用并返回结果。

Invoke的调用示例:

function TForm1.Add(X, Y: Integer): Integer;
begin
Result := X + Y;
end;

...
var
  AJson: TQJson;
  AValue: TValue;
begin
AJson := TQJson.Create;
try
  with AJson.Add('Add') do
    begin
    Add('X').AsInteger := 100;
    Add('Y').AsInteger := 200;
    end;
  AValue := AJson.ItemByName('Add').Invoke(Self);
  mmResult.Lines.Add(AJson.AsJson);
  mmResult.Lines.Add('.Invoke=' + IntToStr(AValue.AsInteger));
finally
  AJson.Free;
end;
end;

Invoke

 

分享到: