《服务器与客户.doc》由会员分享，可在线阅读，更多相关《服务器与客户.doc（14页珍藏版）》请在金锄头文库上搜索。
1、笔者在工作中遇到对局域网中各工作站与服务器之间进行Socket通信的问题。现在将本人总结出来的TServerSocket和TClientSocket两个组件的基本用法写出来，希望与您分享。 ClientSocket组件为客户端组件。它是通信的请求方，也就是说，它是主动地与服务器端建立连接。 ServerSocket组件为服务器端组件。它是通信的响应方，也就是说，它的动作是监听以及被动接受客户端的连接请求，并对请求进行回复。 ServerSocket组件可以同时接受一个或多个ClientSocket组件的连接请求，并与每个ClientSocket组件建立单独的连接，进行单独的通信。因此，一个服务
2、器端可以为多个客户端服务。 设计思路本例包括一个服务器端程序和一个客户端程序。客户端程序可以放到多个计算机上运行，同时与服务器端进行连接通信。 本例的重点，一是演示客户端与服务器端如何通信；二是当有多个客户端同时连接到服务器端时，服务器端如何识别每个客户端，并对请求给出相应的回复。为了保证一个客户端断开连接时不影响其它客户端与服务器端的通信，同时保证服务器端能够正确回复客户端的请求，在本例中声明了一个记录类型： typeclient_record=recordCHandle: integer; /客户端套接字句柄CSocket:TCustomWinSocket; /客户端套接字CName:st
3、ring; /客户端计算机名称CAddress:string; /客户端计算机IP地址CUsed: boolean; /客户端联机标志end;利用这个记录类型数据保存客户端的信息，同时保存当前客户端的连接状态。其中，CHandle保存客户端套接字句柄，以便准确定位每个与服务器端保持连接的客户端；Csocket保存客户端套接字，通过它可以对客户端进行回复。Cused记录当前客户端是否与服务器端保持连接。 下面对组件ServerSocket和ClientSocket的属性设置简单说明。 ServerSocket的属性： Port，是通信的端口，必须设置。在本例中设置为1025； ServerTyp
4、t，服务器端读写信息类型，设置为stNonBlocking表示异步读写信息，本例中采用这种方式。 ThreadCacheSize，客户端的最大连接数，就是服务器端最多允许多少客户端同时连接。本例采用默认值10。 其它属性采用默认设置即可。 ClientSocket的属性： Port，是通信的端口，必须与服务器端的设置相同。在本例中设置为1025； ClientType，客户端读写信息类型，应该与服务器端的设置相同，为stNonBlocking表示异步读写信息。 Host，客户端要连接的服务器的IP地址。必须设置，当然也可以在代码中动态设置。 其它属性采用默认设置即可。 程序源代码: 服务器端源
5、码（uServerMain.pas）： unit uServerMain;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ScktComp, ToolWin, ComCtrls, ExtCtrls, StdCtrls, Buttons;constCMax=10; /客户端最大连接数typeclient_record=recordCHandle: integer; /客户端套接字句柄CSocket:TCustomWinSocket; /客户端套接字CName:string;
6、 /客户端计算机名称CAddress:string; /客户端计算机IP地址CUsed: boolean; /客户端联机标志end;typeTfrmServerMain = class(TForm)ServerSocket: TServerSocket;ControlBar1: TControlBar;ToolBar1: TToolBar;tbConnect: TToolButton;tbClose: TToolButton;tbDisconnected: TToolButton;Edit1: TEdit;Memo1: TMemo;StatusBar: TStatusBar;procedure
7、 tbConnectClick(Sender: TObject);procedure tbDisconnectedClick(Sender: TObject);procedure ServerSocketClientRead(Sender: TObject;Socket: TCustomWinSocket);procedure ServerSocketListen(Sender: TObject;Socket: TCustomWinSocket);procedure ServerSocketClientConnect(Sender: TObject;Socket: TCustomWinSock
8、et);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 Clien
9、tSocket: TServerClientWinSocket);procedure ServerSocketClientError(Sender: TObject;Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;var ErrorCode: Integer);private Private declarations public Public declarations session: array0.CMax of client_record; /客户端连接数组Sessions: integer; /客户端连接数end;varfrmServ
10、erMain: TfrmServerMain;implementation$R *.DFM/打开套接字连接，并使套接字进入监听状态procedure TfrmServerMain.tbConnectClick(Sender: TObject);beginServerSocket.Open ;end;/关闭套接字连接，不再监听客户端的请求procedure TfrmServerMain.tbDisconnectedClick(Sender: TObject);beginServerSocket.Close;StatusBar.Panels0.Text :=服务器套接字连接已经关闭，无法接受客户端
11、的连接请求.;end;/从客户端读取信息procedure TfrmServerMain.ServerSocketClientRead(Sender: TObject;Socket: TCustomWinSocket);vari:integer;begin/将从客户端读取的信息添加到Memo1中Memo1.Lines.Add(Socket.ReceiveText);for i:=0 to sessions dobegin/取得匹配的客户端if sessioni.CHandle = Socket.SocketHandle thenbeginsessioni.CSocket.SendText(回复
12、客户端+sessioni.CAddress+ = +Edit1.Text);end;end;end;/服务器端套接字进入监听状态，以便监听客户端的连接procedure TfrmServerMain.ServerSocketListen(Sender: TObject;Socket: TCustomWinSocket);beginStatusBar.Panels0.Text :=等待客户端连接.;end;/当客户端连接到服务器端以后procedure TfrmServerMain.ServerSocketClientConnect(Sender: TObject;Socket: TCustom
13、WinSocket);vari,j:integer;beginj:=-1;for i:=0 to sessions dobegin/在原有的客户端连接数组中有中断的客户端连接if not sessioni.CUsed thenbeginsessioni.CHandle := Socket.SocketHandle ;/客户端套接字句柄sessioni.CSocket := Socket; /客户端套接字sessioni.CName := Socket.RemoteHost ; /客户端计算机名称sessioni.CAddress := Socket.RemoteAddress ;/客户端计算机
14、IPsessioni.CUsed := True; /连接数组当前位置已经占用Break;end;j:=i;end;if j=sessions thenbegininc(sessions);sessionj.CHandle := Socket.SocketHandle ;sessionj.CSocket := Socket;sessionj.CName := Socket.RemoteHost ;sessionj.CAddress := Socket.RemoteAddress ;sessionj.CUsed := True;end;StatusBar.Panels0.Text := 客户端
15、+Socket.RemoteHost + 已经连接;end;/当客户端断开连接时procedure TfrmServerMain.ServerSocketClientDisconnect(Sender: TObject;Socket: TCustomWinSocket);vari:integer;beginfor i:=0 to sessions dobeginif sessioni.CHandle =Socket.SocketHandle thenbeginsessioni.CHandle :=0;sessioni.CUsed := False;Break;end;end;StatusBar.Panels0.Text :=客户端 +Socket.RemoteHost + 已经断开;en
