文件传输！

Question

请教各位Delphi高手，如何为每个客户端发送特定的文件，然后再把该文件传送回服务器的特定文件夹中？
谢谢！！！

Answer 1

用Indy的TCPClient和TCPServer就可以的代码就自己写的http://lysoft.7u7.net

Answer 2

发送
procedure TForm1.Button2Click(Sender: TObject);
var
fStream : TFileStream;
beginif 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;

Answer 3

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