Speicher Freigabe?

[msickel]

Hi Gerald,

Erst mal Danke für den Tipp, auch allen anderen die sich hiermit schon auseinader gesetzt haben vielen Dank für die Hilfe.

Die Variablen habe ich deinen Vorschlägen entsprechend umgebaut, hat aber leider nichts gebracht.

Die geänderte While Schleife habe ich auch versucht, leider wird nach Änderung kein Netzwerk-Adapter mehr ausgelesen, habe ich deshalb sein lassen.
Leider ist es aber immer noch so das bei jedem Aufruf zwischen 40 und 200 k flöte gehen, kann hier noch wer einen Tipp geben?

Zitat von GHorn:

Moin,

aLoc und aSrv sind globale Variablen. Es würde
also ein einfacher Aufruf der Funktionen "GetLocator" und "GetServices" reichen.

Alle Variablen, die danach gesetzt werden (aObjSet, pEnum, hRes usw.), können bzw. sollten lokal deklariert werden - es sei denn sie werden irgendwo im Code noch gebraucht. Dadurch werden sie am Ende der Buttonclick-Funktion von Delphi sauber abgeräumt.

Die Zeile

Delphi-Quellcode:

    if (VarIsNull(vOut.NetConnectionID)) then
      Continue;

erschließt sich mir nicht. Wenn da False rauskommt, würde die while-Schleife trotzdem fortgesetzt.

Besser wäre m.E.:

Delphi-Quellcode:

var 
bContinue: Boolean;
...
begin
  bContinue := True;
  while bContinue do
    begin
      ....
      if (not (hRes = S_OK)) or 
         ((VarIsNull(vOut.NetConnectionID))) then
        bContinue := False;
      if bContinue then
        begin
          sNetConnectionID := vOut.NetConnectionID;
          ....
        end;
    end;

Gruß
Gerald

Martin