100分答谢高手！-------谁有写代理服务器的经验呢？帮一下我好么？

没有写过PROXY,过些时候想试试.

用Delphi设计自己的代理服务器    笔者在编写一个上网计费软件时，涉及到如何对局域网中各工作站上网计费问题。一
般来讲，这些工作站通过代理服务器上网，而采用现成的代理服务器软件时，由于代理服
务器软件是封闭的系统，很难编写程序获取实时的上网计时信息。因此，考虑是否能编写
自己的代理服务器，一方面解决群体上网，另一方面又解决上网的计费问题呢？
经过实验性编程，终于圆满地解决了该问题。现写出来，与各位同行分享。1、    思路
当前流行的浏览器的系统选项中有一个参数，即“通过代理服务器连接”，经过编程测
试，当局域网中一台工作站指定了该属性，再发出Internet请求时，请求数据将发送到所
指定的代理服务器上，以下为请求数据包示例：
                GET http://home.microsoft.com/intl/cn/ HTTP/1.0
                Accept: */*
                Accept-Language: zh-cn
                Accept-Encoding: gzip, deflate
                User-Agent: Mozilla/4.0 (compatible; MSIE 5.0; Windows NT)
                Host: home.microsoft.com
                Proxy-Connection: Keep-Alive
其中第一行为目标URL及相关方法、协议，“Host”行指定了目标主机的地址。
由此知道了代理服务的过程：接收被代理端的请求、连接真正的主机、接收主机返回的数
据、将接收数据发送到被代理端。
为此可编写一个简单的程序，完成上述网络通信重定向问题。
用Delphi设计时，选用ServerSocket作为与被代理工作站通信的套接字控件，选用
ClientSocket动态数组作为与远程主机通信的套接字控件。
编程时应解决的一个重要问题是多重连接处理问题，为了加快代理服务的速度和被代理端
的响应速度，套接字控件的属性应设为非阻塞型；各通信会话与套接字动态绑定，用套接
字的SocketHandle属性值确定属于哪一个会话。
通信的衔接过程如下图所示：
------------------------------------------------------------------------------                                  代理服务器                                  Serversocket
                        (1)          接  收
        被代理端                  发  送                        远程主机
                        (6)        (2)      (5)
        Browser                  ClientSocket      (4)            Web
Server
                                    接  收
                                    发  送          (3)
------------------------------------------------------------------------------                                  示意图
    （1）、被代理端浏览器发出Web请求，代理服务器的Serversocket接收到请求。
（2）、代理服务器程序自动创建一个ClientSocket，并设置主机地址、端口等属性，然
后连接远程主机。
（3）、远程连通后激发发送事件，将Serversocket接收到的Web请求数据包发送到远程主
机。
（4）、当远程主机返回页面数据时，激发ClientSocket的读事件，读取页面数据。
（5）、代理服务器程序根据绑定信息确定属于ServerSocket控件中的哪一个Socket应该
将从主机接收的页面信息发送到被代理端。
（6）、ServerSocket中的对应Socket将页面数据发送到被代理端。2、    程序编写
使用Delphi设计以上通信过程非常简单，主要是ServerSocket、ClientSocket的相关事
件驱动程序的程序编写。下面给出作者编写的实验用代理服务器界面与源程序清单，内含
简要功能说明：unit main;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ScktComp, TrayIcon, Menus, StdCtrls;type
  session_record=record
      Used: boolean;                      {会话记录是否可用}
      SS_Handle: integer;                  {代理服务器套接字句柄}
      CSocket: TClientSocket;              {用于连接远程的套接字}
      Lookingup: boolean;                  {是否正在查找服务器}
      LookupTime: integer;                {查找服务器时间}
      Request: boolean;                    {是否有请求}
      request_str: string;                {请求数据块}
      client_connected: boolean;          {客户机联机标志}
      remote_connected: boolean;          {远程服务器连接标志}
end;type
  TForm1 = class(TForm)
    ServerSocket1: TServerSocket;
    ClientSocket1: TClientSocket;
    Timer2: TTimer;
    TrayIcon1: TTrayIcon;
    PopupMenu1: TPopupMenu;
    N11: TMenuItem;
    N21: TMenuItem;
    N1: TMenuItem;
    N01: TMenuItem;
    Memo1: TMemo;
    Edit1: TEdit;
    Label1: TLabel;
    Timer1: TTimer;
    procedure Timer2Timer(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N21Click(Sender: TObject);
    procedure N01Click(Sender: TObject);
    procedure ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientDisconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ServerSocket1ClientError(Sender: TObject;
      Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
      var ErrorCode: Integer);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Connect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Disconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
      ErrorEvent: TErrorEvent; var ErrorCode: Integer);
    procedure ClientSocket1Write(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure ServerSocket1Listen(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure AppException(Sender: TObject; E: Exception);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    Service_Enabled: boolean;          {代理服务是否开启}
    session: array of session_record;      {会话数组}
    sessions: integer;                  {会话数}
    LookUpTimeOut: integer;          {连接超时值}
    InvalidRequests: integer;            {无效请求数}
  end;var
  Form1: TForm1;implementation{$R *.DFM}//系统启动定时器，启动窗显示完成后，缩小到System Tray…
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  timer2.Enabled:=false;    {关闭定时器}
  sessions:=0;              {会话数=0}
  Application.OnException := AppException;    {为了屏蔽代理服务器出现的异常
}
  invalidRequests:=0;          {0错误}
  LookUpTimeOut:=60000;      {超时值=1分钟}
  timer1.Enabled:=true;        {打开定时器}
  n11.Enabled:=false;          {开启服务菜单项失效}
  n21.Enabled:=true;          {关闭服务菜单项有效}
  serversocket1.Port:=988;      {代理服务器端口=988}
  serversocket1.Active:=true;    {开启服务}
  form1.hide;                {隐藏界面，缩小到System Tray上}
end;//开启服务菜单项…
procedure TForm1.N11Click(Sender: TObject);
begin
  serversocket1.Active:=true;    {开启服务}
end;
//停止服务菜单项…
procedure TForm1.N21Click(Sender: TObject);
begin
  serversocket1.Active:=false;      {停止服务}
  N11.Enabled:=True;
  N21.Enabled:=False;
  Service_Enabled:=false;          {标志清零}
end;
//主窗口建立…
procedure TForm1.FormCreate(Sender: TObject);
begin
  Service_Enabled:=false;
  timer2.Enabled:=true;        {窗口建立时，打开定时器}
end;//窗口关闭时…
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  timer1.Enabled:=false;          {关闭定时器}
  if Service_Enabled then
      serversocket1.Active:=false;  {退出程序时关闭服务}
end;//退出程序按钮…
procedure TForm1.N01Click(Sender: TObject);
begin
  form1.Close;                    {退出程序}
end;//开启代理服务后…
procedure TForm1.ServerSocket1Listen(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Service_Enabled:=true;            {置正在服务标志}
  N11.Enabled:=false;
  N21.Enabled:=true;
end;//被代理端连接到代理服务器后，建立一个会话，并与套接字绑定…
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
i,j: integer;
begin
  j:=-1;
  for i:=1 to sessions do              {查找是否有空白项}
      if not session[i-1].Used and not session[i-1].CSocket.active then
        begin
            j:=i-1;                      {有，分配它}
            session[j].Used:=true;      {置为在用}
            break;
        end
      else
        if not session[i-1].Used and session[i-1].CSocket.active then
              session[i-1].CSocket.active:=false;
  if j=-1 then
      begin                              {无，新增一个}
        j:=sessions;
        inc(sessions);
        setlength(session,sessions);
        session[j].Used:=true;                        {置为在用}
        session[j].CSocket:=TClientSocket.Create(nil);
        session[j].CSocket.OnConnect:=ClientSocket1Connect;
        session[j].CSocket.OnDisconnect:=ClientSocket1Disconnect;
        session[j].CSocket.OnError:=ClientSocket1Error;
        session[j].CSocket.OnRead:=ClientSocket1Read;
        session[j].CSocket.OnWrite:=ClientSocket1Write;
        session[j].Lookingup:=false;
      end;
  session[j].SS_Handle:=socket.socketHandle;    {保存句柄，实现绑定}
  session[j].Request:=false;                    {无请求}
  session[j].client_connected:=true;            {客户机已连接}
  session[j].remote_connected:=false;          {远程未连接}
  edit1.text:=inttostr(sessions);
end;//被代理端断开时…
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
i,j,k: integer;
begin
  for i:=1 to sessions do
      if (session[i-1].SS_Handle=socket.SocketHandle) and session[i-1].Used
then
        begin
            session[i-1].client_connected:=false;  {客户机未连接}
            if session[i-1].remote_connected then
              session[i-1].CSocket.active:=false  {假如远程尚连接，断开它}
            else
              session[i-1].Used:=false;          {假如两者都断开，则置释放资
源标志}
源标志}
            break;
        end;
  j:=sessions;
  k:=0;
  for i:=1 to j do                        {统计会话数组尾部有几个未用项}
      begin
        if session[j-i].Used then
            break;
        inc(k);
      end;
  if k>0 then                          {修正会话数组，释放尾部未用项}
      begin
        sessions:=sessions-k;
        setlength(session,sessions);
      end;
  edit1.text:=inttostr(sessions);
end;
//通信错误出现时…
procedure TForm1.ServerSocket1ClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
var
i,j,k: integer;
begin
  for i:=1 to sessions do
      if (session[i-1].SS_Handle=socket.SocketHandle) and session[i-1].Used
then
        begin
            session[i-1].client_connected:=false;  {客户机未连接}
            if session[i-1].remote_connected then
              session[i-1].CSocket.active:=false  {假如远程尚连接，断开它}
            else
              session[i-1].Used:=false;          {假如两者都断开，则置释放资
源标志}
            break;
        end;
  j:=sessions;
  k:=0;
  for i:=1 to j do
      begin
        if session[j-i].Used then
            break;
        inc(k);
      end;
  if k>0 then
      begin
        sessions:=sessions-k;
        setlength(session,sessions);
      end;
  edit1.text:=inttostr(sessions);
  errorcode:=0;
end;//被代理端发送来页面请求时…
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
tmp,line,host: string;
i,j,port: integer;
begin
  for i:=1 to sessions do                {判断是哪一个会话}
      if session[i-1].Used and (session[i-1].SS_Handle=socket.sockethandle)
then
          begin
            session[i-1].request_str:=socket.ReceiveText;  {保存请求数据}
            tmp:=session[i-1].request_str;                {存放到临时变量}
            memo1.lines.add(tmp);
            j:=pos(char(13)+char(10),tmp);                {一行标志}
            while j>0 do                      {逐行扫描请求文本，查找主机地
址}
                begin
                  line:=copy(tmp,1,j-1);                  {取一行}
                  delete(tmp,1,j+1);                      {删除一行}
                  j:=pos('Host',line);                    {主机地址标志}
                  if j>0 then
                      begin
                        delete(line,1,j+5);              {删除前面的无效字符
}
                        j:=pos(':',line);
                        if j>0 then
                            begin
                              host:=copy(line,1,j-1);
                              delete(line,1,j);
                              try
                                  port:=strtoint(line);
                              except
                                  port:=80;
                              end;
                            end
                        else
                            begin
                              host:=trim(line);                {获取主机地址
}
                              port:=80;
                            end;
                        if not session[i-1].remote_connected then  {假如远征
尚未连接}
                            begin
                              session[i-1].Request:=true;      {置请求数据就
绪标志}
                              session[i-1].CSocket.host:=host;  {设置远程主机
地址}
                              session[i-1].CSocket.port:=port;    {设置端口
}
                              session[i-1].CSocket.active:=true;  {连接远程
主机}
                              session[i-1].Lookingup:=true;        {置标志}
                              session[i-1].LookupTime:=0;          {从0开始计
时}
                            end
                        else
                            {假如远程已连接，直接发送请求}
                            session[i-1].CSocket.socket.sendtext(session[i-1].
request_str);
                        break;                        {停止扫描请求文本}
                      end;
                  j:=pos(char(13)+char(10),tmp);          {指向下一行}
                end;
            break;                    {停止循环}
          end;
end;//当连接远程主机成功时…
procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
var
i: integer;
begin
  for i:=1 to sessions do
      if (session[i-1].CSocket.socket.sockethandle=socket.SocketHandle) and
session[i-1].Used then
        begin
            session[i-1].CSocket.tag:=socket.SocketHandle;
            session[i-1].remote_connected:=true;  {置远程主机已连通标志}
            session[i-1].Lookingup:=false;        {清标志}
            break;
        end;
end;
//当远程主机断开时…
procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
i,j,k: integer;
begin
  for i:=1 to sessions do
      if (session[i-1].CSocket.tag=socket.SocketHandle) and session[i-1].Used
then
        begin
            session[i-1].remote_connected:=false;      {置为未连接}
            if not session[i-1].client_connected then
              session[i-1].Used:=false      {假如客户机已断开，则置释放资源
标志}
            else
              for k:=1 to serversocket1.Socket.ActiveConnections do
                  if (serversocket1.Socket.Connections[k-1].SocketHandle=sessi
on[i-1].SS_Handle) and session[i-1].used then
                    begin
                        serversocket1.Socket.Connections[k-1].Close;
                        break;
                    end;
            break;
        end;
  j:=sessions;
  k:=0;
  for i:=1 to j do
      begin
        if session[j-i].Used then
            break;
        inc(k);
      end;
  if k>0 then                        {修正会话数组}
      begin
        sessions:=sessions-k;
        setlength(session,sessions);
      end;
  edit1.text:=inttostr(sessions);
end;//当与远程主机通信发生错误时…
procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
var
i,j,k: integer;
begin
  for i:=1 to sessions do
      if (session[i-1].CSocket.tag=socket.SocketHandle) and session[i-1].Used
then
        begin
            socket.close;
            session[i-1].remote_connected:=false;      {置为未连接}
            if not session[i-1].client_connected then
              session[i-1].Used:=false        {假如客户机已断开，则置释放资源
标志}
            else
              for k:=1 to serversocket1.Socket.ActiveConnections do
                  if (serversocket1.Socket.Connections[k-1].SocketHandle=sessi
on[i-1].SS_Handle) and session[i-1].used then
                    begin
                        serversocket1.Socket.Connections[k-1].Close;
                        break;
                    end;
            break;
        end;
  j:=sessions;
  k:=0;
  for i:=1 to j do
      begin
        if session[j-i].Used then
            break;
        inc(k);
      end;
  errorcode:=0;
  if k>0 then                        {修正会话数组}
      begin
        sessions:=sessions-k;
        setlength(session,sessions);
      end;
  edit1.text:=inttostr(sessions);
end;//向远程主机发送页面请求…
procedure TForm1.ClientSocket1Write(Sender: TObject;
  Socket: TCustomWinSocket);
var
i: integer;
begin
  for i:=1 to sessions do
      if (session[i-1].CSocket.tag=socket.SocketHandle) and session[i-1].Used
then
        begin
            if session[i-1].Request then
              begin
                  socket.SendText(session[i-1].request_str);  {假如有请求，发
送}
                  session[i-1].Request:=false;                {清标志}
              end;
            break;
        end;
end;//远程主机发来页面数据时…
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
i,j: integer;
rec_bytes: integer;                  {传回的数据块长度}
rec_Buffer: array[0..2047] of char;  {传回的数据块缓冲区}
begin
  for i:=1 to sessions do
      if (session[i-1].CSocket.tag=socket.SocketHandle) and session[i-1].Used
then
        begin
            rec_bytes:=socket.ReceiveBuf(rec_buffer,2048);    {接收数据}
            for j:=1 to serversocket1.Socket.ActiveConnections do
              if serversocket1.Socket.Connections[j-1].SocketHandle=session[i
-1].SS_Handle then
                  begin
                    serversocket1.Socket.Connections[j-1].SendBuf(rec_buffer,
rec_bytes);  {发送数据}
                    break;
                  end;
            break;
        end;
end;//“页面找不到”等错误信息出现时…
procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
  inc(invalidrequests);
end;//查找远程主机定时…
procedure TForm1.Timer1Timer(Sender: TObject);
var
i,j: integer;
begin
  for i:=1 to sessions do
      if session[i-1].Used and session[i-1].Lookingup then    {假如正在连接}
        begin
            inc(session[i-1].LookupTime);
            if session[i-1].LookupTime>lookuptimeout then    {假如超时}
              begin
                  session[i-1].Lookingup:=false;
                  session[i-1].CSocket.active:=false;        {停止查找}
                  for j:=1 to serversocket1.Socket.ActiveConnections do
                    if serversocket1.Socket.Connections[j-1].SocketHandle=ses
sion[i-1].SS_Handle then
                        begin
                          serversocket1.Socket.Connections[j-1].Close;  {断开
客户机}
                          break;
                        end;
              end;
        end;
end;
end.3、    后记
由于这种设计思路仅仅在被代理端和远程主机之间增加了一个重定向功能，被代理端原
有的缓存技术等特点均保留，因此效率较高。经过测试，利用1个33.6K的Modem上网时，
三到十个被代理工作站同时上网，仍有较好的响应速度。由于被代理工作站和代理服务器
工作站之间的连接一般通过高速链路，因此瓶颈主要出现在代理服务器的上网方式上。
通过上述方法，作者成功开发了一套完善的代理服务器软件并与机房计费系统完全集
成，实现了利用一台工作站完成上网代理、上网计费、用机计费等功能。
  有编程经验的朋友完全可以另行增加代理服务器功能，如设定禁止访问站点、统计客
户流量、Web访问列表等等。                                                  作者：王国忠

TO:stanely(暗黑)
用TServerSocket ,TClientSocket组件肯定是可以的。
如果用它们，估计也只能采用多线程阻塞方式。下面是Socks5 代理协议的文档，可以参考
ftp://ftp.isi.edu/in-notes/rfc1928.txt

to: cobi(我是小新)　
感谢你提供的代码：）
但是如果socket为非阻塞方式，那么多个线程同时访问动态数组：sessions的时候，会不会出现错误？
不用保护机制么？

另外，我想用TList来实现sessions结构链表，这样我觉得比动态数组好操作。
不知道是不是用到vcl的时候就需要同步机制了

stanely(暗黑),
可以使用TThreadList ,适合于在多线程中使用.

我已写了一个功能还算完善的代理服务器软件。有以下功能
1。用户，组管理 2。IP绑定 3。受限站点 4。系统信息 5。上级代理 6。多线程代理验证
7。日志记录 8。当前活动连接查看 9。站点重定向 10。代理管理
现在处于beta阶段
须要的email联系：[email protected]，可以提供演示版的源代码，要给我加加分:-)

可以导入proxyhunter的验证结果
程序长3k-4k, 需要ICS Network 的控件支持。Delphi6所写的

LY PROXY Server 对FTP的支持还不够，我会加强这方面的
从这里下载ICS http://www.rtfm.be/fpiette/indexuk.htm

cobi(我是小新)的文章我最近也在研究,发现不大稳定.而且这样的代理性能好象差一点.

VCL帮助里面说TList是从TThreadList继承来的，那么TList是否也自动的具有线程安全性呢？

调试易

100分答谢高手！-------谁有写代理服务器的经验呢？帮一下我好么？

解决方案 »

100分答谢高手！-------谁有写代理服务器的经验呢？ 帮一下我好么？

解决方案 »

100分答谢高手！-------谁有写代理服务器的经验呢？帮一下我好么？