delphi_多线程

在盒子里得到了这么多朋友无私的帮助，真的表示感谢！看到很多朋友在寻求多线程网络传输代码，为此，从我开发的网络棋牌游戏中整理出这个献给大家:) 开发环境：Delphi7.0+WinXP，没用其他控件(除了Delphi自带的Indy) 使用协议：TCP/IP 客户端一次发送65000字节的包，服务端负责组装并处理数据粘连。 使用ReadBuffer()，Send()函数来接收发送Buffer内字节，这样作的目的是使程序具有更好的灵活性。你可以自定义Buffer内那些字节的含义，例如是字符串、图像、声音、命令等等。 文件的多线程读写采用windows内存映像技术。 关键的服务器处理函数IdTCPServer1Execute(AThread: TIdPeerThread)是非线程安全的。如果使用临界区，那么多线程将在这里串行执行，严重降低多线程效率。对此，我采用一个简单的办法，具体可以看程序。