地址:http-cla.abuyun.com,端口:9030
HTTP隧道拥有两种授权模式:
通过用户名/密码的形式进行身份认证,该认证信息最终会转换为『Proxy-Authorization』协议头跟随请求一起发出。
为便于部分语言进行接入,平台亦支持通过『Authorization』协议头进行隧道身份验证。
只须绑定用户发起请求的服务器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.