Delphi的接口陷阱

发布: 2008-5-20 09:20 | 作者: 不详 | 来源: hao808.cn | 查看: 41次 | 进入软件测试论坛讨论

OBJ2 := Intf1；

TC2(Intf1).ATT1 := 0; //运行期非法地址访问错误。

OBJ2.ATT1 := 0; //运行期非法地址访问错误。

也就是，从对象引用转换成指针引用后，地址改变了，但是由指针引用再转回对象引用时地址没有变回来（Delphi的bug？）。

陷阱二、接口的生存期管理
依据我的常识（此处是编程常识，不是Delphi使用常识）来讲，我认为接口是不需要生存期管理的，因为接口根本不可能生成真正的对象。但是Delphi却又一次打击了我的常识（咦，为什么要说“又”呢？），它的接口是有生存期的，而且必须实现以下三个方法：

function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;

function _AddRef: Integer; stdcall;

function _Release: Integer; stdcall;

每次都要实现这三个方法是比较麻烦的，而且更重要的是，我不知道Delphi什么时候用以及怎么用这三个方法？所以我也不知道怎么实现这三个方法。J

如果不想自己实现这三个方法，你可以使用TComponent。因为TComponent已经实现了这三个方法，所以可以从它继承，就不用实现这三个方法了。

这样就可以放心使用了吗？答案是否定的。因为Delphi在你把接口变量置为nil时偷偷的（因为很出乎我的意料）调用了_Release。

function _IntfClear(var Dest: IInterface): Pointer;