域名转化的问题（只有这些分了） ( 积分: 43 )

向163，sohu这种的大网站占用了多个ip,我想实现域名转换ip这一功能，
我找了很多例子但都只是能每次解析到一个ip，我记得曾看到一个源码能实现：输入www.163.com后把它所占用的ip全部以列表的形势呈现给用户，可是我找了两天也没找到这种源代码，有哪位富翁手头上有这个例子能否共享一下，十分感谢。

向163，sohu这种的大网站占用了多个ip,我想实现域名转换ip这一功能，
我找了很多例子但都只是能每次解析到一个ip，我记得曾看到一个源码能实现：输入www.163.com后把它所占用的ip全部以列表的形势呈现给用户，可是我找了两天也没找到这种源代码，有哪位富翁手头上有这个例子能否共享一下，十分感谢。

Type
TAddrList = array [0..20] of PInAddr;
PAddrList = ^TAddrList;
var
pHostent : PHostEnt;
p : PAddList;
i : integer;
begin
pHostent := GetHostByName(pchar(HostName.Text));
if pHostent<> nil then
begin
i ;= 0;
P := PAddrList(pHostent^.h_Addr_List);
while P <> nil do
begin
HostIPListBox.items.Add(StrPos(inet_ntoa(P^)));
INC(i);
end;
end;
end;

楼上说的是啊
很多地方都有这样的程序
哪个api得到的是一组ip的