Delphi中的COM方法偏移

在Delphi中,如何找到COM方法的地址？
我可以硬编码偏移量

//0 is the offset of the QueryInterface method
p := TPonterarray(pointer(SomeInterface)^)[0];

但我更喜欢使用符号名称.以下显然不起作用：

var M : TMethod;
...
M := TMethod(SomeInterface.QueryInterface);

谢谢！

解决方法

您可以使用vmtoffset汇编程序指令获取接口方法相对于接口方法表开头的字节偏移量.看一下System.pas中_IntfCast的实现,例如：

call dword ptr [eax] + vmtoffset IInterface.QueryInterface
...
call dword ptr [eax] + vmtoffset IInterface._Release

第一个表达式加0;第二,8.

但是,您无法对这些表达式进行参数化.它们是编译时常量,因此您无法在运行时选择所需的方法.您需要提前表示所有可能的方法名称.

你真正需要挂钩的是QueryInterface.完成后,您可以返回所需的任何代理对象,可以拦截对所有其他方法的调用.