用Delphi设计代理服务器[正确小说]

另一方面又解决上网的计费问题呢,笔者在编写一个上网计费软件时, 在编写一个上网计费软件时,涉及到如何对局域网中各工作站上网计费问题,  ServerSocket组件可以同时接受一个或多个ClientSocket组件的连接请求,并与每个ClientSocket组件建立单独的连接,begin   Mscomm1.PortOpen,Mscomm1.CommEvent = 2 then   begin    recstr

unit main;

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;

DELPHI SOKET 编程–使用TServerSocket和TClientSocket,sokettserversocket

正文选用delphi7+TServerSocket+TClientSocket;

 

小编在工作中遭遇对局域网中各职业站与服务器之间实行Socket通讯的标题。以后将自家计算出来的TServerSocket和TClientSocket七个零部件的主干用法写出来,希望与你分享。

  ClientSocket组件为顾客端组件。它是通讯的供给方,也正是说,它是前仆后继地与劳务器端创立连接。

  ServerSocket组件为服务器端组件。它是通讯的响应方,也便是说,它的动作是监听以及被动接受客商端的接连央求,并对央求进行还原。

  ServerSocket组件能够同有的时候直接受四个或四个ClientSocket组件的连年哀告,并与每个ClientSocket组件建构独立的总是,举行单独的通讯。由此,一个服务器端可感到四个客商端服务。

  设计思路

  本例包涵三个服务器端程序和二个客户端程序。顾客端程序能够松手多少个Computer上运转,同一时间与劳动器端进行接二连三通讯。

  本例的严重性,一是自己要作为轨范遵守规则客商端与劳动器端怎么着通讯;二是当有多个客商端相同的时间连接受服务器端时,服务器端怎么样分辨每一种客商端,并对必要提交相应的重整旗鼓。为了保障一个客商端断开连接时不影响其余顾客端与劳务器端的通讯,同一时间确认保障服务器端能够科学回复顾客端的乞请,在本例中宣称了多少个笔录类型:

  type
 client_record=record
 CHandle: integer; //客商端套接字句柄
 CSocket:TCustomWinSocket; //客商端套接字
 CName:string; //客商端Computer名称
 CAddress:string; //客商端ComputerIP地址
 CUsed: boolean; //客户端联机标识
end;

  利用那几个记录类型数据保存用户端的消息,同有的时候间保留当前顾客端的总是情状。个中,CHandle保存顾客端套接字句柄,以便正确定位种种与劳动器端保持接二连三的顾客端;Csocket保存客商端套接字,通过它能够对客商端进行恢复生机。Cused记录当前顾客端是或不是与劳动器端保持一而再。

 

 

下面临组件ServerSocket和ClientSocket的属性设置轻便表达。

  ServerSocket的属性:

  · Port,是通讯的端口,必得安装。在本例中安装为1025;

  ·
ServerTypt,服务器端读写新闻类别,设置为stNonBlocking表示异步读写消息,本例中选拔这种艺术。

  ·
ThreadCacheSize,客商端的最达累斯萨Lamb接数,正是劳动器端最多允多数少顾客端同时连接。本例采纳暗中认可值10。

  其它性质选取暗许设置就能够。

  ClientSocket的属性:

  · Port,是通讯的端口,必得与服务器端的设置同一。在本例中设置为1025;

  ·
ClientType,客商端读写新闻项目,应该与劳动器端的装置一样,为stNonBlocking表示异步读写新闻。

  ·
Host,顾客端要连接的服务器的IP地址。必得安装,当然也能够在代码中动态设置。

  其余性质选拔暗许设置就能够。

  程序源代码:

  · 服务器端源码(uServerMain.pas):

  unit uServerMain;
