Question

是否可以在Delphi 2007中将接口方法用作事件处理程序？简单版本不起作用：

type
  TMyEvent = procedure of object;

  IMyInterface = interface
    procedure Handler;
  end;

  TMyClass = class(TInterfacedObject, IMyInterface)
  public
    procedure Handler;
  end;

var
  ev: TMyEvent;
  obj: TMyClass;
  intf: IMyInterface;
begin
  obj := TMyClass.Create;
  intf := obj;
  ev := obj.Handler; // compiles
  ev := intf.Handler; // <== Error E2010 (incompatible types)
end.

添加@或Addr会将错误更改为E2036（需要变量）。

更新：此

procedure IntRefToMethPtr(const IntRef; var MethPtr; MethNo: Integer);
type
  TVtable = array[0..999] of Pointer;
  PVtable = ^TVtable;
  PPVtable = ^PVtable;
begin
  //QI=0, AddRef=1, Release=2, etc
  TMethod(MethPtr).Code := PPVtable(IntRef)^^[MethNo];
  TMethod(MethPtr).Data := Pointer(IntRef);
end;

var
  ev: TMyEvent;
  intf: IMyInterface;
begin
  intf := TMyClass.Create;
  IntRefToMethPtr(intf, ev, 3);
  ev;
end.

的工作原理。但是我不太喜欢那里的魔法3。

Answer 1

更清晰的解决方案是实现IInterfaceComponentReference，或类似的基类，并使用它来获取类ref。

上述代码不适用于例如FPC和其他兼容机。他们的VMT结构略有不同。即使在Delphi上，未来的语言扩展也可能导致这种情况。

一个完美的解决方案是为此设置一个完全独立的“接口”方法类型，但我想知道这是否值得这样做。

接口方法为事件处理程序

1 个答案: