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），通过我们的改进，我们手工管理的对象工作的很好，而且这也正是我们所需要的不是吗？

上一页  [1] [2] [3]