Delphi如何实现Http代理登陆的功能？？请进！很急

[喜欢编程朋友]

大家好，我遇到了一个难题，就是：
Delphi如何实现Http代理登陆的功能？？就是说做一个程序可以用Http代理的方式登陆，就像QQ登陆的时候，可以选择Http代理登陆这种方式，用Delphi如何来实现登陆？？现在非常急，请各位同仁帮忙！！多谢了！！

[Dorice]

TIdHTTP有ProxyParams属性可以设置

[ly_liuyang]

如果是HTTP的,就上面的方法
其他TCP的,例如FTP,POP的,就需要HTTP Tunnel代理
需要自己开发实现的

QQ用的是HTTP Tunnel

_____________________
http://lysoft.7u7.net

[baiduan]

kan
var
isa:SOCKADDR_IN;
isa_len:integer;//接受客户端的套接字。
acceptsocket:Tsocket //主机
targethost:pchar//端口
begin
client:=socket(pf_inet,sock_stream,ipproto_ip);
if client+invalid_socket then
//showerror
end;
ca.sin_family:=pf_inet;//ip zu
ca.sin_port=htons(targetprot);//转换网络字节
hostadd:=inet_addr(targethost);
if (hostaddr=-1) then
//showerror
end;
太多了。。。。。看能不能帮你

[k2222]

建议使用TIdHTTP。DEphi6下demo\indy\idhttp的实例带有代理服务器功能。
源码就不贴了。你自己看吧。

[clasj]

ly_liuyang(Liu Yang)说的对，其他人都跑题了：）

详情请见：
http://www.codeguru.com/Cpp/I-N/internet/http/print.php/c6209/

个人经验：
用TIdTCPClient实现非常容易，直接用它的WriteLn函数发送字符串，接收就用ReadLn。
用TClientSocket实现，请先将它设置为阻塞模式，然后用SendText函数发送字符串时要自己在字符串结尾加上#13#10，接收就用ReceiveText。

[clasj]

个人认为简单应用时用该方法代理TCP连接非常爽，正规一点还是应该实现socket4、socket5：）