如何存储参数化方法的类型参数,然后使用它们将JSON对象转换为泛型类型的普通对象？

Question

我正在尝试为Delphi和.NET编写通用的消息传递系统.系统允许将消息定义为普通对象,并将消息处理程序定义为对这些对象起作用的匿名方法.

对象将转换为JSON,并在同一台计算机上运行的应用程序之间传递.每个应用程序都维护一个理解特定消息类型的处理程序列表.

我的类有许多参数化注册方法.有些采用单一类型参数.有些参数采用一对参数,其中一个表示请求对象,另一个表示响应对象.以下是请求/响应处理程序注册的内容:

procedure TTelegraph.RegisterRequestHandler<TRequest, TResponse>
  (requestTypeToHandle: string; handler: TFunc<TRequest, TResponse>);
begin
  FRequestHandlers.Add(requestTypeToHandle,
    TRequestHandler<TRequest, TResponse>.Create(handler,
    TRequest,
    TResponse));
end;

FRequestHandlers是一个TDictionary<string,TRequestHandler>.注册方法如下调用:

  FTelegraph.RegisterRequestHandler<TTestRequest, TTestResponse>('My Request', 
    function(x: TTestRequest): TTestResponse
    begin
      Result := TTestResponse.Create;
      Result.Number := x.Number;
      Result.Message := Format('Received: %s', [x.Message]);
    end);

泛型TRequestHandler<T1,T2>是一个DTO,它包含处理程序以及类型TRequest和TResponse.它继承自非泛型TRequestHandler.我不确定是否有更好的方法可以解决这个问题,但这是我能想到的在单个集合中存储多个不相关类型的唯一方法.

这一切似乎都很好.问题是收到请求消息时.处理请求消息的C#代码如下所示:

private void ProcessRequestTelegram(Telegram request)
{
    var requestType = _RequestHandlers[request.MessageType].RequestType;
    var typedRequest = JsonConvert.DeserializeObject(request.Payload, requestType);
    var result = _RequestHandlers[request.MessageType].Handler.DynamicInvoke(typedRequest);
    var jsonPayload = JsonConvert.SerializeObject(result);
    var response = new Telegram()
    {
        Payload = jsonPayload,
        CorrelationID = request.CorrelationID,
        Template = TelegramTemplateEnum.Response,
        SenderWindowHandle = _LocalWindowHandle.ToInt32(),
        RecipientWindowHandle = _MessageRecipient.ToInt32(),
        MessageType = request.MessageType
    };
    var jsonResponse = JsonConvert.SerializeObject(response);

    var resultCode = _Messaging.SendMessage(_MessageRecipient, jsonResponse);
    CheckIfSendMessageErrorOccurred(resultCode);
}

在上面的代码RequestType是Type类型.

但对于我的生活,我无法想出Delphi的等价物.我试图反序列化request.Payload,我坚持如何传递JSON解析器类型转换有效负载.我试过存储的各种方式TRequest和TResponse在的请求类型和性质的responseType TRequestHandler:TTypeInfo,TRTTIType目前TClass.但似乎没有什么能给我带来任何有用的东西TJson.JsonToObject.它有一个泛型重载,它接受返回类型的类型参数,但显然你不能使用a TClass作为类型参数.

Answer 1

您不能使用TJson.JsonToObject<T>，因为在调用此方法时您没有通用 T。查看此方法的代码，您会发现 T 被传递给TJSONUnMarshal.CreateObject。因此，在您的情况下，您应该存储 ofTClass和TRequest并TResponse编写您自己的版本，TJson.JsonToObject该版本会通过TClass.

另一种方法是首先创建实例，然后将其传递给非泛型TJson.JsonToObject，该非泛型获取ClassType传递实例的 并将其传递给TJSONUnMarshal.CreateObject.