DelphiSockets程序设计(转载)
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事件。
