Escaner de Ip´s

[acl_gandalf]

Hace una semana o asi postee por error en la parte de bbdd preguntando q componente me recomendabais para hacer un escaner de ip's. Si me puede ayudar alguien. con cualquier idea..
de antemano gracias, y disculpas por el error

[Gydba]

Hola,

En codecentral está el siguiente ejemplo, no sé si te servirá:
http://cc.borland.com/ccweb.exe/listing?id=17666

Saludos!

[URBANO]

Te comento un codigo que te da la direccion ip de tu maquina y el nombre del grupo de trabajo.

En los uses pon Winsock.

En el evento oncreate de la ventana:

procedure TForm1.FormCreate(Sender: TObject);
var
wVersionRequested : WORD;
wsaData : TWSAData;
begin
{Start up WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);
end;

En el Buttonclick:

procedure TForm1.Button1Click(Sender: TObject);
var
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin
{Get the computer name}
GetHostName(@s, 128);
p := GetHostByName(@s);
Memo1.Lines.Add(p^.h_Name);
{Get the IpAddress}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Memo1.Lines.Add(p2);
end;

y en el destroy de la ventana:

procedure TForm1.FormDestroy(Sender: TObject);
begin
{Shut down WinSock}
WSACleanup;

end;


Espero que te ayude en algo o te oriente.
Saludos.