客户端与服务器端的Socket通信

2009.17

网络与通信

NETWORK&COMMUNICATION

1引言

大部分网络协议的实现都由客户端(Client)和服务器端

(Server)来协作完成。这种模型本质上涉及两个不同的程序，

通常这两个程序在不同机器上运行。这些机器之间都有网络连接。服务器端程序提供服务并对来自客户程序的请求作成响应。而客户端程序则是在使用者和服务器端程序之间建立某种沟通的渠道，或者是作为使用服务器端提供的某种网络服务的工具。

一个典型的服务器与客户机之间的交互可能如下所示：（1）客户机提出一个请求；

（2）服务器收到客户机的请求，进行分析处理；（3）服务器将运行处理的结果返回给客户机。

通常一个服务器需要向多个客户机提供服务。因此对服务器来说，还需要考虑如何有效地处理多个客户的请求。

2服务器与客户端的Socket 通信类型

Socket 的连接类型可以分为两种，分别是面向连接的字节

流类型(Sock_stream)和面向无连接数据报类型(Sock_dgram)。

面向无连接数据报类型的Socket 工作流程比较简单，双方不需要进行太多的沟通与交互。客户机直接将用户的请求打包发送到服务器端，省略了建立一个固定信息通道的过程。服务器端也是直接将处理的结果发送给客户端。其工作流程如图1所示。

面向连接的字节流类型的Socket 工作中有比较严格的操作次序，工作的原理也比较复杂。在这种类型的Socket 的工作过程中，必须首先启动服务器端，通过调用Socket ()函数建立一个Socket 对象，然后调用Bind ()函数将该Socket 对象和本地网络地址绑定到一起，再调用Listen ()函数使该Socket 对象处于侦听状态，并规定它的最大请求的数量。其工作流程如图2所示。

总的来说，无连接和面向连接的通信方式各有长处和短处。在仅仅涉及少量的信息传递的场合可以使用无连接操作；如果涉及大量信息传递的场合可以采用面向连接操作。

3Delphi 的Socket 组件

ClientSocket 组件为客户端组件。它是通信的请求方，也

就是说，它是主动地与服务器端建立连接。

客户端与服务器端的Socket 通信

夏

玲

摘

要：介绍有关Socket 通讯应用的基本知识，并通过客户端和服务器端的Delphi 编程实

例，说明两者是如何进行通信的。

关键词：Socket ；Delphi ；通信；客户端；服务器端

图1

无连接Socket 操作流程

图2

面向连接Socket

操作流程

49

2009.17

ServerSocket 组件为服务器端组件。它是通信的响应方，

也就是说，它的动作是监听以及被动接受客户端的连接请求，并对请求进行回复。

ServerSocket 组件可以同时接受一个或多个ClientSocket 组

件的连接请求，并与每个ClientSocket 组件建立单独的连接，进行单独的通信。因此，一个服务器端可以为多个客户端服务。

（1）ServerSocket 的属性

Port 是通信的端口，必须设置。在本文实例中设置为95；ServerType 服务器端读写信息类型，

设置为

stThreadBlocking 表示异步读写信息，本文实例中采用这种方

式。

ThreadCacheSize ，客户端的最大连接数，就是服务器端最

多允许多少客户端同时连接。本文实例采用默认值10。

其他属性采用默认设置即可。（2）ClientSocket 的属性

Port ，是通信的端口，必须与服务器端的设置相同。否则

可能导致两个组件发送的目标端口和接收的端口不一致，导致无法建立有效的信息传送连接。

ClientType ，客户端读写信息类型，应该与服务器端的设

置相同，为ctNonBlocking 表示异步读写信息.

Host ，客户端要连接的服务器的ip 地址。必须设置，当然

也可以在代码中动态设置。

其他属性采用默认设置即可。

4

应用实例

4.1

设计思路

实例包括一个服务器端程序与一个客户端程序。客户端程

序可以放到多个计算机上运行,同时与服务器端进行连接通信。

（1）服务器程序实现以下基本功能

1）在用户登录的时候记录用户登录所在主机的IP 、主机

名称等。

2）显示当前在线用户数量。

3）可对当前在线用户执行注销、重启、关机等操作。

（2）客户端程序实现一些基本功能

1）显示当前程序的工作状况。

2）实现服务器端发送的注销、重启、关机的操作。4．2

程序说明

根据功能的实际需要，服务端程序一运行，窗体的

StringGrid 控件就显示已在线用户的基本信息，如图3所示。

代码如下：

procedure TfrmServer.displayconnectionsinfo ;//在stringgrid 中显示在线用户数据

var i:integer;begin

listbox1.Items.Clear;with ServerSocket1do begin

if (length(arrayconnectionstatus)>=1)then

stringgrid1.RowCount:=length(arrayconnectionstatus)+1else

stringgrid1.RowCount:=2;with stringgrid1do begin

for i:=0to high(arrayconnectionstatus)do begin

with arrayconnectionstatus[i]do begin

cells[0,i+1]:=inttostr(tcsactiveconnections);cells[1,i+1]:=''+tcsremotehost;cells[2,i+1]:=''+tcsremoteaddress;cells[3,i+1]:=''+inttostr(tcsremoteport);cells[4,i+1]:=''+tcslocalhost;cells[5,i+1]:=''+tcslocaladdress;cells[6,i+1]:=''+inttostr(tcslocalport);listbox1.items.Add(tcsremotehost);end;end;end;end;end;

在窗体上，“执行”按钮的Click 事件负责向指定的在线

用户或全体在线用户发送注销、重启、关机操作指令。代码如

下：

procedure TfrmServer.broadcast ;//向已在线用户(计算机)执行命令var i:integer;begin

with ServerSocket1.Socket do

begin

图3

服务器端的窗体

50