用Delphi设计代理服务器

页面导航:首页 > 软件编程 > Delphi > 用Delphi设计代理服务器

用Delphi设计代理服务器

来源: 作者: 时间:2016-02-05 11:47 【

在编写一个上网计费软件时,涉及到如何对局域网中各工作站上网计费问题。一般来讲,这些工作站通过代理服务器上网,而采用现成的代理服务器软件时,由于代理服务器软件是封闭

 


   在编写一个上网计费软件时,涉及到如何对局域网中各工作站上网计费问题。一般来讲,这些工作站通过代理服务器上网,而采用现成的代理服务器软件时,由于代理服务器软件是封闭的系统,很难编写程序获取实时的上网计时信息。因此,考虑是否能编写自己的代理服务器,一方面解决群体上网,另一方面又解决上网的计费问题呢?
   
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

Tags:

文章评论


<