Speicher läuft voll bei WMI....

[Centrii]

Hallo Delphianer

Hab ein Problem mit einer Function mit der ich Prozesse und was dazu gehört über WMI auslese. Es funktioniert alles wunderbar, nur läuft mir der Speicher voll und die "Handles" im Taskmanager erhöhen sich im Sekundentakt. Soweit erklärbar, ich komm sekündlich in der Function vorbei. Im folgenden Code passiert das in der while-Schleife, wenn ich die auskommentiere ist alles ok.

Delphi-Quellcode:

function TfProzesse.WMIEnumProcesses(Computer, User, Password: string): TPIArray;

  function GetCompName: string;
  var
    Buf        : array[0..MAX_COMPUTERNAME_LENGTH] of Char;
    Size       : DWORD;
  begin
    Size := SizeOf(Buf);
    if GetComputerName(Buf, Size) then
      Result := Buf
    else
      Result := '';
  end;

var
  FComputer: String;
  FUser: String;
  FPassword: String;
  Services     : ISWbemServices;
  ObjectDefinition: ISWbemObject;
  ObjectSet    : SWbemObjectSet;
  ObjectInstances: IEnumVariant;
  WMIObject    : ISWbemObject;
  PropertySet  : ISWbemPropertySet;
  WMIProperty  : ISWbemProperty;

  TempObj      : OleVariant;
  ObjValue     : Cardinal;
  i            : Integer;
resourcestring
  rsWMIError   = 'WMI-Fehler';
begin
  if AnsiUpperCase(GetCompName) = AnsiUpperCase(Computer) then
  begin
    FComputer := '';
    FUser := '';
    FPassword := '';
  end
  else
  begin
    FComputer := Computer;
    FUser := user;
    FPassword := Password;
  end;
  i := 0;
  //Locator := TSWbemLocator.Create(Nil);
  try
    try
      Services := Locator.ConnectServer(FComputer, 'root\CIMV2',FUser, FPassword, '', '', 0, nil);
     if Services <> nil then
      begin
        Services.Security_.Set_ImpersonationLevel(wbemImpersonationLevelImpersonate);
        Services.Security_.Privileges.Add(wbemPrivilegeDebug, True);
        ObjectDefinition := Services.Get('Win32_Process',
          wbemFlagUseAmendedQualifiers, nil);
        ObjectSet := ObjectDefinition.Instances_(0, nil);
        ObjectInstances := (ObjectSet._NewEnum) as IEnumVariant;
        while (ObjectInstances.Next(1, TempObj, ObjValue) = S_OK) do
        begin
            //hier werden die Prozesse ausgelesen
        end;
    end;
    finally
      Services := nil;
    end;
  except
    on e: Exception do
      raise e.Create(e.message);
  end;
end;

Nun die Frage, kann mir irgendjemand sagen wie ich das umgehe, oder was ich wieder freigeben muss um mein Problem zu beheben?

Ich bin mir ziemlich sicher das es daran liegt

Delphi-Quellcode:

while (ObjectInstances.Next(1, TempObj, ObjValue) = S_OK) do
begin

Über Vorschläge oder sogar Lösungen bin ich sehr Dankbar

Gruß Ruben

[Centrii]

Schade, scheinbar kann mir wieder keiner helfen :cry:

Gruß Ruben

[SirThornberry]

ich kenne die einzelnen Funktionen nicht aber ich sehe nirgends eine Funktion die irgendwas wieder frei gibt.

[Centrii]

genau das ist mein Problem, ich schaffs aber nicht die Objecte wieder frei zu geben. :?:

[Luckie]

Das sind ja alles Interfaces. Interfaces werden nicht freigegeben. Aber versuch mal sie wieder auf nil zu setzen.

[Bernhard Geyer]

Probier mal expliziet die Interfaces mit _Release freizugeben.

Sollte man eigentlich nicht machen/nötig sein, aber wenn ich ähnliche Codequalität wie beim IE vorraussetze ist das manchmal nötig um Fehler in der MS-Implementierung zu umgehen (sich selbst am Leben erhaltende Interface-Zeiger).

Aber bitte alle _relese-Aufrufe mit try..except sichern. Manchmal behebt MS auch Uraltfehler (wie z.B. beim IE).

[Centrii]

Ich hab jetzt mal versucht die Interfaces freizugeben. Mit nil bekomm ich keinen Fehler aber auch keine Verbesserung. Mit _release bekomm ich sofort Zugriffsverletzungen.
Ich hab das Programm mal ein wenig abgespeckt und stell es mal hier online, vielleicht kann ja einer von Euch "Wissenden" den Fehler finden...

Beim Programm auf Prozesse klicken und Username, Password und Server leer lassen wenn ihr auf Eurem PC die Prozesse sehen wollt. Remote halt Servername, Username, und Password eingeben.
Wenn das Programm läuft steigen sekündlich die handles von AutoCopy und somit auch der Speicher bis ins Nirvana

Thanks :thumb:

Gruß
Ruben

[salat]

Zitat:

Zitat von Centrii

Ich hab jetzt mal versucht die Interfaces freizugeben. Mit nil bekomm ich keinen Fehler aber auch keine Verbesserung.

Mir fehlen leider ettliche Komponenten - aber:

Delphi-Quellcode:

Locator := nil;

fehlt schon mal..

Nimm doch das von hier..

Grüße
Sascha

[Centrii]

Das mit dem Locator:=nil hab ich schon versucht, ich hab ja einen Locator im Form liegen, d.h. ich create mir keinen neuen wenn ich in die Function gehe. Wenn ich einen neuen in der Function create mach ich auch ein Locator:=nil, leider ohne Erfolg. Die "handels" und der Speicher erhöhen sich trotzdem. :cry:
Was für Komponenten fehlen dir denn??

Gruß

Ruben

[delphin06]

Hallo

Habe auch das Problem mit der WMI.
Ich habe die WMI.pas aus der WMI Demo mit in mein Projekt eingebunden und greife darauf zu. Doch bei jedem aufruf steigt der Speicher um 20-30KB an. Wenn man da nur ein oder zweimal drauf zugreift is das ja noch ok aber ich benötige mehrere zugriffe um änderungen festzustellen. und da steigt der speicherbedarf mit der zeit enorm.
Es liegt definitiv an der WMI.pas. die demo hat das selbe problem. also wird da irgendwo der speicher nicht wieder freigegeben.

Hier mal ein Teil code von mir wie ich auf die WMI zugreife:

Delphi-Quellcode:

comp:='.';
   namespace:='root\CIMV2';
   username:='';
   pass:='';
  if vistaplus then
     query:='    SELECT Caption, Size, Partitions, SerialNumber, Signature FROM Win32_DiskDrive'
  else
    query:='    SELECT Caption, Size, Partitions, Signature FROM Win32_DiskDrive';

  if not WMIGetInfo(comp, namespace, username, pass, Trim(query), WMIResults) then //Hier ist der erste Zugriff. und dieser 
    begin                                                                          //verursacht schon den speicheranstieg
      wmidrives[0,0] := 'ERROR';
      wmierror:=true;
      Exit;
    end
  else
    wmierror:=false;

  wmidrives[0,0] := '';

  if WMIResults.Instance = nil then
    begin
      wmierror:=true;
      Exit;
    end
  else
    wmierror:=false;

....

Wäre super wenn da jemand nachgucken könnte der sich damit auskennt. Ich könnte mir evtl vorstellen, dass das durch
setlength() ausgelöst wird. weil das ja auch verwendet wird darin. Aber ich weiß es nicht

Hier nochmal die WMI.pas im Anhang: