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