输入域名求IP

[chennai]

我想用delphi编写一个程序，输入一个域名，获得这个域名的IP，请教会的人，应该怎样做？

例如输入：www.csdn.net
返回IP：211.100.21.179

就像ping一样

[lanyus]

网上好多源码........可惜偶也看不懂的。。。。555555555

[老之]

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;