delphi HTTP隧道接入指南

   # -*-*-
   # 感谢骚男 『黄戴森 (QQ: 805721078)』 提供的源代码
   # -*-*-

   interface

   uses
       Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
       Dialogs, StdCtrls, IDHTTP;

   type
       TForm1 = class(TForm)
           Button1: TButton;
           procedure Button1Click(Sender: TObject);
       private
           { Private declarations }
       public
           { Public declarations }
       end;

   var
       Form1: TForm1;

   implementation

   {$R *.dfm}

   procedure TForm1.Button1Click(Sender: TObject);
   const
       // 要访问的目标页面
       targetUrl  = 'http://test.abuyun.com';
       //targetUrl  = 'http://proxy.abuyun.com/switch-ip';
       //targetUrl = 'http://proxy.abuyun.com/current-ip';

       // 代理服务器
       proxyServer = 'http-pro.abuyun.com';
       proxyPort = 9010;

       // 代理隧道验证信息
       proxyUser = 'H01234567890123P';
       proxyPass = '0123456789012345';
   var
       IDHTTP1 : TIDHTTP;
   begin
       Application.ProcessMessages;
       IDHTTP1 := TIDHTTP.Create(nil);
       with IDHTTP1 do
       begin
           AllowCookies := True;
           HandleRedirects := True;
           ProxyParams.BasicAuthentication := True;
           ProxyParams.ProxyServer := proxyServer;
           ProxyParams.ProxyPort := proxyPort;
           ProxyParams.ProxyUsername := proxyUser;
           ProxyParams.ProxyPassword := proxyPass;
           //Request.Method := 'GET';
           //Request.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8';
           //Request.AcceptEncoding := 'gzip, deflate, sdch';
           //Request.AcceptLanguage := 'zh-CN,zh;q=0.8';
           //Request.Connection := 'keep-alive';
           Request.UserAgent := 'Mozilla/5.0 (Windows NT 6.0) AppleWebKit/537.36 (KHTML, like Gecko)';
           IDHTTP1.Get(targetUrl);
       end;
   end;

   end.