通过域名或主机名得到ip
2006-10-24 17:20
459 查看
function hostnametoip(name:string;var ip:string):boolean;
var
wsdata:twsadata;
hostname:array [0..255] of char;
hostEnt:PHostEnt;
addr:pchar;
begin
WsaStartup($0101,wsdata);
try
gethostname(hostname,sizeof(hostname));
strpcopy(hostname,name);
hostEnt:=gethostbyname(hostname);
if Assigned(HostEnt) then
if Assigned(HostEnt^.h_addr_list^) then
begin
addr:=hostEnt^.h_addr_list^;
if Assigned(addr) then
begin
ip:=Format('%d.%d.%d.%d',[byte(addr[0]),byte(addr[1]),byte(addr[2]),byte(addr[3])]);
result:=true;
end
else result:=false
end else result:=false
else result:=false;
finally
wsacleanup;
end;
end;
var
wsdata:twsadata;
hostname:array [0..255] of char;
hostEnt:PHostEnt;
addr:pchar;
begin
WsaStartup($0101,wsdata);
try
gethostname(hostname,sizeof(hostname));
strpcopy(hostname,name);
hostEnt:=gethostbyname(hostname);
if Assigned(HostEnt) then
if Assigned(HostEnt^.h_addr_list^) then
begin
addr:=hostEnt^.h_addr_list^;
if Assigned(addr) then
begin
ip:=Format('%d.%d.%d.%d',[byte(addr[0]),byte(addr[1]),byte(addr[2]),byte(addr[3])]);
result:=true;
end
else result:=false
end else result:=false
else result:=false;
finally
wsacleanup;
end;
end;
相关文章推荐
- Tengine笔记2:通过IP、域名、端口实现虚拟主机
- Linux C 网络编程 - 获取本地 ip 地址,mac,通过域名获取对应的 ip 、获取本地主机的名字
- Tengine笔记2:通过IP、域名、端口实现虚拟主机
- Linux下C实现通过域名得到IP
- Tengine笔记2:通过IP、域名、端口实现虚拟主机
- 使用gethostbyaddr,通过ip地址,得到该ip地址的主机的信息
- 通过域名获得主机ip
- (转载)Linux网络编程-使用gethostbyaddr,通过ip地址,得到该ip地址的主机的信息
- C++通过域名得到IP
- 【通过指定IP地址得到当前的网络上的主机的域名】代码
- [VB代码]通过hostname得到主机IP
- Tengine笔记2:通过IP、域名、端口实现虚拟主机
- 使用gethostbyaddr,通过ip地址,得到该ip地址的主机的信息
- 域名、ip、以及通过域名访问网站、虚拟主机
- asp.net 通过指定IP地址得到当前的网络上的主机的域名
- asp.net 通过指定IP地址得到当前的网络上的主机的域名
- Java JDBC连接SQL Server2005错误:通过端口 1433 连接到主机 localhost 的 TCP/IP 连接失败
- 根据IP(有代理的情况)定位城市以及通过nginx转发的tomcat如何得到用户真实的ip
- Apache2.2.x+tomcat单IP多域名多站点的虚拟主机配置详解(win2003环境)
- 用C#通过网址得到域名