2009.17网络与通信NETWORK&COMMUNICATION1引言大部分网络协议的实现都由客户端(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操作流程492009.17ServerSocket 组件为服务器端组件。
它是通信的响应方，也就是说，它的动作是监听以及被动接受客户端的连接请求，并对请求进行回复。
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;beginlistbox1.Items.Clear;with ServerSocket1do beginif (length(arrayconnectionstatus)>=1)thenstringgrid1.RowCount:=length(arrayconnectionstatus)+1elsestringgrid1.RowCount:=2;with stringgrid1do beginfor i:=0to high(arrayconnectionstatus)do beginwith arrayconnectionstatus[i]do begincells[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;beginwith ServerSocket1.Socket dobegin图3服务器端的窗体502009.17网络与通信NETWORK&COMMUNICATIONfor I :=0to (ActiveConnections -1)do beginConnections[I].SendText(statue);//statue:string 设置控制状态:1关机2重启3注销with arrayconnectionstatus[i]do begintcsremotehost:='empty';tcsremoteaddress:='0.0.0.0';tcsremoteport:=0;tcslocalhost:='';tcslocaladdress:='';tcslocalport:=0;end;end;end;displayconnectionsinfo ;label4.Caption :='0';end;客户端程序通过通信端口接收指令，并作出响应，弹出关机提示对话框，如需要继续使用计算机的在线用户，可点击“取消”按钮，如图4、图5所示。
代码如下：procedure TfrmClient.ClientSocket1Read(Sender:TObject;Socket:TCustomWinSocket);var b:string;beginb:=socket.ReceiveText;case strtoint(b)of 1:beginif win32platform =ver_platform_win32_windows then exitwindowsex(ewx_force+ewx_shutdown+ewx_poweroff,32);if win32platform =ver_platform_win32_NT thenOperateComputer(ewx_poweroff);//ewx_poweroff 关机end;2:beginif win32platform =ver_platform_win32_windows thenexitwindowsex(ewx_force+ewx_shutdown+ewx_poweroff,32);if win32platform =ver_platform_win32_NT thenOperateComputer(ewx_reboot);//ewx_reboot 重启end;3:beginif win32platform =ver_platform_win32_windows then exitwindowsex(ewx_force+ewx_shutdown+ewx_poweroff,32);if win32platform =ver_platform_win32_NT then OperateComputer(ewx_logoff);//ewx_logoff 注销end;end;end;并在客户端程序通信失败、通信成功、通信断开等状态，作出响应的处理，代码如下：procedure TfrmClient.ClientSocket1Error(Sender:TObject;Socket:TCustomWinSocket;ErrorEvent:TErrorEvent;var ErrorCode:Integer);beginconnectflag:=false;timer1.Enabled:=true;errorcode:=0;end;procedure TfrmClient.ClientSocket1Connect(Sender:TObject;Socket:TCustomWinSocket);beginconnectflag:=true;timer1.Enabled:=false;end;procedure TfrmClient.ClientSocket1Disconnect (Sender:TObject;Socket:TCustomWinSocket);beginconnectflag:=false;timer1.Enabled:=true;clientsocket1.Active:=false;end;5结语综上所述，Socket 组件相比其他高级协议组件如FastNet组件，它的封装层次较低，程序员可以在它们的基础上自己定义新的高级协议或者是规定自己的信息交互流程。