您的位置：程序门 -> delphi -> 网络通信/分布式开发

请问通过tserversocket和tclientsocket能实现两个客户端之间的文件传输吗？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

请问通过tserversocket和tclientsocket能实现两个客户端之间的文件传输吗？

发表于：2008-01-17 15:41:24 楼主

通过tserversocket和tclientsocket能实现两个客户端之间的文件传输吗？我已经在客户端成功显示了在线用户列表，有handle和ip信息。如果这两个控件不能传输文件，那该用什么控件呢？

发表于：2008-01-17 15:56:281楼得分:0

一个客户端知道对方客户端的ip地址，该怎么实现文件传输？

发表于：2008-01-17 19:26:012楼得分:0

indy不是有ftp的控件吗

发表于：2008-01-17 19:52:013楼得分:0

可以传输文件啊！！！！
同样是用send方法发送!

发表于：2008-01-17 19:55:034楼得分:0

procedure tfrmchat.sendfile;
var
filestream:tfilestream;
begin
filestream:=tfilestream.create（open1.filename, fmopenread);
try
nmstrm1.host :=address ;
nmstrm1.fromname :=extractfilename（open1.filename);
nmstrm1.postit（filestream);
frmmain.send（'t',userhandle,datetimetostr（now)+#13+'系统消息: 已接收文件'+nmstrm1.fromname+#13,lbuser.caption,frmmain.myid,id,'1','');
frmmain.displaytext（btext.lines,'已发送文件'+nmstrm1.fromname,'系统消息');
sendmessage（btext.handle,em_scroll,sb_bottom,0);
finally
filestream.free ;
frmmain.sent :=false;
end;
end;

其他资讯