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