解析IP地址为主机域名
2001-05-12 18:32
1351 查看
解析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;
使用 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;
相关文章推荐
- 将某一主机域名解析为IP地址
- 解析IP地址为主机域名
- 解析IP地址为主机域名。
- 将某一主机域名解析为IP地址。
- 解析IP地址与MAC地址
- 使用SNOOPING 防止私设的DHCP服务器分配IP地址解析
- 关于GetHostEntry无法解析IP地址和ReceiveFrom调用中ref关键字问题
- 获取ip地址解析归属地
- Python解析IP地址CIDR的形式
- 解析IP地址与MAC地址 (转载)
- 主机名解析成IP地址
- IP地址解析
- 自动解析IP地址工具
- Java输出通过InetAddress获得的IP地址数组详细解析
- Linux下由域名编程解析ip地址 (段错误(吐核))
- IP地址解析
- VC 域名解析成ip地址
- 修改主机IP地址解析顺序
- java解析主机名获取ip地址
- IP地址解析