输入域名求IP 我想用delphi编写一个程序,输入一个域名,获得这个域名的IP,请教会的人,应该怎样做?例如输入:www.csdn.net返回IP:211.100.21.179就像ping一样 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 uses WinSock;function HostNameToIP(HostName:string):string;var WSAData:TWSAData; pHost:pHostEnt; IP:string;begin WSAStartup(MAKEWORD(2,2),WSAData); pHost:=GetHostByName(PChar(HostName)); IP:=Copy(pHost.h_addr^,0,4); Result:=Format('%d.%d.%d.%d',[Ord(IP[1]),Ord(IP[2]),Ord(IP[3]),Ord(IP[4])]);end; udp设置超时问题 dbgrid的问题,基础问题 100大洋(人民币),求一个能实现模糊查询的COMBOBOX 听说有人要偷我头像? 大家有没有见过做软件开发的还要担保? 打印遇到的麻烦问题? com+问题(需要高手的关注) 如何保存控件属性为文件并能载入动态重建生成控件?(像dfm文件一样) 可以直接修改类名? 请教加密算法 mdi窗体最大化 用Query查询ORACLE数据库显示在DBGrid中但不能修改?
var WSAData:TWSAData;
pHost:pHostEnt;
IP:string;
begin
WSAStartup(MAKEWORD(2,2),WSAData);
pHost:=GetHostByName(PChar(HostName));
IP:=Copy(pHost.h_addr^,0,4);
Result:=Format('%d.%d.%d.%d',[Ord(IP[1]),Ord(IP[2]),Ord(IP[3]),Ord(IP[4])]);
end;