json（浩子）

针对此问题做的一个Demo。 http://bbs.csdn.net/topics/391491762

http://bbs.csdn.net/topics/390800698，DEMO 为此帖子写的

开发平台：Delphi XE5 测试平台：Windows 7(64bit),Windows Xp Sp3(32bit) 说明：使用Delphi 自带的 TTcpClient 与 TTcpServer 编写 Socket ThreadBlocking Demo 示例代码。里面有详细的注释，因为是线程处理，所以理论上在Windows 平台中 最多不能超过2000个线程。即最大为2000个客户端。此示例代码也可以做为模版，只要在客户端低于2000时， 均可使用此模版进行开发。

此示例是针对Delphi2010中的使用TTcpClient 和 TTcpServer 来相互通信的示例代码。TTcpClient 与 TTcpServer 为Delphi2010自带的控件。