高分咨询：用Indy组件的IdTCPClient、IdHTTP组件，怎么通过HTTP代理访问外网？

[weyoung]

Indy的IdTCPClient等组件，代理服务器只支持Socks4、Socks5协议，但现在很多公司只支持HTTP代理协议。。。
哪位DX知道解决方法？
分数不够另外开贴！

[erhan]

sorry,看错题了，汗

[weyoung]

erhan(二憨) ，没关系。谢谢帮顶

[erhan]

idhttp是可以用http代理的，但idtcpclient没有找到办法哈，关注！！

[weyoung]

是啊，搞得我目前的程序只支持Socks4、Socks5。。。
但目前很多公司上网都是用HTTP代理的
没有高手出现。。

[weyoung]

dd

[Name]

试试ICS组件，
这个比较好，
TWSocket 等等。。。
www.2ccc.com上有下的，delphi7/2006都支持，

[mrlong]

我一直在找这个问题的处理方法,一直没有...

[weyoung]

多谢“yyq_leaf(冷血)”！
下载了ICS，不过TWSocket好象也不支持HTTP代理，不管怎么样，谢谢！

[weyoung]

hoho，顶起来，总会有高手能解决的。

[weyoung]

dd

[Ormazd]

顶

[weyoung]

dd

[weyoung]

dd

[yhj78]

关注

[weyoung]

没人能解决？

[weyoung]

dd

[erhan]

晕哦，这么久还没解决吗？
今天查了些资料，帮你搞店
procedure TForm1.Button1Click(Sender: TObject);
var
repl: TIdRFCReply; //需要uses IdRFCReply;
s, s1: String;
begin
//本机上装了superproxy软件，http代理端口为8090
IdTCPClient1.Port:= 8090;
IdTCPClient1.Host:= '127.0.0.1';
IdTcpClient1.Connect();
IdTCPClient1.SendCmd('CONNECT 127.0.0.1:8090 HTTP/1.0'#13#10#13#10);
repl:= IdTCPClient1.LastCmdResult;
if repl.ReplyExists then
begin
Memo1.Lines.AddStrings(repl.Text);
if (Pos('200', repl.Text[0])>0) then
begin
//代理服务器连接成功，发送http get请求
IdTCPClient1.SendCmd('GET http://www.zgzcw.com/ HTTP/1.0'#13#10+
'Accept: text/html,text/plain;q=0.7,image/png,image/jpeg,image/gif;q=0.4,*/*;q=0.6'#13#10+
'User-Agent: User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)'#13#10+
'Host: www.zgzcw.com'#13#10+
'Proxy-Connection: close'#13#10#13#10);
s:='';
while(True) do
begin
sleep(100);//等待数据接收期间，休息
s1:= IdTCPClient1.CurrentReadBuffer;
if Length(s1)=0 then
break //已到数据尾部
else
s:= s+s1;
end;
Memo1.Lines.Add(s);
end;
end;
IdTCPClient1.Disconnect;
end;

[erhan]

tidhttp本身就支持http代理，设设属性就行了。

[weyoung]

谢谢erhan(二憨)，好久没上来了。我先试试看

[hanwen]

这个没试过，试试