Speicher Freigabe?

[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