使用WinSock单元;
过程如下:
functionHostToIP(Name:string;varIp:string):Boolean;
var
wsdata:TWSAData;
hostName:array[0..255]ofchar;
hostEnt:PHostEnt;
addr:PChar;
begin
WSAStartup($0101,wsdata);
try
gethostname(hostName,sizeof(hostName));
StrPCopy(hostName,Name);
hostEnt:=gethostbyname(hostName);
ifAssigned(hostEnt)then
ifAssigned(hostEnt^.h_addr_list)thenbegin
addr:=hostEnt^.h_addr_list^;
ifAssigned(addr)thenbegin
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
elsebegin
Result:=False;
end;
finally
WSACleanup;
end
end;
测试时请在在线状态。
测试代码:
var
IP:string;
DNS:string;
begin
DNS:=InputBox(’输入DNS域名’,’主机名称:’,’);
ifHostToIp(DNS,IP)thenshowmessage(IP);
end;
分享到:
相关推荐
域名转IP.输入域名,点转换。可以将域名转化为IP delphi 编写
delphi xe7 输入域名即可解析得到IP地址,亲测可以使用!
delphi中解析服务器IP地址,取得快捷方式中的连接以及判断字符串是否是有效EMAIL地址
DNS域名解析,delphi xe8,windows、android、ios亲测可用,辛苦查阅资料,还请多多关照。
一个简单的通过域名获取IP(Delphi源码)
delphi 编写的利用http技术获取路由器的公网IP地址。
delphi使用netsh.exe进行ip地址的随意切换配置
delphi IP地址切换器含源码 适用于经常换ip地址的用户
Delphi_JSON delphi7解析JSON控件,新测可以用。。。。。
delphi7 查看本机的IP地址的工具,附带源码,测试通过,仅供参考。
利用Delphi编制IP地址转换器,实现电脑自动转换。
IP地址切换工具Delphi源码.各位朋友可以借鉴修改和后续的开发
这个是本人自己写的,方便大家学习。主要功能就是生成大量IP地址.
通过域名获取IP的Delphi源代码..rar
某个功能要求在delphi7下把IP地址与32位整型地址能进行互转,在网上查询了很多方法,但都不对。最后自己写了一个,测试OK。
delphi编写的获取IP地址,MAC地址例子,有源码
delphi7获取MAC地址
获取计算机名和IP地址+设置IP
需要先安装“Indy控件”,才能正常打开程序。 窗体Form中只用到一个控件:控件栏Indy Misc——IdIPWatch(图标为眼睛)
在网络程序的设计过程中,经常需要根据得到的IP地址取得主机的名称,本实例将演示如何根据用户输入的IP地址获取对应主机的名称。