windows – 使用Delphi 7中的WMI进行内存泄漏

泄漏仅发生在某些版本的Windows中这意味着它可能是一个Windows问题,但我一直在搜索网络,但无法找到解决此问题的修补程序.此外,它可能是一个Delphi问题,因为在C#中具有类似功能的程序似乎没有这种泄漏.后一个事实使我相信可能有另一种更好的方法来获取Delphi中我需要的信息而不会导致内存泄漏.

我已将源代码包含在一个小程序中,以揭示下面的内存泄漏.如果行sObject.Path_低于{Leak！执行注释,发生内存泄漏.如果我发表评论,那就没有泄漏. (显然,在“真正的”程序中,我使用sObject.Path_方法调用的结果做了一些有用的东西:).

在我的机器上进行一些快速的Windows任务管理器分析,我发现了以下内容：

                       Before  N=100  N=500  N=1000
With sObject.Path_     3.7M    7.9M   18.2M  31.2M
Without sObject.Path_  3.7M    5.3M    5.4M   5.3M

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

您会注意到,有几次将nil分配给对象,这与Delphi精神相反……这些是不从TObject继承的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,'rootCIMV2',Username,Password,'',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.