非COM环境下的接口编程-问题，技巧，应用（一）

function _AddRef: Integer; stdcall;

function _Release: Integer; stdcall;

end;

function TMyInterfacedObject._AddRef: Integer;

begin

result:=1; //我们已经不需要引用计数了

end;

function TMyInterfacedObject._Release: Integer;

begin

result:=1;

end;

function TMyInterfacedObject.QueryInterface(const IID: TGUID;

out Obj): HResult;

begin

if GetInterface(IID, Obj) then

Result := 0

else

Result := E_NOINTERFACE;

End;

很高兴的告诉大家，到此我们已经解决了对象生命周期管理中的所有问题，我们所管理的对象可以正常工作了！而且我们还可以去掉上面的技巧性代码，从这个TmyInterfacedObject继承就已经足以解决所有的问题了。也许有人可以看到上面的代码已经极大的破坏了COM规范，然而这正是本文的目的（J），通过我们的改进，我们手工管理的对象工作的很好，而且这也正是我们所需要的不是吗？

上一篇： 与破解过招，保护你的共享软件
下一篇： 关于SMTP和POP3使用及关于客户-服务端的自动连线问题

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!