在DELPHI6.0 中怎么样编程 把域名转换成IP 地址?(0分)

在DELPHI6.0 中怎么样编程 把域名转换成IP 地址?谁有详细的例子?或算法?

uses winsock;

function DNSToIP(const Host: string): string;
var
phe: PHostEnt;
InetAddr: Dword;
GInitData: TWSADATA;
begin
try
//初始化动态连接库winsock.dll
WSAStartup($101, GInitData);
InetAddr := inet_addr(Pchar(Host));
try
phe := GetHostByName(Pchar(Host));
InetAddr := longint(plongint(phe^.h_addr_list^)^);
Result := Strpas(inet_ntoa(TInaddr(InetAddr)));
except
Result := '';
end;
finally
WSACleanup;
end;
end;