如何用ServerSocket1和ClientSocket1传输任意的文件[我真的没分了-只能谢谢大家了](10分)

  • 主题发起人 主题发起人 odbc1230
  • 开始时间 开始时间
O

odbc1230

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用ServerSocket1和ClientSocket1在两台电脑间传输任意的文件类似QQ
我真的没分了,谢谢大家的帮忙和关注,
 
把文件都转化为流操作
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1002270
 
以二进制流的形式传送
 
../Borland/Delphi5/Demos/FastNet/Strm
下面有一个delphi自带的例子,你自己参考一下
用的是文件流的方式。
 
var
fr : TFileStream;
st : string;
begin
fr := TFileStream.create('test.dat',fmOpenRead);
SetLength(st,fr.size);
fr.read(st[1],fr.size);
Socket.sentstring(st);
end;
 
我要在发送端用OPENDIALAGE选一个文件发送,接受端收到后自动保存
 
用流就对了,别忘了把文件的扩展名也传递。
让接受端后台运行,有消息就收,收完就保存阿。
 
首先载一个两端都知道格式的头,通知要发送什么东东
然后就开始发送
最后是结束发送,确认结果
源码不错,可瞧一瞧
 
http://www.playicq.com/dispdoc.php?t=&id=1062
 
确定需要使用文件分割,然后用Stream发送
 
我回答的问题里有好几个帖子里面有我的代码,你可以找来看看
 
多人接受答案了。
 
后退
顶部