procedure TForm1.Button2Click(Sender: TObject);
begin
idhttp1.Host:=edit1.Text;  //代理服务器地址
idhttp1.Port:=strtoint(edit2.Text) ;    //代理端口
idhttp1.Request:='www.baidu.com' ; //来路设置
idhttp1.Post(edit3.Text) ; //提交访问一个网页
//如何验证代理是否成功访问了网页??
end;不知小弟写的对不对 请教
如何判断添加代理地址 是否访问了 指定网页????

解决方案 »

  1.   

    procedure TForm1.Button2Click(Sender: TObject);
    var
      repStr: string;
    begin
      idhttp1.Host:=edit1.Text;  //代理服务器地址
      idhttp1.Port:=strtoint(edit2.Text) ;    //代理端口
      idhttp1.Request:='www.baidu.com' ; //来路设置
      try // 加个try..except..end容错处理。
        // repStr是返回的html代码,不是页面显示的内容,是html源码
        // 一般如果这一句不报错就说明访问是成功
        // 如果返回的repStr和在IE访问时返回的内容一样,说明发的参数没有问题
        repStr := idhttp1.Post(edit3.Text) ; //提交访问一个网页
      except  end;
      //如何验证代理是否成功访问了网页??
    end;