1

SuperObject 库有一个用于序列化对象的通用方法：

type
   TSomeObject = class
   ...
   end;

var
   lJSON       : ISuperObject;
   lContext    : TSuperRttiContext;
   lSomeObject : TSomeObject;
begin
   lSomeObject := TSomeObject.Create;
   lContext := TSuperRttiContext.Create;
   lJSON := lContext.AsJson<TSomeObject>(lSomeObject);

但现在我正在处理元类实例。
这是对象结构：

TJSONStructure = class(TObject);

TReqBase = class(TJSONStructure)
private
   token: Int64;
public
end;

TReqLogin = class(TReqBase)
private
   username,
   password: String;
   module  : Integer;
public
end;


type
   TWebAct = (ttlogin,
              ttsignin);

TReqClass = class of TReqBase;

const
   cWebActStructures: Array[TWebAct] of
   record
      RequestClass : TReqClass;
   end
   = (
      { ttlogin  } (RequestClass: TReqLogin;),
      { ttsignin } (RequestClass: TReqSignIn;)     // Not in definitions above
     );

如果我现在尝试：

var
   lContext      : TSuperRttiContext;
   lJSON         : ISuperObject;
   lRequestClass : TReqClass;
   lRequestBase  : TReqBase;
begin
   lRequestClass := cWebActStructures[ttlogin].RequestClass;
   lRequestBase := lRequestClass.Create;     // instance of type TReqLogin
   lContext := TSuperRttiContext.Create;
   lJSON := lContext.AsJson<TReqBase>(lRequestBase);

我得到了 TReqBase 序列化：lJSON.AsString = '{"token":-12346789}'
我想让 TReqLogin 序列化。
试过：

  • lContext.AsJson<TReqLogin>(lRequestBase); 不起作用：不兼容的类型）[此外，我必须在我的例程中列出/处理所有可能的 RequestClass 类型]

  • lContext.AsJson< lRequestBase.ClassType >(lRequestBase) 都不是：E2531 方法“AsJson”需要显式类型参数

有什么办法可以让我的 lRequestBase 序列化为 TReqLogin、TReq... 而不必为它们全部编码？

4

1 回答 1

1

诀窍是不要自己创建TSuperRttiContext并调用它的 AsJSOn 方法，而是立即使用：

lJSON := RequestBase.ToJSON;

然后 ToJSON 方法将在后台创建一个 TSuperRttiContext 并处理必要的转换。

非常感谢Marjan的帮助。

于 2013-08-12T10:06:47.473 回答