Delphi Sockets 程序设计
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 TcustomSocketTClientSocket
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类的对象，它描述了Windows Socket连接的客户端的属性和状态，并通过它对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方法
参数（var Buf;Count Integer）
返回值：integer
可以读入指定的字节到指定的变量中，其中，Count是要读取的字节数，Buf是数据缓冲区变量。在调用之前，一般应该调用ReciveLength来确定有多少字符可读，并要检查指定的变量是否足够容纳这些数据而不会引起内存越界。
适用条件与Receivetext相同。
SendText方法
参数：（const S:string）
返回值：无
把一个字符串通过Socket发送到服务器。其中，S是要发送的字符串。本方法可以在发送数据的地方调用，如果发送出现任何错误，该发送过程会中断，引发一个EsocketError异常。
SendBuf方法
参数：（var Buf; 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:Tcustom WinSocket; ErrorEvent: TerrorEvent;var ErrorCode:Integer) of object
其中参数ErrorEvent指明了错误发生的类型，参数ErrorCode则是Windows Socket Api返回的错误代码。参数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的Server Socket,应使用TwinSocketStream对象来读取数据。
（４） OnClientSocketWrite事件
在ServerSocket要向客户发送数据的时，发出本事件通知。同样 对于ServerType是stThreadBlocking的Server Socket,应使用TwinSocketStream对象来读取数据。
（５） OnClientError事件
同ClientSocket的Onerror事件。
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 TcustomSocketTClientSocket
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类的对象，它描述了Windows Socket连接的客户端的属性和状态，并通过它对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方法
参数（var Buf;Count Integer）
返回值：integer
可以读入指定的字节到指定的变量中，其中，Count是要读取的字节数，Buf是数据缓冲区变量。在调用之前，一般应该调用ReciveLength来确定有多少字符可读，并要检查指定的变量是否足够容纳这些数据而不会引起内存越界。
适用条件与Receivetext相同。
SendText方法
参数：（const S:string）
返回值：无
把一个字符串通过Socket发送到服务器。其中，S是要发送的字符串。本方法可以在发送数据的地方调用，如果发送出现任何错误，该发送过程会中断，引发一个EsocketError异常。
SendBuf方法
参数：（var Buf; 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:Tcustom WinSocket; ErrorEvent: TerrorEvent;var ErrorCode:Integer) of object
其中参数ErrorEvent指明了错误发生的类型，参数ErrorCode则是Windows Socket Api返回的错误代码。参数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的Server Socket,应使用TwinSocketStream对象来读取数据。
（４） OnClientSocketWrite事件
在ServerSocket要向客户发送数据的时，发出本事件通知。同样 对于ServerType是stThreadBlocking的Server Socket,应使用TwinSocketStream对象来读取数据。
（５） OnClientError事件
同ClientSocket的Onerror事件。
解决方案 »
免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货