在Delphi中销毁COM对象

Question

有一些.net程序集，通过COM在delphi中调用它。

var
   intf: ITest;

...
   intf:= CreateComObject(CLASS_TEST) as ITest;
   ...
   //here comes some stuff
   ...

我必须做点什么来破坏它以释放内存吗？或不？

Answer 1

COM 对象是引用计数的，当引用计数达到零时，它们会自动销毁。每当您的代码添加或删除对象的引用时，编译器都会自动添加对 _AddRef 和 _Release 接口方法的调用。将引用 COM 对象的变量设置为 nil 将调用 _Release （减少引用计数），如果引用计数达到零，该对象也会被释放（它不会如果引用计数不为零）。当变量超出范围时（即局部变量，当过程退出时），如果该变量引用 COM 对象（或任何引用计数的 Delphi 接口），编译器也会调用 _Release。

Answer 2

所有COM 接口都必须实现IUnknown：

IUnknown = interface
  function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
  function _AddRef: Integer; stdcall;
  function _Release: Integer; stdcall;
end;

IUnknown 提供两种服务。首先，QueryInterface 允许客户端获取该对象可能实现的其他接口。第二个服务是生命周期管理。

每次引用 COM 对象时，您都有责任调用 _AddRef。每次放弃对 COM 对象的引用时，您都必须调用 _Release。

_AddRef 和 _Release 的规范实现是让实现对象维护一个引用计数变量，该变量随着引用的获取和释放而递增和递减。如果对 _Release 的调用将此引用计数设置为 0，则该对象会自行销毁。

接口的 Delphi 实现代表您管理对 _AddRef 和 _Release 的调用。当您分配给接口变量时，编译器会发出以下代码：

• 在该变量先前引用的接口上调用 _Release（如果该变量先前确实引用过某些内容）。
• 在变量现在引用的接口上调用_AddRef。

编译器还会安排在变量离开作用域时调用_Release。

这意味着您无需采取任何特殊操作即可确保 COM 对象被销毁。当对对象的最后一个引用离开作用域时，它们自然会被销毁。

但是，如果您确实希望提前销毁对象，则只需将 nil 分配给保存该接口的变量即可。请注意，这当然是假设没有对该接口进行其他引用。

Answer 3

你最好释放内存

       intf := nil;

当你不再需要它时， 。如果 intf 定义为 ，则最好使用 try...finally intf := nil; 块，或者在 Destroy 重写方法中fIntf，即作为类属性。

如果intf是在栈上定义的，我们会在方法结束时自动释放它。有一个隐藏的 try...finally intf := nil;编译器生成的 end 块用于释放 intf 实例。

Answer 4

该对象会自动释放。但是，如果您明确想要释放 intf 变量所持有的引用，则可以将其设置为 nil。