请问通过TServerSocket和TClientSocket能实现两个客户端之间的文件传输吗?

lint412 2008-01-17 03:41:24
通过TServerSocket和TClientSocket能实现两个客户端之间的文件传输吗?我已经在客户端成功显示了在线用户列表,有HANDLE和IP信息。如果这两个控件不能传输文件,那该用什么控件呢?
...全文
47 点赞 收藏 4
写回复
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
grjs2004 2008-01-17
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;
回复
grjs2004 2008-01-17
可以传输文件啊!!!!
同样是用send方法发送!
回复
鐵蛋 2008-01-17
Indy不是有FTP的控件吗
回复
lint412 2008-01-17
一个客户端知道对方客户端的IP地址,该怎么实现文件传输?
回复
发动态
发帖子
网络通信/分布式开发
创建于2007-08-02

1566

社区成员

Delphi 网络通信/分布式开发
申请成为版主
社区公告
暂无公告