interface
 uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
  ScktComp, ToolWin, ComCtrls, ExtCtrls, StdCtrls, Buttons;
 const
  C马克斯=10; //客商端最奥斯汀接数
 type
  client_record=record
  CHandle: integer; //客商端套接字句柄
  CSocket:TCustomWinSocket; //客商端套接字
  CName:string; //顾客端计算机名称
  CAddress:string; //客商端ComputerIP地址
  CUsed: boolean; //顾客端联机标记
 end;
 type
  TfrmServerMain = class(TForm)
  ServerSocket: TServerSocket;
  ControlBar1: TControlBar;
  ToolBar1: TToolBar;
  tbConnect: TToolButton;
  tbClose: TToolButton;
  tbDisconnected: TToolButton;
  Edit1: TEdit;
  Memo1: TMemo;
  StatusBar: TStatusBar;
  procedure tbConnectClick(Sender: TObject);
  procedure tbDisconnectedClick(Sender: TObject);
  procedure ServerSocketClientRead(Sender: TObject;Socket:
TCustomWinSocket);
  procedure ServerSocketListen(Sender: TObject;Socket:
TCustomWinSocket);
  procedure ServerSocketClientConnect(Sender: TObject;Socket:
TCustomWinSocket);
  procedure ServerSocketClientDisconnect(Sender: TObject;Socket:
TCustomWinSocket);
  procedure tbCloseClick(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure ServerSocketGetSocket(Sender: TObject; Socket: Integer;
  var ClientSocket: TServerClientWinSocket);
  procedure ServerSocketClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
  private
  {
   Private declarations
  }
  public
  {
   Public declarations
  }
  session: array[0..CMax] of client_record; //顾客端连接数组
  Sessions: integer; //客商端连接数
 end;
 var
  frmServerMain: TfrmServerMain;
  implementation
  {$R *.DFM}
  //展开套接字连接,并使套接字步向监听状态
  procedure TfrmServerMain.tbConnectClick(Sender: TObject);
 begin
  ServerSocket.Open ;
 end;
 //关闭套接字连接,不再监听客商端的伸手
 procedure TfrmServerMain.tbDisconnectedClick(Sender: TObject);
 begin
  ServerSocket.Close;
  StatusBar.Panels[0].Text
:=’服务器套接字连接已经关门,不恐怕经受客商端的接二连三需要.’;
 end;
 //从客户端读撤除息
 procedure TfrmServerMain.ServerSocketClientRead(Sender:
TObject;Socket: TCustomWinSocket);
 var
  i:integer;
 begin
  //将从客商端读取的消息增多到Memo第11中学
  Memo1.Lines.Add(Socket.ReceiveText);
  for i:=0 to sessions do
  begin
   //取得格外的客商端
   if session[i].CHandle = Socket.SocketHandle then
   begin
    session[i].CSocket.SendText(‘回复顾客端’+session[i].CAddress+’
==> ‘+Edit1.Text);
   end;
  end;
 end;
 //服务器端套接字步入监听状态,以便监听客户端的连接
 procedure TfrmServerMain.ServerSocketListen(Sender: TObject;Socket:
TCustomWinSocket);
 begin
  StatusBar.Panels[0].Text :=’等待客商端连接…’;
 end;
 //当客商端连接到服务器端现在
 procedure TfrmServerMain.ServerSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
 var
  i,j:integer;
 begin
  j:=-1;
  for i:=0 to sessions do
  begin
   //在原有的顾客端连接数组中有暂停的顾客端连接
   if not session[i].CUsed then
   begin
    session[i].CHandle := Socket.SocketHandle
;//客商端套接字句柄
    session[i].CSocket := Socket; //客商端套接字
    session[i].CName := Socket.RemoteHost ; //客商端计算机名称
    session[i].CAddress := Socket.RemoteAddress
;//客户端ComputerIP
    session[i].CUsed := True; //连接数组当前岗位已经占领
    Break;
   end;
  j:=i;
 end;
 if j=sessions then
 begin
  inc(sessions);
  session[j].CHandle := Socket.SocketHandle ;
  session[j].CSocket := Socket;
  session[j].CName := Socket.RemoteHost ;
  session[j].CAddress := Socket.RemoteAddress ;
  session[j].CUsed := True;
 end;
 StatusBar.Panels[0].Text := ‘客户端 ‘+Socket.RemoteHost + ‘
已经一而再’;
end;
//当顾客端断开连接时
procedure TfrmServerMain.ServerSocketClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
var
 i:integer;
begin
 for i:=0 to sessions do
 begin
  if session[i].CHandle =Socket.SocketHandle then
  begin
   session[i].CHandle :=0;
   session[i].CUsed := False;
   Break;
  end;
 end;
 StatusBar.Panels[0].Text :=’顾客端 ‘+Socket.RemoteHost + ‘
已经断开’;
end;
//关闭窗口
procedure TfrmServerMain.tbCloseClick(Sender: TObject);
begin
 Close;
end;
procedure TfrmServerMain.FormCreate(Sender: TObject);
begin
 sessions := 0;
end;
procedure TfrmServerMain.FormClose(Sender: TObject;var Action:
TCloseAction);
begin
 ServerSocket.Close ;
end;
//当顾客摆正在与服务器端连接时
procedure TfrmServerMain.ServerSocketGetSocket(Sender: TObject;
Socket: Integer; var ClientSocket: TServerClientWinSocket);
begin
 StatusBar.Panels[0].Text :=’顾客纠正在连接…’;
end;
//顾客端发生错误
procedure TfrmServerMain.ServerSocketClientError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
 StatusBar.Panels[0].Text :=’客商端’+Socket.RemoteHost
+’发生错误!’;
 ErrorCode := 0;
end;
end.

 

· 顾客端源码(uClientMain.pas):

 

unit uClientMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
ScktComp, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Buttons;
const
 SocketHost = ‘172.16.1.6’; //服务器端地址
type
 TfrmClientMain = class(TForm)
 ControlBar1: TControlBar;
 ToolBar1: TToolBar;
 tbConnected: TToolButton;
 tbSend: TToolButton;
 tbClose: TToolButton;
 tbDisconnected: TToolButton;
 ClientSocket: TClientSocket;
 Edit1: TEdit;
 Memo1: TMemo;
 StatusBar: TStatusBar;
 btnSend: TBitBtn;
 procedure tbConnectedClick(Sender: TObject);
 procedure tbDisconnectedClick(Sender: TObject);
 procedure ClientSocketRead(Sender: TObject; Socket:
TCustomWinSocket);
 procedure tbSendClick(Sender: TObject);
 procedure tbCloseClick(Sender: TObject);
 procedure FormShow(Sender: TObject);
 procedure ClientSocketConnect(Sender: TObject;
 Socket: TCustomWinSocket);
 procedure ClientSocketConnecting(Sender: TObject;
 Socket: TCustomWinSocket);
 procedure ClientSocketDisconnect(Sender: TObject;
 Socket: TCustomWinSocket);
 procedure FormClose(Sender: TObject; var Action: TCloseAction);
 procedure ClientSocketError(Sender: TObject; Socket:
TCustomWinSocket;
 ErrorEvent: TErrorEvent; var ErrorCode: Integer);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
 var
  frmClientMain: TfrmClientMain;
  implementation
  {$R *.DFM}
  //张开套接字连接
  procedure TfrmClientMain.tbConnectedClick(Sender: TObject);
  begin
   ClientSocket.Open ;
  end;
  //关闭套接字连接
  procedure TfrmClientMain.tbDisconnectedClick(Sender: TObject);
  begin
   ClientSocket.Close;
  end;
  //接受劳动器端的过来
  procedure TfrmClientMain.ClientSocketRead(Sender: TObject;Socket:
TCustomWinSocket);
  begin
   Memo1.Lines.Add(Socket.ReceiveText);
  end;
  //发送音信到服务器端
  procedure TfrmClientMain.tbSendClick(Sender: TObject);
  begin
   ClientSocket.Socket.SendText(Edit1.Text);
  end;
  procedure TfrmClientMain.tbCloseClick(Sender: TObject);
  begin
   Close;
  end;
  //设置要三翻五次的劳务器端地址
  procedure TfrmClientMain.FormShow(Sender: TObject);
  begin
   ClientSocket.Host := SocketHost;
  end;
  //已经连接到劳动器端
  procedure TfrmClientMain.ClientSocketConnect(Sender: TObject;Socket:
TCustomWinSocket);
  begin
   tbSend.Enabled := True;
   tbDisconnected.Enabled :=True;
   btnSend.Enabled := True;
   StatusBar.Panels[0].Text := ‘已经三番五次到 ‘+ Socket.RemoteHost ;
  end;
  //正在连接到劳动器端
  procedure TfrmClientMain.ClientSocketConnecting(Sender:
TObject;Socket: TCustomWinSocket);
  begin
   StatusBar.Panels[0].Text := ‘正在连接到劳动器… ‘ ;
  end;
  //当断开与劳动器端的连天时发生
  procedure TfrmClientMain.ClientSocketDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
  begin
   tbSend.Enabled := False;
   btnSend.Enabled := False;
   tbDisconnected.Enabled := False;
   StatusBar.Panels[0].Text := ‘已经断开与 ‘+ Socket.RemoteHost +’
的总是’;
  end;
  procedure TfrmClientMain.FormClose(Sender: TObject;
var Action: TCloseAction);
  begin
   ClientSocket.Close ;
  end;
  //当与劳务器端的延续发生错误时
  procedure TfrmClientMain.ClientSocketError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;var ErrorCode:
Integer);
  begin
   StatusBar.Panels[0].Text := ‘与劳务器端的连日爆发错误’;
   ErrorCode := 0;
  end;
 end.

