DELPHI域名解析为IP地址

使用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;