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?
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