Descobrir IP

Delphi

24/04/2007

Amigos, como eu faço para descobrir o IP de outra máquina na rede através de seu nome?

Ex.: Nome do Computador: Micro1. Como eu faço para descobrir o IP desse computador, acessando de outro?


Aflsilva

Aflsilva

Curtidas 0

Respostas

Carlosib

Carlosib

24/04/2007

Amigo, use a função abaixo:

  function GetIPAddress(NetworkName: string): string;
  var
   Error: DWORD;
   HostEntry: PHostEnt;
   Data: WSAData;
   Address: In_Addr;
  begin
   Error:=WSAStartup(MakeWord(1, 1), Data);
   if Error = 0 then begin
    HostEntry:=gethostbyname(PChar(NetworkName));
    Error:=GetLastError();
    if Error = 0 then begin
     Address:=PInAddr(HostEntry^.h_addr_list^)^;
     Result:=inet_ntoa(Address);
    end else begin
     Result:=´Unknown´;
    end;
   end else begin
    Result:=´Error´;
   end;
   WSACleanup();
  end;


Não esqueça de adiconar em uses Winsock.


GOSTEI 0
Aflsilva

Aflsilva

24/04/2007

Muito obrigado carlosib, funcionou da maneira que eu queria, valeu! :D


GOSTEI 0
POSTAR