使用INDY的IdMappedPortTCP控件实现动态的HTTP代理服务器
来源:互联网 发布:html 多选数据样式 编辑:程序博客网 时间:2024/05/19 22:46
(评分:★★★ , 回复: 11, 阅读: 2078)
在工作中,需要一个时间控制条件非常复杂的代理服务器,因此只能自编。从网络中找到一些用ServerSocket和ClientSocket开发的代理服务器源代码,比较复杂。因此想用INDY控件组中的IdMappedPortTC开发代理服务器。DELPHI附带例子演示的是一个静态的代理,比如例中的www.borland.com,而实际应用中需要的却一个动态的代理。本文即介绍如何使用INDY的IdMappedPortTCP控件实现动态的HTTP代理服务器
分析INDY9所带的源代码,发现NETDATA属性中了存放用户的请求内容和服务器的回复信息,OnExecute事件是在接收到用户请求后与向WEB服务器转发请求之前执行的。因此可以在OnExecute事件写些根据用户的请求更改代理主机的代码,这样就可实现动态代理。
代码如下:
procedure TForm1.IdMappedPortTCP1Execute(Athread: TIdMappedPortThread);
var
RequestHost:string;
RequestPort:integer;
begin
//改变连接
IDLock.Acquire;
try
RequestHost:=GetHost(Athread.NetData);
RequestPort:=GetPort(Athread.NetData);
if (RequestHost<>IdMappedPortTcp1.MappedHost) or
(RequestPort<>IdMappedPortTcp1.MappedPort) then
begin
IdMappedPortTCP1.MappedHost:=RequestHost;
IdMappedPortTCP1.MappedPort:=RequestPort;
TidTcpClient(Athread.OutboundClient).Host:=RequestHost;
TidTcpClient(Athread.OutboundClient).Port:=RequestPort;
TidTcpClient(Athread.OutboundClient).Disconnect;
TidTcpClient(Athread.OutboundClient).Connect(Athread.ConnectTimeOut);
end; //ChangeConnect
finally
IDLock.Release;
end;
end;
实际应用中,访问www.163.com和www.sina.com.cn网站会出现错误,经分析发现需对浏览器的请求格式作些调整,即删除GET请求中的主机名。 在该事件中再加一行改变请求的代码,如下:
//改变请求
Athread.NetData:=DelHostOfURL(Athread.NetData,RequestHost,RequestPort);
上述方法实现HTTP代理服务器非常简单,不信你试试。本次工作的一个重要体会就是分析源代码比看手册资料更有效。
砍死微软,开放源代码万岁!
附:本程序所需的三个自定义函数的代码。
1.获取主机名
function TForm1.GetHost(URL: string):string;
var
LURI:TIdURI;
begin
LURI:=TIdURI.Create(URL);
result:=LURI.Host;
LURI.Free;
end; //GetHost
2.获取端口号
function TForm1.GetPort(URL: string):integer;
var
LURI:TIdURI;
begin
LURI:=TIdURI.Create(URL);
if Length(LURI.Port)<>0 then
result:=StrToInt(LURI.Port)
else
result:=80;
LURI.Free;
end; //GetPort
3.删除URL中的HOST字符串
function TForm1.DelHostOfURL(URL,Host:string;Port:integer):string;
var
s:string;
begin
result:= URL;
s:='http://'+Host;
if Port <> 80 then
s:= s + ':' + IntToStr(Port);
Delete(result,pos(s,result),length(s));
end; //DelHostOfURL
2003-5-19 21:06:00
- 使用INDY的IdMappedPortTCP控件实现动态的HTTP代理服务器
- 用Delphi7的Indy控件IdMappedPortTcp做HTTP代理程序
- 使用indy的IdHTTPServer控件
- HTTP代理服务器的实现
- 简单的HTTP代理服务器实现
- 利用Indy的TIdFtp控件实现FTP协议
- delphi中利用Indy的TIdFtp控件实现FTP协议
- delphi中利用Indy的TIdFtp控件实现FTP协议
- 利用Indy的TIdFtp控件实现FTP协议
- 利用indy的tidftp控件实现ftp协议_delphi教程
- 利用Indy的TIdFtp控件实现FTP协议
- 自带的Indy控件实现MD5加密
- 利用Indy的TIdFtp控件实现FTP协议 for http://www.cittm.net/Article/sheji/delphi/200601/1227.html
- 使用Indy控件发邮件时遇到的问题
- 计算机网络--http代理服务器的设计与实现
- 用socket实现自己的HTTP代理服务器
- indy 实现http proxy
- 关于Indy控件内存泄露的问题
- 中间件
- 生活指南:计算机族必喝的健康饮料
- OOP在三层系统中的应用
- 数据集处理成可视树,数据网格自动适应宽度
- 中间件的产品种类
- 使用INDY的IdMappedPortTCP控件实现动态的HTTP代理服务器
- DELPHI的一些开发技巧和方法(一)
- DELPHI的一些开发技巧和方法(二)
- 用Delphi实现Socket5代理编程系列讲座
- 谈Delphi编程中Http协议的应用(一)
- 解析Ajax如何处理响应信息
- Delphi(一) --惯用法
- 用DELPHI实现文件加密压缩
- 浅谈中间件