基于Indy10 ，TCPIP 聊天示例

使用Delphi2010，Indy10，TCPIP协议。

演示

[hjp2=400,300,true]http://files.cnblogs.com/goldli/tcp-chat.swf[/hjp2]

要点：

1. 服务端保存客户端会话（连接）
        首先要设置的是idTCPServer的ContextClass属性，它用来指出每个Context是类型。
   如：Server.ContextClass:=TIdServerContextClass( TClientInfo);
   TClientInfo是一个继承自 TidContext 的类，用于描述客户端的信息
2. 客户端主动接收数据
       TidTCPClient在完成一次会话后，不在处于接收状态，这时需要你调用Readxxx方法。解决的方法是在一个线程中调用这些方法，用来实现接收服务端的数据。

注意事项：

     第一、侦听线程，在使用线程的 WaitFor 方法时，不要设置 FreeOnTerminate:=True; 那样会造成 thread error 句柄无效 .

     第二、因为侦听线程一直调用 Readxxx 方法，所以这时候需要在退出时设置一个标记，以便能够在循环中退出。最好的方法是服务端发送一个命令，然后退出线程循环。如若不然，在 idTCPClient.Disconnect时会报错。原因是因为idTCPClient.IOHandler还处于打开状态，但这时连接却没有了。

     第三，服务端保存的客户端列表. 这个，不需单独建立一个TList了。因为所有处于连接状态的客户端，都会有一个指针处于 idTCPServer.Contexts.LockList 里。需要的时候可以取，之后要 UnLockList一下，不然，程序会出错。

备注：

1、

2、

转载于:https://www.cnblogs.com/goldli/archive/2009/11/04/1596213.html