时间戳

首页 > 解决方案 > 使用 RTTI 方法调用返回的函数引用

delphi - 使用 RTTI 方法调用返回的函数引用

问题描述

在 Delphi 程序中，具有以下模式：

TDelegate=reference to procedure(const Arg: TMyType); 

TRouter = class
  ...
public
  procedure RegisterHandler(const route: string: handler: TDelegate);
end;

THandlerContainer = class
public
  function getDelegate: TDelegate;
  procedure register(const Router: TRouter);
end; // class

...
procedure THandlerContainer.register(const router: TRouter)
begin
  router.RegisterHandler('route', getDelegate);
end;

基本上，我正在注册用于处理一些消息处理的函数引用（基于“路由”字符串）。

我想为我的同事简化模式，这样他们就不必为每个实现自己调用 router.RegisterHandler，而只需向他们的类添加一个属性，然后将一个实例传递给将使用 RTTI 的 TRouter 方法找到由该属性修饰的所有方法并注册它们。

因此，我为该装饰创建了一个简单的属性RegisterMessageHandlerAttribute（带有用于接收路由字符串的自定义构造函数）并编写了一个 TRouter 方法，该方法使用 RTTI 查找所有使用该属性装饰的方法：

function TRouter.RegisterHandlers(const HandlerContainerClass:
    TObject);
var
  RTTIContext: TRttiContext;
  RttiType : TRttiType;
  prop: TRttiMethod;
  Attr: TCustomAttribute;
begin
  RTTIContext := TRttiContext.Create;
  try
    RttiType := RTTIContext.GetType(HandlerContainerClass);
    if assigned(RttiType) then
    begin
      for prop in RttiType.GetMethods do
      begin
         for Attr in Prop.GetAttributes do
         begin
           if (Attr is RegisterMessageHandlerAttribute) then
           begin
               Self.RegisterHandler(
                (Attr as RegisterMessageHandlerAttribute).Route,
                TDelegate(Prop.Invoke(HandlerContainerClass, []).AsPointer); // <--- this fails
               );
           end;
         end;
      end;
    end;
  finally
    RTTIContext.Free;
  end;
  result := Handlers.ToArray;
end;

不幸的是，编译器在我通过调用该方法检索 lambda 的那一行抱怨：

TDelegate(Prop.Invoke(HandlerContainerClass, []).AsPointer);
...
[dcc32 Error] GIT.MessageQueue.Router.pas(169): E2089 Invalid typecast

我的问题是我不知道如何获取 Prop.Invoke 返回的 TValue 类型并将其用作 TDelegate 类型的函数引用。

标签： delphirttidelphi-10.2-tokyo

解决方案

只需使用.AsType<TDelegate>()- 这将返回TValueas的内容TDelegate。该功能还确保您不会将内部的TValue东西变成不明确分配兼容的东西（不像变体那样）。但由于这是您的函数的确切返回类型，因此它可以正常工作。

PS 您需要显式键入括号，否则您可能会从编译器收到 E2010 错误。

推荐阅读