服务器与客户

笔者在工作中遇到对局域网中各工作站与服务器之间进行Socket通信的问题。现在将本人总结出来的

TServerSocket和TClientSocket两个组件的基本用法写出来，希望与您分享。

ClientSocket组件为客户端组件。它是通信的请求方，也就是说，它是主动地与服务器端建立连接。

ServerSocket组件为服务器端组件。它是通信的响应方，也就是说，它的动作是监听以及被动接受客户端的连接请

求，并对请求进行回复。

ServerSocket组件可以同时接受一个或多个ClientSocket组件的连接请求，并与每个ClientSocket组件建立单独的

连接，进行单独的通信。因此，一个服务器端可以为多个客户端服务。

设计思路

本例包括一个服务器端程序和一个客户端程序。客户端程序可以放到多个计算机上运行，同时与服务器端进行连接

通信。

本例的重点，一是演示客户端与服务器端如何通信；二是当有多个客户端同时连接到服务器端时，服务器端如何识

别每个客户端，并对请求给出相应的回复。为了保证一个客户端断开连接时不影响其它客户端与服务器端的通信，

同时保证服务器端能够正确回复客户端的请求，在本例中声明了一个记录类型：

type

client_record=record

CHandle: integer; //客户端套接字句柄

CSocket:TCustomWinSocket; //客户端套接字

CName:string; //客户端计算机名称

CAddress:string; //客户端计算机IP地址

CUsed: boolean; //客户端联机标志

end;

利用这个记录类型数据保存客户端的信息，同时保存当前客户端的连接状态。其中，CHandle保存客户端套接字句

柄，以便准确定位每个与服务器端保持连接的客户端；Csocket保存客户端套接字，通过它可以对客户端进行回

复。Cused记录当前客户端是否与服务器端保持连接。

下面对组件ServerSocket和ClientSocket的属性设置简单说明。

ServerSocket的属性：

· Port，是通信的端口，必须设置。在本例中设置为1025；

· ServerTypt，服务器端读写信息类型，设置为stNonBlocking表示异步读写信息，本例中采用这种方式。

· ThreadCacheSize，客户端的最大连接数，就是服务器端最多允许多少客户端同时连接。本例采用默认值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

CMax=10; //客户端最大连接数

type

client_record=record

CHandle: integer; //客户端套接字句柄

CSocket:TCustomWinSocket; //客户端套接字

CName:string; //客户端计算机名称

CAddress:string; //客户端计算机IP地址

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;

//关闭套接字连接，不再监听客户端的请求