[ZevsTula]

Задача: На рабочей машине есть три папки в каждой из которых под 100 фалов разного размера. Моя программка обходит все эти папки и пересылает на удаленную машину через FTP (на удаленной машине, есс-но, фтп-сервер). Все работает нормально, НО!... Канал передачи слабый и частенько падает, а передать данные нужно обязательно и достоверно. Так вот - как сделать так, чтобы связь с сервером поддерживалась постоянно? И если какой-то файл не передался, то чтобы связь возобновилась и файл начал передаваться заново?

[lmikle]

так и делать.
Сначала составляешь список чего надо передавать.
Потом начинаешь передавать, если произошла ошибка, то сбрасывапешь соединение, устанавливаешь заного и начинаешь с того места (файла), где произошла ошибка.

[ZevsTula]

Принцип-то мне ясен. Просто не соображу как это закодить. Предположим есть список файлов, которые надо передать. Пусть они хранятся в FileListBox. Начинаем в цикле их передавать. Канал падает на определенном файле. Собственно, можно пример кода, как восстановить подключение? Т.е. чтобы оно восстанавливалось и при последующих обрывах связи.

[lmikle]

Что-то типа этого:

Код:

FTP.Connect;
I := 0;
While I < FileList.Count Do
Begin
  Try
    SendFile(FilesList[i]);
    Inc(I);
  Except
    FTP.Disconnect;
    FTP.Connect;
  End;
End;