IPs auflisten -> Teilweise

[TheMiller]

Hallo DP-User,

habe diesen Code aus der Library

Delphi-Quellcode:

uses 
  WinSock; 

function GetLocalIPs: string; 
type 
  PPInAddr = ^PInAddr; 
var 
  wsadata  : TWSAData; 
  hostinfo : PHostEnt; 
  addr     : PPInAddr; 
begin 
  Result   := ''; 

  if(WSAStartUp(MAKEWORD(1,1),wsadata) = 0) then 
  try 
    hostinfo := gethostbyname(nil); 
    if(hostinfo <> nil) then begin 
      addr   := pointer(hostinfo^.h_addr_list); 

      while(addr^ <> nil) do begin 
        Result := Result + inet_ntoa(addr^^) + ^M^J; 
        inc(addr); 
      end; 
    end; 
  finally 
    WSACleanUp; 
  end; 
end;

und habe im FormCreate diesen Code

Listbox1.items.add(GetLocalIPs); eingetragen, aber er liefert mit nur die IP meines Rechners zurück. Der Rechner, den neben mir steht, ist an, es besteht sogar eine aktive Verbindung... Aber sie wird nicht berücksichtigt.

Es müssten momentan 5 IPs sein, da bei uns 5 Rechner im Netz verbunden sind.

Oder ist da der Code falsch, den ich dafür benutzt habe?

bye