nbsp; 收
         被代理端                   发  送                        远程主机
                        (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;             &