SOKET
编制程序–使用TServerSocket和TClientSocket,sokettserversocket
本文选用delphi7+TServerSocket+TClientSocket;
小编在专业中境遇对局域网中各工作站与服…

(文/万雪勇)
用Delphi开辟串口通讯软件一般有三种办法:一是使用Windows的通讯API函数,…

作者在编写二个上网计费软件时,涉及到怎么对局域网中各职业站上网计费难点。一般来说,这么些专门的工作站通过…

连带文章

连锁寻觅:

明日看啥

招来技艺库

回去首页

  • Android五日乐(第一天)开辟条件的安插,开
  • Android之QQ授权登入获取客户音信,android客商
  • 喵星人学iOS之小知识iOS运转动画_Launch
    Screen的运
  • 为手提式有线电话机应用程序(Android、iOS、WindowsPhone)增多超
  • Android应用程序UI硬件加快渲染的卡通实践过程
  • jqGrid在IE中运用iframe嵌套,页码条不显得难点,

连带频道:
Java编程  C#教程  C语言  C++教程  VC教程  Delphi教程  VB教程  工具软件  

用DELPHI设计代理服务器程序 摘自《天极网学习为主》 (文/万雪勇)
  用Delphi开拓串口通信软件一般有三种方法:一是应用Windows的通讯API函数,另一种是应用Microsoft的MSComm控件。利用API编写串口通讯程序较为复杂,必要精通多量通讯知识,其亮点是可达成的效劳更有力,应用面更广泛,更合乎于编写较为复杂的低档案的次序通信程序。而接纳MSComm控件则相对较轻松,该控件具备丰盛的与串口通讯紧凑相关的本性及事件,提供了对串口的各样操作。
  一、MSComm控件的要紧品质及事件
  (1)CommPort:设置或回到串行端口号,缺省为1。
  (2)Setting:设置或重回串口通讯参数,格式为“Porter率,奇偶校验位,数据位,结束位”。举个例子:MSComm1.Setting:=9600,n,8,1
  (3)PortOpen:展开或关闭串行端口,格式为:MSComm1.PortOpen:={True|False}
  (4)InBufferSize:设置或回到接收缓冲区的大小,缺省值为1024字节。
  (5)InBufferCount:再次回到接收缓冲区内等候读取的字节数,可由此设置该属性为0来清空切收缓冲区。
  (6)RThreshold:该属性为一阀值,它规定当接收缓冲区内的字节个数到达或当先该值后就产生代码为ComEvReceive的OnComm事件。
  (7)SThreshold:该属性为一阀值,它规定当发送缓冲区内的字节个数少于该值后就生出代码为ComEvSend的OnComm事件。
  (8)InputLen:设置或重回接收缓冲区内用Input读入的字节数,设置该属性为0表示Input读取全方位缓冲区的开始和结果。
  (9)Input:从接收缓冲区读取一串字符。
  (10)OutBufferSize:设置或回到发送缓冲区的深浅,缺省值为512字节。
  (11)OutBufferCount:重返发送缓冲区内等待发送的字节数,可由此设置该属性为0来清空缓冲区。
  (12)OutPut:向发送缓冲区传送一串字符。
  要是在通讯进度中发出错误或事件,就能引发OnComm事件,并由CommEvent属性代码反映失实类型,在通讯程序的希图中可依靠该属性值来试行不一的操作。CommEvent属性值及其含义如下:
  (1)ComEvSend:值为1,发送缓冲区的剧情少于SThreshold钦点的值。
  (2)ComEvReceive:值为2,接收缓冲区内字符数达到RThreshold钦赐的值。
  (3)ComEvFrame:值为1004,硬件检验到帧错误。
  (4)ComEvRAV4xOver:值为1008,接收缓冲区溢出。
  (5)ComEvTxFull:值为1010,发送缓冲区溢出。
  (6)ComEvRubiconxParity:值为1009,奇偶校验错误。
  (7)ComEvEOF:值为7,接收数据中冒出文件尾(ASCII码为26)字符。
  二、程序样例
  在Delphi3.0中不能够采用MSComm控件,笔者利用的是Delphi5.0。MSComm控件是VB中的OCX控件,首先须要将其增添到Delphi中,选用菜单“Component”→“Import
