Как вычислить IP-адрес по доменному имени

Previous  Top  Next

    
 

 

 

Code:

uses winsock

-------

function IPAddrToName(IPAddr : String): String;

var

SockAddrIn: TSockAddrIn;

HostEnt: PHostEnt;

WSAData: TWSAData;

begin

WSAStartup($101, WSAData);

SockAddrIn.sin_addr.s_addr:= inet_addr(PChar(IPAddr));

HostEnt:= gethostbyaddr(@SockAddrIn.sin_addr.S_addr, 4, AF_INET);

if HostEnt<>nil then

begin

   result:=StrPas(Hostent^.h_name)

end

else

begin

   result:='';

end;

end;

 

 

Пример использования:

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Caption:=IPAddrToName(Edit1.Text);

end;

 

 

 

©Drkb::03347

Взято из http://forum.sources.ru