IP

Question

Colegas, algum d vcs teria uma fun��o que retorne o IP de uma maquina que esta na rede?
Eu tenho uma funcao mas ela so me retorna o IP da maquina em que estou. Queria fazer uma rotina para scanear a rede e me retornar as maquinas e seus respectivo IPs.
Alguma dica?
Obrigado
PedroLeonardo

Ezdala · Answer

[color=darkred:91f5b1882a][/color:91f5b1882a][color=darkred:91f5b1882a][/color:91f5b1882a][color=darkred:91f5b1882a][/color:91f5b1882a]segue abaixo um fun��o q ao digitar o nome da m�quina da rede retorna o seu IP

function GetIP(Nome:String) : string;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe : PHostEnt;
pptr : PaPInAddr;
I : Integer;
GInitData : TWSADATA;
begin
WSAStartup($101, GInitData);
Result := ��;
GetHostName(PChar(Nome), SizeOf(Nome));
phe :=GetHostByName(PChar(Nome));
if phe = nil then Exit;
pptr := PaPInAddr(Phe^.h_addr_list);

I := 0;
while pptr^[I] <> nil do
begin
result:=StrPas(inet_ntoa(pptr^[I]^));
result := StrPas(inet_ntoa(pptr^[I]^));
Inc(I);
end;
WSACleanup;
end;

Obs.: usei os componentes: ClientSocket, ServerSocket da paleta Internet

Espero ter ajudado ...

Ez

F�rum IP #174987