19.09.2008, 17:10
|
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,100
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Что-то типа этого:
Код:
FTP.Connect;
I := 0;
While I < FileList.Count Do
Begin
Try
SendFile(FilesList[i]);
Inc(I);
Except
FTP.Disconnect;
FTP.Connect;
End;
End; |