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