delphi - delphi获取成员函数指针

Question

是否有一些技巧如何在 Lazarus/delphi 中获取成员函数的指针？我有这段代码无法编译...

错误是在德尔福:
variable required

在拉撒路:
Error: Incompatible types: got "<procedure variable type of function(Byte):LongInt of object;StdCall>" expected "Pointer"

代码:

  TClassA = class
  public
      function ImportantFunc(AParameter: byte): integer; stdcall;
  end;

  TClassB = class
  public
     ObjectA: TClassA;
     ImportantPtr: pointer;
     procedure WorkerFunc;
  end;

  function TClassA.ImportantFunc(AParameter: byte): integer; stdcall;
  begin
     // some important stuff
  end;

  procedure TClassB.WorkerFunc;
  begin
     ImportantPtr := @ObjectA.ImportantFunc; //  <-- ERROR HERE
  end;

谢谢!

Answer 1

成员函数不能用单个指针表示。它需要两个指针，一个用于实例，一个用于代码。但这是实现细节，您只需要使用方法类型:

type
  TImportantFunc = function(AParameter: byte): integer of object; stdcall;

然后您可以将 ImportFunc 分配给该类型的变量。

由于您正在使用 stdcall，我怀疑您正在尝试将其用作 Windows 回调。这对于成员函数来说是不可能的。您需要一个具有全局作用域的函数，或者一个静态函数。