HTTP隧道 (经典版)
Delphi 接入指南

隧道验证方式

地址:http-cla.abuyun.com,端口:9030

隧道验证方式

HTTP隧道拥有两种授权模式:

  • 请求头(默认)

通过用户名/密码的形式进行身份认证,该认证信息最终会转换为『Proxy-Authorization』协议头跟随请求一起发出。

为便于部分语言进行接入,平台亦支持通过『Authorization』协议头进行隧道身份验证。

  • 绑定IP(暂未启用)

只须绑定用户发起请求的服务器IP即可。

一条代理隧道只能绑定一个IP,同一IP可以分别绑定到专业版、动态版、经典版代理隧道各一条。

              
    # -*-*-
    # 感谢骚男 『黄戴森 (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.                
              
体验服务
现在开始,体验阿布云大数据服务
计算、网络、大数据、人工智能,阿布云助您飞跃发展