当前位置：首页 > 软件开发 > dev
firefox

解析IP地址为主机域名。

解析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;

 ↓相关文章：
© 2006-2008 All Rights Reserved