Gateway IP über API auslesen TeilII

[marabu]

So funktioniert es bei mir - allerdings bei abweichender Umsetzung der Strukuren aus IPHLPAPI:

Delphi-Quellcode:

var
  s: String;
...
repeat
  iasWork := pAdapterWork.GatewayList;
  while iasWork.Next <> nil do
  begin
    s := Trim(iasWork.IpAddress); // hier anpassen
    if s <> '' then
      AItems.Add('Gateway:   ' + s);
    iasWork := iasWork.Next^;
  end;
  s := Trim(iasWork.IpAddress); // hier anpassen
  if s <> '' then
    AItems.Add('Gateway:   ' + s);
  pAdapterWork := pAdapterWork.Next;
until pAdapterWork = nil;
...

Grüße vom marabu