我想在把域名转化为IP地址 ( 积分: 100 )

//把域名转化为IP地址
uses winsock;
Function TCommFunction.GetIP(DNSName: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(DNSName));
pptr := PaPInAddr(Phe^.h_addr_list);
result:=StrPas(inet_ntoa(pptr^[0]^));
WSACleanup;
end;
只要直接上网就可得到，用代理上网的得不到

//把域名转化为IP地址
uses winsock;
Function TCommFunction.GetIP(DNSName: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(DNSName));
pptr := PaPInAddr(Phe^.h_addr_list);
result:=StrPas(inet_ntoa(pptr^[0]^));
WSACleanup;
end;
只要直接上网就可得到，用代理上网的得不到

现在想在使用代理服务器的情况下完成这个功能,该怎么处理呢?各位高手帮帮忙

奇怪啊，我在公司里的电脑上试了下（代理上网），可以正常获得IP地址啊。

to 愚鱼
是不是你装有防火墙?

没有
只是我查到了好多关与这放面的代码，如上面一段．
但都说只能是直接连网或用网关上网时才能实现功能，如果在使用代理的情况下就不能实现其功能了．但现在我就是要在使用代理的情况下完成这项功能，我该怎么办呢？