Indy TIDHttp问题请教,急

Question

局域网内使用,SSL,第一次能够得到数据
第二次就报连接不上的错误,
原码:
        HttpCli1 := TIdHTTP.Create(nil);
        try
          try
            HttpCli1.IOHandler := EC_wim.IOHandle;
            HttpCli1.HandleRedirects := true;
            HttpCli1.ProxyParams.ProxyServer := proxysvr;
            HttpCli1.ProxyParams.ProxyPort := proxyport;
            HttpCli1.ProxyParams.ProxyPassword := proxypass;
            HttpCli1.Request.UserAgent := useragent;
            l := HttpCli1.Get(url);
          except
            on E: Exception do
              ShowMessage('Error: ' + E.Message);
          end;
        finally
          EC_wim.IOHandle.Close;
          HttpCli1.Free;
          HttpCli1 := nil;
        end;第二次报:Error:Connect Closed Gracefully.错误.重新启动程序,第一次又可以,第二次还是不行,期待高手.

Answer 1

httpcli1.disconnect;
httpcli1.distory

Answer 2

                HttpCli1   :=   TIdHTTP.Create(nil); 
                try 
                    try 
                        HttpCli1.IOHandler   :=   EC_wim.IOHandle; 
                        HttpCli1.HandleRedirects   :=   true; 
                        HttpCli1.ProxyParams.ProxyServer   :=   proxysvr; 
                        HttpCli1.ProxyParams.ProxyPort   :=   proxyport; 
                        HttpCli1.ProxyParams.ProxyPassword   :=   proxypass; 
                        HttpCli1.Request.UserAgent   :=   useragent; 
                        l   :=   HttpCli1.Get(url); 
                    except 
                        on   E:   Exception   do
                        begin 
                            HttpCli1.disconnect;                            
                            ShowMessage( 'Error:   '   +   E.Message); 
                        end;
                    end; 
                finally 
                    EC_wim.IOHandle.Close; 
                    HttpCli1.Free; 
                    HttpCli1   :=   nil; 
                end; 

Answer 3

有些网站会禁用idhttp.get的,不信试试get这个http://www.zhcw.com/data-js/nowdata98.js