不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

文件传输！

楼主Dragon084（Dragon）2005-01-19 13:20:20 在 Delphi / 网络通信/分布式开发提问

请教各位Delphi高手，如何为每个客户端发送特定的文件，然后再把该文件传送回服务器的特定文件夹中？
谢谢！！！问题点数：50、回复次数：9Top

1 楼terrytzq（边缘）回复于 2005-01-19 13:27:46 得分 0

我没源码．Top

2 楼showeasy（十一少）回复于 2005-01-19 16:45:54 得分 0

UP 想了解Top

3 楼ly_liuyang（Liu Yang LYSoft http://lysoft.7u7.net）回复于 2005-01-19 16:58:01 得分 0

用Indy的TCPClient和TCPServer就可以的

代码就自己写的

http://lysoft.7u7.netTop

4 楼Hylas（羽心）回复于 2005-01-20 10:22:27 得分 20

先写一个应用层通信协议，规定通信的握手。
服务器端维护一个列表是必不可少的。
具体代码就不难了。Top

5 楼Dragon084（Dragon）回复于 2005-01-20 11:39:39 得分 0

请各位大虾给个代码看看吧！！！！Top

6 楼Dragon084（Dragon）回复于 2005-01-25 15:16:07 得分 0

顶！Top

7 楼terrytzq（边缘）回复于 2005-01-25 15:33:34 得分 0

顶！Top

8 楼helodd（感动/angle）回复于 2005-01-25 18:12:08 得分 30

发送
procedure TForm1.Button2Click(Sender: TObject);
var
fStream : TFileStream;
begin

if opendialog1.Execute then
with FClient do
begin
Connect;
while Connected do
begin
fStream := TFileStream.Create(opendialog1.FileName, fmOpenRead);
try
OpenWriteBuffer;
WriteStream(fStream);
CloseWriteBuffer;
finally
Disconnect;
fStream.Free;
end;
end;
end;

end;

接收
procedure TForm1.FServerExecute(AThread: TIdPeerThread);
var
s, sCommand : string;
fStream : TFileStream;
begin
with AThread.Connection do
try
fStream := TFileStream.Create('c:\abc.data', fmCreate);
try
ReadStream(fStream,-1,true);
finally
fStream.Free;
end;
end;
end;
// end;

end;Top

9 楼Dragon084（Dragon）回复于 2005-02-15 23:43:16 得分 0

当客户端发送文件后，是不是服务器就会通过TCPServer的ReadStream方法控制文件的存放位置？Top