Delphi 2009 - 接口属性会导致内存泄漏吗？

Question

我继承了一个 Intraweb 应用程序，该应用程序有一个 2MB 的内存泄漏文本文件，由 FastMM4 报告。我已经把它归结为一个类的 115 个实例泄漏 52 个字节。

对坏演员的简要描述是：

TCwcBasicAdapter = class(TCwcCustomAdapter)  
  protected  
    FNavTitleField: TField;  
    function GetAdapterNav(aDataSet: TDataSet): ICwcCDSAdapterNav; override;  
  public  
    constructor Create(aDataSource: TDataSource; aKeyField, aNavTitleField: TField; aMultiple: boolean);  
  end;  

界面是：

  ICwcCDSAdapterNav = interface(IInterface)  

我是不是找错了树，因为该属性是引用计数的？是否存在接口属性可以防止类被破坏的情况？

下面是上面方法的实现：

function TCwcBasicAdapter.GetAdapterNav(aDataSet: TDataSet): ICwcCDSAdapterNav;
var
  AdapterNav: TCwcCDSAdapterNavBase;
begin
  result := nil;
  if Assigned(aDataSet) then begin
    AdapterNav := TCwcCDSAdapterNavBasic.Create(aDataSet, FKeyField.Index, FNavTitleField.Index);
    try
      AdapterNav.GetInterface(ICwcCDSAdapterNav, result);
    except
      FreeAndNil(AdapterNav);
      raise;
    end;
  end;
end;

类声明为：

TCwcCDSAdapterNavBase = class(TInterfacedObject, ICwcCDSAdapterNav)

Answer 1

FastMM 应该会告诉您泄露的内容和创建位置。
这将有助于将其缩小到真正的罪魁祸首：谁泄露了什么？

我不确定你的问题到底是什么？
您的代码不完整或不是问题：您的类没有接口属性，也没有接口私有字段，只是一个返回接口的方法，这是无害的。

编辑：没有看到您的 Object 实现 ICwcCDSAdapterNav 的代码，我们无法判断它是否确实是引用计数的。
如果您不是从 TInterfacedObject 继承的 strong>，有可能它没有被引用计数并且你不能依赖这种自动释放...

您可能想看看这个 CodeRage 2 会话：Fighting Memory Leaks for Dummies。它主要展示了如何使用 FastMM 来防止/检测 Delphi 中的内存泄漏。适用于 D2007，但仍适用于其他版本。

Answer 2

到目前为止，关于 FastMM 的工作原理，您已经得到了一些很好的答案。但就您的实际问题而言，是的，接口对象可能以两种不同的方式泄漏。

1. 仅当接口所属的对象在其 _AddRef 和 _Release 方法中实现了引用计数时，接口才会被引用计数。有些对象没有。
2. 如果您有循环接口引用（接口 1 引用接口 2，它引用接口 1），那么如果您没有一些特殊技巧，引用计数将永远不会降到 0。如果这是您的问题，我会将您推荐给 Andreas Hausladen 的recent blog post on the subject.

Answer 3

如果您泄漏了该类的 115 个实例，那么泄漏的是 该类。该类占用的内存，而不是它所引用的东西占用的内存，正在泄漏。在某处，您有 115 个 TCwcBasicAdapter 实例未被释放。

此外，properties 不存储数据，无论它们是接口还是其他类型。只有字段占用内存（以及编译器代表类分配的一些隐藏空间）。

所以，是的，你找错树了。您的内存泄漏在其他地方。当 FastMM 告诉您有内存泄漏时，它是否还告诉您每个泄漏实例的分配位置。它具有这种能力；您可能需要调整一些条件编译符号来启用该功能。

当然，泄漏的不仅仅是该类的 个实例。 FastMM 还应该报告一些其他泄漏的东西，例如实现接口的类或类的实例。

---

根据您添加的功能，我开始怀疑泄漏的确实是TCwcCDSAdapterNavBase，这可能是因为您使用非典型方式创建它。 GetAdapterNav 中的异常处理程序是否曾经运行过？我对此表示怀疑; TObject.GetInterface 从不明确引发异常。如果对象不支持该接口，则返回False。异常处理程序可以捕获的只是访问冲突和非法操作之类的东西，无论如何你真的不应该在那里捕获。

您可以像这样更直接地实现该功能：

if Assigned(FDataSet) then
  Result := TCwcCDSAdapterNavBase.Create(...);