ActiveX Control”,在“Import ActiveX”页内选拔“Microsoft Comm
Control”,点击“Install”安装,安装后在“ActiveX”组件板中出现MSCommLogo,就能够被利用。有一点点要小心,在Object
Inspector中MSComm控件的Input和Output属性是不可知的,但它们仍旧存在,那四个性格的项目是奥莱Variant(奥莱万能变量)。
  下边是一吸取程序的样例(首要部分),我们可依赖实际必要开展完美。
  在Form中放置一Memo控件用于体现接收的数额,Combobox1选项通讯参数(Setting属性值),Combobox2挑选串口(CommPort属性值),按Button1起先接收数据,按Button2结束选拔。
procedure TForm1.FormCreate(Sender: TObject); begin
  Mscomm1.InBufferCount :=0; // 清空切收缓冲区   Mscomm1.InputLen
:=0; // Input读取全方位缓冲区内容   Mscomm1.RThreshold :=1; //
每一次收到到字符即发生OnComm事件 end; procedure
TForm1.Button1Click(Sender: TObject); begin   Mscomm1.Settings
:=ComboBox1.Text;   if ComboBox2.Text =com1 then //
一旦只思虑com1和com2三种情状     Mscomm1.CommPort :=1   else
    Mscomm1.CommPort :=2;   Mscomm1.PortOpen :=true; // 展开串口
  Mscomm1.DTREnable :=true; // 数据终端盘算好   Mscomm1.RTSEnable
:=true; // 央浼发送 end; procedure TForm1.Button2Click(Sender: TObject);
begin   Mscomm1.PortOpen :=false; // 关闭串口   Mscomm1.DTREnable
:=false;   Mscomm1.RTSEnable :=false; end; procedure
TForm1.MSComm1Comm(Sender: TObject); var recstr:奥莱variant; begin  if
Mscomm1.Comm伊芙nt = 2 then   begin    recstr := Mscomm1.Input ;   
Memo1.text := Memo1.Text + recstr;   end; 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: TError伊芙nt;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 d

用Delphi设计和煦的代理服务器


(1)、被代理端浏览器发出Web诉求,代理服务器的Serversocket接收到央浼。
(2)、代理服务器程序自动创制三个ClientSocket,并设置主机地址、端口等品质,然后连接远程主机。
(3)、远程联网后激起发送事件,将Serversocket接收到的Web央浼数据包发送到长途主机。
(4)、当远程主机重回页面数据时,激发ClientSocket的读事件,读取页面数据。
(5)、代理服务器程序根据绑定音信分明属于ServerSocket控件中的哪三个Socket应该将从主机接收的页面音信发送到被代理端。
(6)、ServerSocket中的对应Socket将页面数据发送到被代理端。