域名转换IP地址 ( 积分: 10 )

如何将域名转换成IP地址?????
有哪位高手赐教???????
急急急!!

function GetIP(Name:string) : string;
type
TaPInAddr = array [0..10] of PInAddr;
PaPInAddr = ^TaPInAddr;
var
phe HostEnt;
pptr : PaPInAddr;
I : Integer;
GInitData : TWSADATA;
begin
WSAStartup($101, GInitData);
Result := '';
phe :=GetHostByName(pchar(Name)); //返回一个指向主机信息结构的指针
pptr := PaPInAddr(Phe^.h_addr_list); //强制转换
result:=StrPas(inet_ntoa(pptr^[0]^));//返回一个点分形式的字符串IP地址
WSACleanup;
end;

function GetDomainName(Ip:string):string;
var
pHHostent;
data:twsadata;
ii:dword; //即ii 为LongWord类型
begin
WSAStartup($101, Data);
ii:=inet_addr(pchar(ip)); // 返回一个适合Internet的数字化地址
pH:=gethostbyaddr(@ii,sizeof(ii),PF_INET);//返回一个指向主机信息结构的指针
if (ph<>nil) then
result:=pH.h_name //返回该结构的主机名
else
result:='';
WSACleanup();
end;

不知道楼主是否试好！

不过要加上一个引用。。。。


uses
winsock
OK了说一声！

OK

晕，另开贴了？？