Как отправить/получить несколько файлов через 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

Единственный способ отправить несколько файлов одновременно через одно соединение будет писать файлы в маленькие куски, так что вы можете перемешивать их - отправить кусок 1 файла A, затем отправьте кусок 1 файла B, затем отправьте кусок 2 файла A и т. д. - где каждый фрагмент описывает, к какому файлу он принадлежит. В противном случае вам нужно отправить каждый файл по отдельному соединению.