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

Question

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

Answer 1

TIdHTTP有ProxyParams属性可以设置

Answer 2

如果是HTTP的,就上面的方法
其他TCP的,例如FTP,POP的,就需要HTTP Tunnel代理
需要自己开发实现的QQ用的是HTTP Tunnel_____________________
http://lysoft.7u7.net

Answer 3

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;
太多了。。看能不能帮你

Answer 4

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

Answer 5

ly_liuyang(Liu Yang)说的对，其他人都跑题了：）详情请见：
http://www.codeguru.com/Cpp/I-N/internet/http/print.php/c6209/个人经验：
用TIdTCPClient实现非常容易，直接用它的WriteLn函数发送字符串，接收就用ReadLn。
用TClientSocket实现，请先将它设置为阻塞模式，然后用SendText函数发送字符串时要自己在字符串结尾加上#13#10，接收就用ReceiveText。

Answer 6

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