解析IP地址为主机域名
2008-04-30 22:04
309 查看
解析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地址为主机域名
- SQL解析IP地址的几种方式
- 服务器从request中解析真实访问IP地址
- dns 解析,一个域名解析到多个ip地址
- linux将域名解析成IP地址
- dns不能解析ip地址的问题
- 通过java解析域名获得IP地址
- 什么是IP地址反向解析
- java解析主机名获取ip地址
- 解析IP地址与MAC地址
- 将IP地址解析为具体的地理位置
- Ip地址解析工具类
- linux 无法解析域名,但是可以ping通IP地址
- IP地址与域名解析
- IP地址库解析——读取IP地址获得实际地理位置信息的java源码实现
- Linux下由域名编程解析ip地址 (段错误(吐核))
- 使用Bind 9 的DNS-views实现IP地址分区域解析