![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Задача: На рабочей машине есть три папки в каждой из которых под 100 фалов разного размера. Моя программка обходит все эти папки и пересылает на удаленную машину через FTP (на удаленной машине, есс-но, фтп-сервер). Все работает нормально, НО!... Канал передачи слабый и частенько падает, а передать данные нужно обязательно и достоверно. Так вот - как сделать так, чтобы связь с сервером поддерживалась постоянно? И если какой-то файл не передался, то чтобы связь возобновилась и файл начал передаваться заново?
|
#2
|
|||
|
|||
![]() так и делать.
Сначала составляешь список чего надо передавать. Потом начинаешь передавать, если произошла ошибка, то сбрасывапешь соединение, устанавливаешь заного и начинаешь с того места (файла), где произошла ошибка. |
#3
|
|||
|
|||
![]() Принцип-то мне ясен. Просто не соображу как это закодить. Предположим есть список файлов, которые надо передать. Пусть они хранятся в FileListBox. Начинаем в цикле их передавать. Канал падает на определенном файле. Собственно, можно пример кода, как восстановить подключение? Т.е. чтобы оно восстанавливалось и при последующих обрывах связи.
|
#4
|
|||
|
|||
![]() Что-то типа этого:
Код:
FTP.Connect; I := 0; While I < FileList.Count Do Begin Try SendFile(FilesList[i]); Inc(I); Except FTP.Disconnect; FTP.Connect; End; End; |