Как вычислить 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