Передача файлов в цикле от клиента серверу Indy

[Aigulka]

Доброе утро!
Возникла проблема с клиент-серверным приложением (использую Indy - IdTCPServer и IdTCPClient).
Нужно передать n-ое количество файлов от клиента серверу. Вроде все работает, но когда передаются большие файлы начинаются проблемы - некоторые файлы теряются.
Передаю в цикле, для каждого файла у меня происходит подключение, а после передачи отключение клиента.
Прошу не ругать меня, т.к. я новичок
Код:
Сервер

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdTCPServer1.DefaultPort:=19191;
  IdTCPServer1.Active:=true;
end;

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var F: TFileStream;
begin
  memo1.Lines.Add(AThread.Connection.ReadLn);                                            // путь, куда скачать файл
  F:= TFileStream.Create(memo1.Lines.Strings[memo1.Lines.Count-1],fmCreate);  // создается файл
  AThread.Connection.ReadStream(F,-1,true);                                                 // поток передаваемый клиентом
  F.Free;
  AThread.Connection.Disconnect;
  memo1.Clear;
end;

Клиент

procedure TForm1.FormCreate(Sender: TObject);
begin
  IdTCPClient.Port:=19191;
  IdTCPClient.Host:='127.0.0.1';   // пока сделала на локальном
end;

procedure TForm1.Button1Click(Sender: TObject);
var F: TFileStream;
     i: integer;
begin
  for i:=0 to memo1.Lines.Count-1 do
  begin
      IdTCPClient.Connect;
      IdTCPClient.WriteLn(memo2.Lines.Strings[i]);                        // путь в архиве
      F:= TFileStream.Create(memo1.Lines.Strings[i],fmOpenRead);  // что передать (файл клиента)
      IdTCPClient.OpenWriteBuffer;
      IdTCPClient.WriteStream(F);
      IdTCPClient.CloseWriteBuffer;
      F.Free;
      IdTCPClient.Disconnect;
  end;
end;

В клиентской части есть 2 memo - в одной что передать, во второй куда передать.
Буду рада любой помощи!!!

[Stilet]

Ну все вроде логично у тебя, я бы посоветовал тебе прикрутить IdFTP и файлы ганять с его помошью. Всетки он более предназначен для такого.

[Aigulka]

Сообщение от Stilet

Ну все вроде логично у тебя, я бы посоветовал тебе прикрутить IdFTP и файлы ганять с его помошью. Всетки он более предназначен для такого.

Спасибо, попробую

[Aigulka]

Сообщение от Stilet

Ну все вроде логично у тебя, я бы посоветовал тебе прикрутить IdFTP и файлы ганять с его помошью. Всетки он более предназначен для такого.

Посоветуйте, как сделать, чтобы клиент после передачи файла подождал, пока сервер все сделает, а затем слал следующий файл?
А то у меня получается, что клиент кидает и не ждет ответа.

[Stilet]

Покажи свой код.

[Aigulka]

Сообщение от Stilet

Покажи свой код.

Код тот же самый, что и в начале темы

[Stilet]

Так ты меня не послушался, и не прикрутил idFTP?

[Aigulka]

Сообщение от Stilet

Так ты меня не послушался, и не прикрутил idFTP?

Не послушалась, вернее не получилось)) А отладить работу TCP-сервера и клиента нельзя?

[Stilet]

Я так сразу не скажу... Я как-то именно с этим компонентом избегаю работать.
Я сразу затачивался на idFTP для файлов и idHTTP для обычного обмена информацией. Плюс голые сокеты. А вот именно с IdTCPClient...
ИМХО нужно после каждой передачи делать разрыв соединения и переподключаться для следующей передачи.

[Slym]

Сообщение от Aigulka

Сервер

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var F: TFileStream;
begin
  memo1.Lines.Add(AThread.Connection.ReadLn);                                            // путь, куда скачать файл
  F:= TFileStream.Create(memo1.Lines.Strings[memo1.Lines.Count-1],fmCreate);  // создается файл
  AThread.Connection.ReadStream(F,-1,true);                                                 // поток передаваемый клиентом
  F.Free;
  AThread.Connection.Disconnect;
  memo1.Clear;
end;

нельзя к мемо из потока... убери
в сервере особо критично try/finally

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var s:string;
F: TFileStream;
begin
  s:=AThread.Connection.ReadLn;                                            // путь, куда скачать файл
  //проверка s на атаку выхода из корня типа \..\..\..\autorun.inf и прочие проверки.
//s:='..\..\..\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\virus.exe'; - без проверки грохнуть сервер плевое дело
  F:= TFileStream.Create(memo1.Lines.Strings[memo1.Lines.Count-1],fmCreate);  // создается файл
  try
    AThread.Connection.ReadStream(F,-1,true);                                                 // поток передаваемый клиентом
  finally
    F.Free;
  end;
  AThread.Connection.Disconnect;
end;

Сообщение от Aigulka

Клиент

procedure TForm1.Button1Click(Sender: TObject);
var F: TFileStream;
     i: integer;
begin
  for i:=0 to memo1.Lines.Count-1 do
  begin
      IdTCPClient.Connect;
      IdTCPClient.WriteLn(memo2.Lines.Strings[i]);                        // путь в архиве
      F:= TFileStream.Create(memo1.Lines.Strings[i],fmOpenRead);  // что передать (файл клиента)
      IdTCPClient.OpenWriteBuffer;
      IdTCPClient.WriteStream(F);
      IdTCPClient.CloseWriteBuffer;
      F.Free;
      IdTCPClient.Disconnect;
  end;
end;

В клиентской части есть 2 memo - в одной что передать, во второй куда передать.
Буду рада любой помощи!!!

а вот тут кажется потеря и происходит... OpenWriteBuffer лишний... OpenWriteBuffer для склейки мелких запросов, а для крупных - переполняет буфер

procedure TForm1.Button1Click(Sender: TObject);
var F: TFileStream;
     i: integer;
begin
  for i:=0 to memo1.Lines.Count-1 do
  begin
      IdTCPClient.Connect;
      IdTCPClient.WriteLn(memo2.Lines.Strings[i]);                        // путь в архиве
      F:= TFileStream.Create(memo1.Lines.Strings[i],fmOpenRead);  // что передать (файл клиента)
      try
        IdTCPClient.WriteStream(F);
      finally
        F.Free;
      end;
      IdTCPClient.Disconnect;
  end;
end;