DelphiSockets程序设计(转载)

标签：允许   localhost   默认   清除   false   一个用户   接收   过程   地方   

ClientSocket和ServerSocket,它们对Winsock的API进行了很好的封装生成了TClientSocket和TserverSocket两个类（控件）。通过这两个控件，可以很方便的生成TCP/IP网络应用程序。TClientSocket类是客户端的Socket类，通过它可以与服务器程序建立TCP连接，并进行数据交换。TserverSocket是服务端的Socket类，通过它，应用程序可以提供TCP网络服务，等待用户连接，并在连接后进行数据交换。以下是对两个控件进行介绍。

 

ClientSocket简介

ClientSocket是封装了作为客户端的Socket的一个控件，当在应用程序的Form中加入了控件之后，就可以选择所要连接的Server，需要Server提供什么样的服务。当设定好参数之后，就可以开始和Server建立连接了。连接建立好之后就可以通过ClientSocket和ServerSocket交换数据了。交换数据之后可以断开连接。

TClientSocket的类继承关系如下：

Tobject

Tpersistent

Tcomponent

TcustomSocket

TClientSocket

TcustomSocket把WinSock的API已经封装好了，包含了WinSock的初始化、退出的环境清理、API的调用既网络事件的消息响应等。

ClientSocket的属性

（1）Active

类型：布尔型

表示是否建立连接；

（2）Address

类型：string

建立连接后不可更改，更改后引发一个EsocketError异常。

如果设定了host属性，则address将会被忽略。

（3）ClientType

CtNonBlocking,就是允许Socket异步的处理读写事件

Ctblocking读写操作是同时进行的。

（4）Host

用于指定域名或IP

同样在连接时，改变Host属性会产生一个EsocketError的异常。

（5）Name

（6）Port

指定端口号。

连接过程中改变会产生一个EsocketError的异常。

（7）Service

用于指定服务的名字。

使用Service属性后PORT属性将被忽略。

连接过程如果改变了，会产生一个EsocketError的异常。

（8）Socket

是一个TclientWinSocket类的对象，它描述了WindowsSocket连接的客户端的属性和状态，并通过它对Socket进行操作。

Socket的常用属性：

Connected属性，指明是否与服务器建立连接。

LocalAdress属性，指明本机IP。

LocalHost属性，表示本机主机名。

Localport属性，表示本次连接使用的端口号。

RemoteAdress属性，服务器的IP。

RemoteHost属性，服务器的主机名。

RemotePort属性，服务器使用的端口号。

ClientSocket的方法：

（1）Open

参数：无；

返回值：无；

初始化Socket，尝试与服务器连接，并把Active属性设为true

(2)Close

参数：无；

返回值：无；

断开连接，把Active属性设为False;

(3)Socket对象的方法

ReceiveLength方法

参数：无

返回值：integer

Socket收到多少数据

ReceiveText方法

参数：无

返回值：string

用于接收数据组成的字符串。注意：此方法只适用于异步方式的socket,在OnRead事件处理过程中被调用。对于同步的socket只能用TwinSocketStream对象来读取数据。

Readbuf方法

参数（varBuf;CountInteger）

返回值：integer

可以读入指定的字节到指定的变量中，其中，Count是要读取的字节数，Buf是数据缓冲区变量。在调用之前，一般应该调用ReciveLength来确定有多少字符可读，并要检查指定的变量是否足够容纳这些数据而不会引起内存越界。

适用条件与Receivetext相同。

SendText方法

参数：（constS:string）

返回值：无

把一个字符串通过Socket发送到服务器。其中，S是要发送的字符串。本方法可以在发送数据的地方调用，如果发送出现任何错误，该发送过程会中断，引发一个EsocketError异常。

SendBuf方法

参数：（varBuf;Count:integer）

返回值：integer

可以把指定的数据发送到服务器端，本方法可以在需要发送数据的地方调用。同样如果发送过程出现任何错误过程会被中断，引发一个EsocketError的异常。

ClientSocket的事件

（1）OnConnecting事件

本事件发生于Client已经定位了服务端的Socket之后，在完全建立连接之前。在本事件的处理过程中可以获取要建立服务器的IP和端口号。

（2）Onconnect事件

本事件发生于服务端接受请求之后，并在客户端完成连接之后。在事件处理过程中，应该是完成连接之后客户端所进行的动作的处理代码，这取决于所选取的服务，一般情况下是在该连接上进行数据交换。

（3）OnDisconnect事件

本事件发生与Active属性被设为False之后，而客户端真正终止网络连接之前。可以在本事件处理过程中加入原码，进行网络连接终止前的处理，如释放某些已分配的资源文件等。

（4）OnRead事件

本事件发生于ClientSocket接收到数据，要求程序读取的时候。此时可以读取数据并进行处理。

（5）OnWrite事件

本事件发生于ClientSocket要往服务器端发送数据的时候。

（6）OnError事件

当ClientSocket在建立连接，读写数据，关闭连接等发生错误时，就会发出本事件的通知

定义：procedure(Sender:Tobject;Socket:TcustomWinSocket;ErrorEvent:TerrorEvent;varErrorCode:Integer)ofobject

