点对点P2P网络文件传输，Delphi源代码.rar

P2P(点对点)的流行产生了大批网络传输软件，这里我们要介绍的就是自己写一个简单的P2P文件传输，一方发送文件，一方接受，直到传输完整个文件。利用TCP协议连接双方，服务器端建立文件流读入待发送文件进入监听状态，客户端发送信号开始传输，服务器根据客户端发送的当前文件流传输位置按接收缓冲区大小一块一块的发送给客户端，客户端接受后再保存到接收文件流，直到整个文件流发送完毕，这里服务器端使用TIdTCPServer组件，客户端对应的使用TIdTCPClient组件。本程序主要的功能由TIdTCPServer和TIdTCPClient组件完成，通过本例我们主要掌握文件流的分段传输，C/S模式的通信，with…do结构的用法，项目组的使用等。
这里只是一个演示，因而我们只做了单向传输，也就是只能服务器端发文件给客户端，程序稍加修改即可做成双向的，留给读者思考吧。