输入域名求IP

Question

我想用delphi编写一个程序，输入一个域名，获得这个域名的IP，请教会的人，应该怎样做？例如输入：www.csdn.net
返回IP：211.100.21.179就像ping一样

Answer 1

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;