上传者: 39840515
|
上传时间: 2022-02-11 00:02:03
|
文件大小: 79KB
|
文件类型: -
Delphi网络编程:P2P点对点文件传输实例,点对点聊天的原理相似,这里是发送一个文件,另一端可接收,直到传输完整个文件。编程思路:
利用TCP协议连接双方,服务器端建立文件流读入待发送文件进入监听状态,客户端发送信号开始传输,服务器根据客户端发送的当前文件流传输位置按接收缓冲区大小一块一块的发送给客户端,客户端接受后再保存到接收文件流,直到整个文件流发送完毕,这里服务器端使用TIdTCPServer组件,客户端对应的使用TIdTCPClient组件。