解析IP地址为主机域名

页面导航:首页 > 软件编程 > Delphi > 解析IP地址为主机域名

解析IP地址为主机域名

来源: 作者: 时间:2016-02-05 11:47 【

解析IP地址为主机域名。使用 WinSock 单元;过程如下: function IPAddrToName(IPAddr : String): String; var SockAddrIn: TSockAddrIn; HostEnt: PHostEnt; WSAD

解析IP地址为主机域名。

使用 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;


测试时请在在线状态。

测试代码:
var
  Name: string;
begin
  Name := InputBox(输入对方主机IP, 主机IP地址:, );
  showmessage(IpAddrToName(Name));

end;

 

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<