如何一次通过TIdTCPServer/TidTCPClient发送/接收多个文件

Question

这是我发送单个文件的编码。

procedure TForm1.IdTCPServerExecute(AThread: TIdPeerThread);
begin
  ...
  try
    ...
    AFileStream := TFileStream.Create(AFileName, fmOpenRead + fmShareDenyNone);
    try
      AThread.Connection.WriteStream(AFileStream, true, true);
    finally
      AFileStream.Free;
    end;
  except
    AThread.Connection.WriteLn('N');
  end;
  AThread.Connection.Disconnect;
end;

如果我要一次发送多个文件，请告诉我该怎么做？

是否可以使用

procedure TForm1.ReadImageFromServer(ACmd: string);
begin    
  with IdTCPClient1 do begin
    ...
    AStreamSize :=  ReadInteger;
    ReadStream(AMemStream, AStreamSize, false);
    ...
  end;
end;

Answer 1

通过单个连接同时发送多个文件的唯一方法是将文件写入小块，以便可以混合它们 - 发送文件 A 的块 1，然后发送文件 B 的块 1，然后发送文件 A 的块 2，依此类推 - 每个块描述它属于哪个文件。 否则，您必须在单独的连接上发送每个文件。