如何编写用TCP/IP的通讯程序

最近在网上不断的看到有人问如何用BCB的TServerSocket和TClientSocket进行编程的问题，所以决定把我的一些编程经验告诉给大家,让大家能够尽快的掌握他们的用法。 首先要讲一下他们的一些设置（属性）： TServerSocket 的几个属性 Active 是否是工作状态，可以把它设置为ture或false来启动和停止侦听。 Port 本机侦听的端口，可以设置为一大于1024的数； ServerType 服务端的工作方式，有两个选择，一个是stNonBlocking 非阻塞方式，一个是stThreadBlocking线程阻塞方式，默认是非阻塞方式。用非阻塞方式编程比较简单（我个人认为），用阻塞方式对每个连接必须自己用线程来控制收发。 ThreadCacheSize 缓冲的线程个数 当ServerType是stThreadBlocking时有效。 TClientSocket 的几个属性 Active 是否是工作状态，可以把它设置为ture或false来同服务端建立或断开连接。 Host 服务器（ServerSocket）的计算机名，是一个字符串 Address 服务器（ServerSocket）的IP地址 ClientType 客户端的工作方式一种是ctNonBlocking非阻塞方式，一种是ctBlocking阻塞方式，默认是非阻塞方式 Port 同服务端(ServerSocket)连接的端口，这个端口就是ServerSocket的侦听 端口 在设置ClientSocket的（Host）主机名和设置（Address）IP地址是等效的，但设主机名需要网络具有DNS（域名解析服务）服务器，而且设主机名要比设主机的IP地址连接的速度慢一些。建议用Address来同ServerSocket进行连接。 设置好所有的属性后，ServerSocket控件就可以通过将它的Active属性置为true来进行侦听了。ClientSocket可以通过设置它的Active属性来同ServerSocket进行连接。连接成功就可以进行通讯了。在这个过程中会产生一些事件，下面说说他们各自的事件。 TServerSocket的几个事件 OnAccept 当一个客户同服务端连接成功后产生这个事件，产生这个事件后这个连接就可用了，可以对这个客户进行发送和接收数据。 OnClientConnect 当一个客户正在同服务端建立连接的时候产生此事件，在这里你可以决定是否接受这个连接。 OnClientDisconnect 当一个客户同服务端的连接断开的时候产生此事件，你需要在这里进行一些处理，如从连接列表中清除次连接释放内存等。 OnClientError 当客户同服务端出现错误时产生此事件，在此事件中你可以通过设置ErrorCode ＝ 0来屏蔽系统的错误提示。这样就可以避免讨厌的英文错误了。根据ErrorEvent的不同的值来得知发生了什么错误，它有一下几中错误类型 eeGeneral 未知错误 eeSend 发送数据出现错误 eeReceive 接收数据出现错误 eeConnect 客户请求连接时出现错误 eeDisconnect 客户断开连接时出现错误 eeAccept 接受一个客户时发生错误 一般来讲，当发生错误的时候这个客户的连接就已经不可用了，要对这个客户进行连接失败处理。 OnClientRead 当服务端收到客户端发来的数据的时候产生此事件。接收客户端的数据都在这里进行。 OnClientWrite 当服务端发送数据的时候产生此事件。 TClientSocket的几个事件 OnConnect 同服务端（ServerSocket）连接成功后将产生此事件，产生此事件后才说明这个连接可用了，这时才可以向ServerSocket发送数据。 OnConnecting 正在同服务端进行连接是产生此事件。 OnDisconnect 同服务端的连接断开后产生此事件，产生此事件后ClientSocket的Active属性就为false了，这时这个连接就不可用了，必须重新进行连接才能向服务器发送数据。 OnError 当Socket发生错误时产生此事件，这个事件的意义和ServerSocket的Error事件完全一样，只是它没有eeAccept错误。 OnRead 当接收到服务端发来的数据后产生此事件。 OnWrite 当向服务端发送数据的时候产生此事件。