Variable required error (Delphi) - 如何获取程序的地址？

Question

在这里使用 Delphi 7。当我获取一个过程的地址（目的是将此方法地址作为回调发送到外部 C++ DLL）时，Delphi 7 编译器会报告Variable required。为什么？有无参数列表如何获取方法的地址？

这是显示编译器错误的简化代码。

// ...

type
  PTProcedureCallback = ^TProcedureCallback;
  TProcedureCallback = procedure() of object;

  // ...

  TTestCallback = class
    constructor Create();
    procedure MyCallback();
  end;

    //...

implementation
  constructor TTestCallback.Create();
  var
    pCallback: PTProcedureCallback;
  begin
    // Constructor
    inherited;

    // Test callback
    pCallback := @MyCallback;   // <- [Error] Variable required
  end;

  procedure TTestCallback.MyCallback();
  begin
    // Do something
  end;
end;

Answer 1

您根本不需要PTProcedureCallback，因为TProcedureCallback 已经是一个指针类型。

constructor TTestCallback.Create();
var
  pCallback: TProcedureCallback;
begin
  // Constructor
  inherited;
  // Test callback
  pCallback := MyCallback;
end;

话虽如此，您不能将 procedure of object 用作 C/C++ 回调，除非 C/C++ 代码是专门用 C++Builder 编写的，并且实际上期望通过 @987654327 得到 procedure of object @ 编译器扩展。否则，您将无法使用 非静态 类方法作为回调。但是，如果回调允许您传入用户定义的值，则可以使用该值传入对象的 Self 指针，以便您的回调可以访问其非静态成员。

另外，您的 TProcedureCallback 使用 Delphi 的默认 register 调用约定（C++Builder 中的 __fastcall），非 C++Builder 编译器中不存在该约定。只有 cdecl 和 stdcall 是可移植的调用约定。