用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;

interface

uses
 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: TCustomWinS

补充：软件开发 , Delphi ,