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

Question

如题所述

Answer 1

首先要讲一下他们的一些设置（属性）：
　　 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
　　 当向服务端发送数据的时候产生此事件。