# -*-*-
    # 感谢骚男 『黄戴森 (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-cla.abuyun.com';
        proxyPort = 9030;

        // 代理隧道验证信息
        proxyUser = 'H01234567890123C';
        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.