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

三．．．一．．．

～一

一～～

实～用～第一

ＳｅｒｖｅｒＳｅｃｋｅｔ组件为服务器端组件。它是通信的响应方．也就是说，它的动作是监听以及被动接受客户端的连接请求．

并对请求进行回复。

ＳｅｒｖｅｒＳｏｃｋｅｔ组件可以同时接受一个或多个ＣｌｉｅｎｔＳｏｃｋｅｔ组件的连接请求。并与每个Ｃｌｉｅｎｔ．％ｃｋｅｔ组件建立单独的连接．进行单独的通信。因此，一个服务器端可以为多个客户端服

务。

（１）ＳｅｒｖｅｒＳｏｃｋｅｔ的属性

Ｐｏｒｔ是通信的端１３，必须设置。在本文实例中设置为９５；ＳｅｒｖｅｒＴｙｐｅ服务器端读写信息类型，设置为ｓｔＴｈｒｅａｄＢｌｏｃｋｉｎｇ表示异步读写信息。本文实例中采用这种方式。

ＴｈｒｅａｄＣａｃｈｅＳｉｚｅ．客户端的最大连接数，就是服务器端最

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

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

（２）ＣｌｉｅｎｔＳｏｃｋｅｔ的属性

Ｐｏｒｔ，是通信的端口，必须与服务器端的设置相同。否则可能导致两个组件发送的目标端口和接收的端口不一致，导致无法建立有效的信息传送连接。

ＣｌｉｅｎｔＴｙｐｅ，客户端渎写信息类型，应该与服务器端的设置相同．为ｃｔＮｏｎＢＩｏｃｋｉｎｇ表示异步读写信息。

Ｈｏｓｔ，客户端要连接的服务器的ｉｐ地址。必须设置，当然也可以在代码中动态设置。

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

４

应用实例

４．１设计思路

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

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

１）在用户登录的时候记录用户登录所在主机的ＩＰ、主机

名称等。

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

３）可对当前在线用户执行注销、重启、关机等操作。（２）客户端程序实现一些基本功能１）显示当前程序的工作状况。

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

４．２程序说明

根据功能的实际需要．服务端程序一运行，窗体的ＳｔｒｉｎｇＧｒｉｄ控件就显示已在线用户的基本信息，如图３所示。

代码如下：

ｐｒｏｃｅｄｕｒｅＴｆｒｍＳｅｒｖｅｒ．ｄｉｓｐｌａｙｃｏｎｎｅｃｔｉｏｎｓｉｎｆＯ

／／在ｓｔｒｉｎｇｇｒｉｄ中显示在线用户数据

ｉ

５０

～一．，

万　

方数据一

～

～～一

一

～～～

～智

一＃忌

一密～集

图３服务器端的窗体

ｖａｒ

ｔ：ｔｎｔｅｇｅｒ；

ｂｅｇｉｎ

ｌｉｓｔｂｏｘｌ．ＩｔｅｍｓＣｌｅａｒ；ｗｉｔｈＳｅｒｖｅｒＳｏｃｋｅｔｌｄｏｂｅｇｉｎ

ｉｆ（Ｉｅｎｇｔｈ（ａｒｒａｙｃｏｎｎｅｃｔｉｏｎｓｔａｔｕｓ）＞＝１）ｔｈｅｎ

ｓｔｒｉｎｇｇｒｉｄｌ．ＲｏｗＣｏｕｎｔ：＝ｌｅｎｇｔｈ（ａｒｒａｙｃｏｎｎｅｃｔｉｏｎｓｔａｔｕｓ）＋１

ｅｌｓｅ

ｓｔｒｉｎｇｇｒｉｄｌ．ＲｏｗＣｏｕｎｔ：＝２；ｗｉｔｈｓｔｒｉｎｇｇｒｉｄｌｄｏ

ｂｅｇｉｎ

ｆｏｒｉ：＝０ｔｏｈｉｇｈ（ａｒｒａｙｃｏｎｎｅｃｔｉｏｎｓｔａｔｕｓ）ｄｏ

ｂｅｇｉｎ

ｗｉｔｈａｒｒａｖｃｏｎｎｅｃｔｉｏｎｓｔａｔｕｓ【ｌ】ｄｏ

ｂｅｇｉｎ

ｃｅｌｌｓ［Ｏ，ｉ＋１】：＝ｉｎｔｔｏｓｔｒ（ｔｃｓａｃｔｉｖｅｃｏｎｎｅｃｔｉｏｎｓ）：ｃｅｌｌｓ［１，ｉ＋１】：＝’７＋ｔｃｓｒｅｍｏｔｅｈｏｓｔ；

ｃｅｌｌｓ［２，ｉ＋１１：＝７’＋ｔｃｓｒｅｍｏｔｅａｄｄｒｅｓｓ；ｃｅｌｌｓ［３，ｉ＋１】：＝’’＋ｉｎｔｔｏｓｔｒ（ｔｃｓｒｅｍｏｔｅｐｏｒｔ）；ｃｅｌｌｓ［４，ｉ＋１】：＝７’＋ｔｃｓＩｏｃａＩｈｏｓｔ：ｃｅｌｌｓ［５，ｉ＋１】：＝７’＋ｔｃｓｌｏｃａＪａｄｄｒｅｓｓ：

ｃｅｌｌｓ［６，ｉ＋１】：＝’’＋ｉｎｔｔｏｓｔｒ（ｔｃｓｌｏｃａＩｐｏｒｔ）：

ｌｉｓｔｂｏｘｌ．ｉｔｅｍｓ．Ａｄｄ（ｔｃｓｒｅｍｏｔｅｈｏｓｔ）；ｅｎｄ；

ｅｎｄ；ｅｎｄ；

ｅｎｄ；

ｅｎｄ；

在窗体上．“执行”按钮的Ｃｌｉｃｋ事件负责向指定的在线

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

下：ｐｒｏｃｅｄｕｒｅ

ＴｆｒｍＳｅｒｖｅｒ．ｂｒｏａｄｃａｓｔ：

∥向已在线用户《计算机）执行命令

ｖａｒ

ｉ：ｉｎｔｅｇｅｒ；

ｂｅｇｉｎ

ｗｉｔｈＳｅｒｖｅｒＳｏｃｋｅｔｌ．Ｓｏｃｋｅｔｄｏｂｅｇｉｎ