Delphi-TSevenZipVCL中的内存泄漏

Question

使用madhi的madExcept和组件TSevenZipVCL（ http://www.rg-software.de ）测试内存泄漏，它在这里报告泄漏：

  POleStr = PWideChar;
  TBStr = POleStr;
    function TSevenZip.List: Integer;
    ...
      for i := 0 to w - 1 do
      begin
        name := new( TBSTR ); <-------
        ptype := 0;
        inA.GetPropertyInfo( i, name, prop, pType );

即使我添加Dispose（name），也会发生泄漏，这可能是什么问题？

TSevenZip单元发布在此处： http ：//pastebin.com/bhvERDJv

Answer 1

inA.GetPropertyInfo( i, name, prop, pType );

该函数似乎在第一个参数中传递了索引，并且通过其他参数返回了具有该索引的属性的信息。 编写您正在调用的代码的人对IInArchive接口的翻译都非常差。 该函数如下所示：

function GetPropertyInfo( index: DWORD; var name: TBSTR; var propID: PROPID; 
    var varType: {PVARTYPE}Integer ): Integer; stdcall;

C ++声明如下所示：

STDMETHOD(GetPropertyInfo)(UInt32 index, BSTR *name, PROPID *propID, VARTYPE *varType);

name参数是在函数中分配并返回给调用方的COM BSTR。

我会这样声明：

function GetPropertyInfo( index: DWORD; out name: WideString; var propID: PROPID; 
    var varType: {PVARTYPE}Integer ): Integer; stdcall;

通过这样做，您将确保编译器在完成处理后能够释放COM BSTR。

您应该删除对New的呼叫。 这是完全虚假的。