Speicher läuft voll bei WMI....

[Centrii]

ja da hast du recht, irgendwo bleibt bei mir auch noch Speicher auf der Strecke. Bin auch grad dabei zu suchen wo das passiert.
Freu mich aber das der größte teil auch bei dir mit dem
VarClear(...) behoben ist...

Gruß Ruben

[RWarnecke]

Zitat von Centrii:

so, nach langer suche bin ich mit Hilfe fündig geworden. Du hast in deiner While-Schleife ein WMIObject vom Typ OleVariant, richtig?
das musst bei jedem Schleifen-Durchlauf mit
VarClear(WMIObject); "freigeben".
Bei mir hat das das Problem behoben. Müsste also bei dir auch gehen...

Bitte lass mich wissen ob es bei dir auch funktioniert hat....

Gruß Ruben

Hallo Ruben, das mit dem VarClear war ein guter Tipp. Ich bedanke mich dafür.

[Centrii]

Guten morgen Rolf

Ich freu mich das ich jetzt endlich mal jemand helfen konnte, nachdem mir hier schon so viel geholfen wurde...

Gruß Ruben

[Centrii]

Wenn einer von Euch rausfindet wie man das Speicherleck beim Connect() stopft, lasst es mich bitte wissen.
Ich finde im moment nicht an was das liegen kann.

Gruß Ruben

[delphin06]

Ich glaube das ist hoffnungslos. Hab gerade nochmal den code verfolgt.

Irgendwann springt der in die system.pas und arbeitet nur noch Assembler-code ab. und da steigt dann langsam der speicher an. Mit assembler-code kenn ich mich nich wirklich aus und deshalb lass ich es.

Ich werde die wmi ganz einfach in eine externe anwendung packen, die mir in eine datei alles reinschreibt was ich brauche. danach beende ich das programm einfach wieder. dann is der speicher auch sicher freigegeben.

[BlackSeven]

Zitat von Centrii:

Ich bin mir ziemlich sicher das es daran liegt

Delphi-Quellcode:

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

Habe ein ähnliches Problem:

Beim Start eines Dienstes rufe ich verschiedene Informationen per WMI ab. Dieser bleibt allerdings hängen.
OS: Windows XP SP3

Delphi-Quellcode:

var

 SWbemLocator : OLEVariant;
 WMIService   : OLEVariant;
 WbemObjectSet: OLEVariant;
 WbemObject   : OLEVariant;
 oEnum        : IEnumvariant;
 iValue       : LongWord;

begin

  SWbemLocator  := CreateOleObject('WbemScripting.SWbemLocator');
  WMIService    := SWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
  WbemObjectSet := WMIService.ExecQuery('Select * From Win32_NetworkAdapter', 'WQL', wbemFlagForwardOnly);
  oEnum         := IUnknown(WbemObjectSet._NewEnum) as IEnumVariant;

  while oEnum.Next(1, WbemObject, iValue) = 0 do // <- scheint hier hängen zu bleiben
  begin

    Log('!'); // Zeile wird nicht mehr geloggt

  end;

  // ...