怎样用socket发送接收文件?(100分)

  • 主题发起人 主题发起人 张远
  • 开始时间 开始时间

张远

Unregistered / Unconfirmed
GUEST, unregistred user!
用TclientSocket.Sendstream发送,怎样接收(没有ReceiveStream方法)?
 
看:
http://www.delphibbs.com/delphibbs/DispQ.asp?LID=420157
 
在OnRead事件中读取数据
 
tserversocket.receivebuf(buf,len)
detail, contact me
 
发送方:先传文件长度,在传内容
接受方:先得到文件长度,在接受数据,直到达到长度为止
 
同意kawen
请看http://www.delphibbs.com/delphibbs/DispQ.asp?LID=471273
 
一般的不大的文件,我习惯用SendBuf()。
双方商定每笔Buffer的大小(比如2048Bytes),
客户收到后判断大小,等于2048Bytes就
让服务端发下一笔,否则文件就传完了
服务端和客户端都Create 一个TmemoryStream
来临时存放信息

效果很好的...
 
多人接受答案了。
 
后退
顶部