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

[Sharky]

Hai DJ-SPN,

diese Funktion liefert nur die IP-Adressen des eigenen Computers.
Mir ist auch keine Methode bekannt die IP´s anderer Rechner im LAN auszulesen!

[TheMiller]

Oh hups...

Sharky... ich habe deinen Post missverstanden. Du hast in der library geschrieben:

Rechner mit 2 NICs und alle IPs werden erkannt...

Logisch. Du hast 2 Karten im Rechner, dann hast du auch 2 IPs. Ich dachte du hast das auf 2 rechner bezogen...

Ähm, schweigen wir über was anderes


thx bye

[Christian Seehase]

Moin DJ-SPM,

es gibt hier mindesten einen Thread zum Thema "Alle Rechner im Netz auflisten".
Such' dazu am Besten mal nach NetServerEnum.
Die IP-Adresse dazu kannst Du z.B. auch mit IcmpSendEcho herausbekommen.

[flomei]

Wahrscheinlich meint Christian diesen Thread. Blätter mal durch, später gibt es einige Lösungen...

MfG Florian