网络文件传输(delphi源代码)

时间:2011-07-04 10:23:42
【文件属性】:

文件名称:网络文件传输(delphi源代码)

文件大小:632KB

文件格式:RAR

更新时间:2011-07-04 10:23:42

利用TCP协议连接双方,服务器端建立文件流读入待发送文件进入监听状态,客户端发送信号开始传输,服务器根据客户端发送的当前文件流传输位置按接收缓冲区大小一块一块的发送给客户端,客户端接受后再保存到接收文件流,直到整个文件流发送完毕,这里服务器端使用TIdTCPServer组件,客户端对应的使用TIdTCPClient组件。


【文件预览】:
Source
----Client()
--------U_Client.pas(4KB)
--------Client.exe(454KB)
--------Client.cfg(742B)
--------U_Client.~ddp(51B)
--------Client.dpr(248B)
--------U_Client.~pas(3KB)
--------U_RWClientIni.pas(3KB)
--------Client.~dpr(286B)
--------U_Client.dfm(1KB)
--------Client.res(876B)
--------U_Client.~dfm(1KB)
--------client.ini(119B)
--------U_Client.dcu(7KB)
--------Client.ex(446KB)
--------U_Client.ddp(51B)
--------U_RWClientIni.dcu(3KB)
--------U_ClientIni.pas(3KB)
--------Client.dof(4KB)
----ProjectGroup1.bpg(811B)
----Server()
--------U_Server.~pas(5KB)
--------Server.ini(105B)
--------U_RWServeIni.dcu(3KB)
--------U_Server.~ddp(51B)
--------Server.~dpr(207B)
--------Server.dof(4KB)
--------Server.dpr(246B)
--------U_Server.dfm(2KB)
--------U_RWServeIni.pas(3KB)
--------Server.cfg(742B)
--------U_RWServeIni.~pas(2KB)
--------U_Server.pas(5KB)
--------U_Server.dcu(9KB)
--------U_Server.~dfm(2KB)
--------Server.exe(472KB)
--------Server.res(876B)
--------U_Server.ddp(51B)
----网络文件传输.doc(74KB)

网友评论

  • 没有控件运行不了呀