T
tan_jian
Unregistered / Unconfirmed
GUEST, unregistred user!
function CheckProxyIsWork(Proxy: PChar): Boolean;<br>var Conn,URLConn: HInternet;<br> Read: Boolean;<br> ReadByte: DWORD;<br>begin<br> Conn:=InternetOpen('MyApp',PRE_CONFIG_INTERNET_ACCESS,Proxy,nil,0);<br> URLConn:=InternetOpenUrl(Conn,PChar('http://www.sina.com.cn'),nil,0,INTERNET_FLAG_RELOAD,0);<br> //Read:=InternetReadFile(URLConn,@ReadChar,sizeof(ReadChar),ReadByte);<br> Result:=URLConn<>nil;<br> InternetCloseHandle(URLConn);<br> InternetCloseHandle(Conn);<br>end; // 本以为根据Conn URLConn旁断连接成功没 但发现就是代理服务器乱设置 返回值依然不是nil 那么如何旁断代理服务器(含端口)是否有效呢 本打算继续用InternetReadFile 读取url文件的 可是失败了依然浏览器会返回信息啊 那么也不能根据read readbyte判断了 如何办呢 大家指教一下哈