Die Variable ServerIP herausfinden!(Scannen)

[Captnemo]

Es gibt sicherlich bessere Möglichkeiten, aber versuchs mal hiermit:

Delphi-Quellcode:

PROCEDURE SCAN; 
VAR 
 i:Integer; 
Begin 
 For i:=0 to 255 do 
 Begin 
  Client.host:='192.168.2.'+inttostr(i); 
  Try
   Client.open; 
   If Client.socket.connected=true then 
   Listbox1.items.add('Client.host'); 
   Client.close; 
  except
   //irgentwas - Vielleicht ne Meldung
  end;
 end; 
end;