其中参数ErrorEvent指明了错误发生的类型，参数ErrorCode则是WindowsSocketApi返回的错误代码。参数ErrorEvent是一个集合类的对象，可能的取值有：eeGeneral,eeSend,eeReceive,eeConnect,eeDisconnect,eeAccept。分别表示：一般错误、发送数据时出错、读取数据时出错、建议连接时出错、终止连接时出错、接受连接时出错(ServerSocket)；

通过对不同错误的处理，可以增强自己应用程序的可靠性。当成功处理完某一错误事件后，应该将ErrorCode的值设为0。以免再次触发EsocketError异常的产生。

 

ServerSocket简介

ServerSocket是封装了作为Server既服务器端的Socket的一个控件。在应用程序的Form中加入了ServerSocket之后，应用程序就可以作为一个服务程序而存在。当ServerSocket激活以后，正常状态下处于侦听状态，等待客户程序的连接。客户端请求连接时，启动了一个新的线程，接受客户的请求，完成连接之后，就可以给客户提供服务，服务完成之后，终止网络连接，线程退出。而主线程仍处于侦听状态，可以接受多个客户的连接请求。并可同时提供服务。

TserverSocket的类继承关系如下：

Tobject

Tpersistent

Tcomponent

TcustomSocket

TcustomServerSocket

TserverSocket

ServerSocket控件的属性

（1）Active

属性为true时，进入侦听状态，等待客户连接。

（2）ServerType属性

指明ServerSocket的类型，可取的值有：stNonBlocking,stThreadBlocking两种。

当ServerSocket设为stThreadBlocking，则每当接受一个客户的连接就自动生成一个线程，以处理客户的各种请求。当通过它发送或接受信息时，线程就会自动进入休眠状态直到数据传输完毕，然后会发出OnClientRead或OnClientWrite事件通知，让主线程进行处理。

把ServerSocket设定为stNonBlocking，则Socket可以异步的处理数据接收和发送。默认情况下，所有的客户连接的处理都是在单一的线程中进行的，当接收到数据或要发送数据时，也会发出OnClientRead和OnClientWrite事件通知。

（3）ThreadCacheSize属性

指明最大能有最大能有多少个线程在等待新的用户连接。

当Servertype是stThreadBlocking型时，每接受一个用户连接就要产生一个新的线程，为了提高系统的性能，ServerSocket会把已经断开的客户线程保留在缓冲区里。而不是释放他们。这样当一个新的请求到来的时候，就不必创建新的线程能减少所用的时间提高性能。

ThreadCacheSize的值不能设的太小，否则许多时间会浪费在创建和释放线程上，当然也不能太大，否则，系统资源（如内存）浪费太大，也不利于提高系统性能。

（4）Port属性

指明ServerSocket提供服务所在的端口号。

（5）Service属性

提供服务的名称。

如果ServerSocket已经启动，任何企图改变Port和Service属性的值将会产生一个EsocketError的异常。

（6）name属性

（7）Socket属性

是一个TserverWinSocket类的对象，描述了服务器作为侦听端的特性。

Socket对象常用的属性有：

Connected,LocalAddress,LocalHost,LocalPort,RemoteAddress,RemoteHost,

RemotePortd。

ActiveConnections属性：整型（Integer）,指明了ServerSocket当前正在打开的已经被接受了的客户请求，可以通过它来查看ServerSocket的使用情况。

AciveThreads属性：整型。指明了ServerSocket当前正在使用的TserverClientThread线程对象的数目。通过本属性的值，可以监看线程的使用情况。对于stThreadBlocking型的ServerSocket，每接受一个客户的连接，ActiveThread记数就会加一。

IdleThread属性：整型。指明了在当前在线程缓冲区内，但是没有使用的线程的对象的数目。通过这一值的大小可以检查ThreadCacheSize的取值是否合理。

Connections属性：这是TcustomWinSocket对象数组。该数组的下标值是从0到ActivConnection-1。通过这一数组可以访问每一个客户端相连的Socket.。

ServerSocket控件的方法

（1）Open方法

初始化ServerSocket,把Active属性设为True,进入侦听状态，等待客户连接。

（2）Close方法

终止所有的Socket连接，并释放网络资源，把Active属性的值设为False,ServerSocket不在接受客户端的连接请求。

（3）Socket对象的方法

Socket对象的常用方法有：ReceiveLeghth,ReceiveText,ReceiveBuf,Sendtext,SendBuf等。

ServerSocket的事件

（1）OnClientConnect事件

本事件发生在连接请求被接受之后，可以开始提供服务。

（2）OnClientDisconnect事件

当某一客户连接被终止时，产生本事件，在本事件中可以进行终止后的清除工作，如释放相关的内存等。

（３）OnClientRead事件

当ServerSocket收到客户发送过来的文件之后，发出本事件的通知，要求处理数据响应客户的请求。

对于ServerType是stThreadBlocking的ServerSocket,应使用TwinSocketStream对象来读取数据。

（４）OnClientSocketWrite事件

在ServerSocket要向客户发送数据的时，发出本事件通知。同样对于ServerType是stThreadBlocking的ServerSocket,应使用TwinSocketStream对象来读取数据。

（５）OnClientError事件

同ClientSocket的Onerror事件。

DelphiSockets程序设计(转载)

标签：允许   localhost   默认   清除   false   一个用户   接收   过程   地方   

原文地址：http://www.cnblogs.com/yyscf/p/7765735.html