В общем, задача такова:
• Загрузить большое(неизвестное заранее(1-2000шт.)) кол-во файлов, заданных в memo1.
Файлы:
• Расширение ".png"
• В одной директории
• Имеют вид - "sl-pd-000.png", "sl-pd-001.png", ... , "sl-pd-1100.png"
Дополнительно:
• В memo1 будет информация вида:
sl-pd-000.png
sl-pd-001.png
...
sl-pd-2000.png
• Если файлы в директории кончаются на (например) sl-pd-491.png, то загрузка должна остановиться.
Имеется код:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
idFTP1.Host:='ftp_server.ru'; //FTP-сервер
idFTP1.Port:=21; //порт ФТП сервера
idFTP1.Username:='Логин';
idFTP1.Password:='Пароль';
idFTP.Connect;
IdFTP1.Put('c:\file.png','file.png' ,true);
idFTP1.Disconnect;
end;
Ничего не нашел, разобраться не смог, прошу помощи.