Delphi 7中使用WMI的内存泄漏

使用Delphi 7的WMI查询（远程）电脑时，遇到内存泄漏。 内存泄漏只发生在Windows 2003（和Windows XP 64）上。 Windows 2000是好的，Windows 2008也是如此。我想知道是否有人遇到类似的问题。

事实上，泄漏只发生在某些版本的Windows意味着它可能是一个Windows问题，但我一直在searchnetworking，一直没有能够find一个修复程序来解决问题。 另外，这可能是一个Delphi问题，因为在C＃中具有类似function的程序似乎没有泄漏。 后一个事实使我相信，在Delphi中获得所需的信息可能还有另一种更好的方式，而不会发生内存泄漏。

我已经将源代码包含在一个小程序中，以显示下面的内存泄漏。 如果sObject.Path_下面的行{ Leak! } { Leak! }注释被执行，发生内存泄漏。 如果我把它评论出来，就没有泄漏。 （显然，在“真正的”程序中，我用sObject.Path_方法调用的结果做了一些有用的sObject.Path_ 。）

用我的机器上的一个简单的Windows任务pipe理器分析，发现了以下内容：

• 内存泄漏debugging与windbg没有用户堆栈跟踪
• 在Windows / 64位/混合模式下快速捕获堆栈跟踪
• 用新的放置replace新的macros观冲突
• Windows API调用的内存泄漏问题 – Delphi
• 在ASP.NET Web App中查找内存泄漏

                       在N = 100之前N = 500 N = 1000
 sObject.Path_ 3.7M 7.9M 18.2M 31.2M
没有sObject.Path_ 3.7M 5.3M 5.4M 5.3M

我想我的问题是：有其他人遇到过这个问题吗？ 如果是这样，是不是Windows的问题，是否有一个修补程序？ 或者（更可能）是我的Delphi代码被破坏了，有没有更好的方法来获取我需要的信息？

你会注意到有几次， nil是分配给对象的，与Delphi精神相反……这些是不从TObjectinheritance的COM对象，也没有可以调用的析构函数。 通过给它们分配nil ，Windows的垃圾收集器清理它们。

 program ConsoleMemoryLeak; {$APPTYPE CONSOLE} uses Variants, ActiveX, WbemScripting_TLB; const N = 100; WMIQuery = 'SELECT * FROM Win32_Process'; Host = 'localhost'; { Must be empty when scanning localhost } Username = ''; Password = ''; procedure ProcessObjectSet(WMIObjectSet: ISWbemObjectSet); var Enum: IEnumVariant; tempObj: OleVariant; Value: Cardinal; sObject: ISWbemObject; begin Enum := (wmiObjectSet._NewEnum) as IEnumVariant; while (Enum.Next(1, tempObj, Value) = S_OK) do begin sObject := IUnknown(tempObj) as SWBemObject; { Leak! } sObject.Path_; sObject := nil; tempObj := Unassigned; end; Enum := nil; end; function ExecuteQuery: ISWbemObjectSet; var Locator: ISWbemLocator; Services: ISWbemServices; begin Locator := CoSWbemLocator.Create; Services := Locator.ConnectServer(Host, 'root\CIMV2', Username, Password, '', '', 0, nil); Result := Services.ExecQuery(WMIQuery, 'WQL', wbemFlagReturnImmediately and wbemFlagForwardOnly, nil); Services := nil; Locator := nil; end; procedure DoQuery; var ObjectSet: ISWbemObjectSet; begin CoInitialize(nil); ObjectSet := ExecuteQuery; ProcessObjectSet(ObjectSet); ObjectSet := nil; CoUninitialize; end; var i: Integer; begin WriteLn('Press Enter to start'); ReadLn; for i := 1 to N do DoQuery; WriteLn('Press Enter to end'); ReadLn; end. 

 procedure ProcessObjectSet(WMIObjectSet: ISWbemObjectSet); var Enum: IEnumVariant; tempObj: OleVariant; Value: Cardinal; sObject: ISWbemObject; begin Enum := (wmiObjectSet._NewEnum) as IEnumVariant; while (Enum.Next(1, tempObj, Value) = S_OK) do begin sObject := IUnknown(tempObj) as SWBemObject; { Leak! } sObject.Path_; end; end; 

 sObject.Path_;