[Denisonin]

В общем, задача такова:
• Загрузить большое(неизвестное заранее(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;

Ничего не нашел, разобраться не смог, прошу помощи.

[Kailon]

В общем, задача такова:
• Загрузить большое(неизвестное заранее(1-2000шт.)) кол-во файлов, заданных в memo1.

Ну так и запускай в цикле загрузку проходясь по всем строкам Memo или же с проверкой условия, это как нужнее.

[Alegun]

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

Ну так и запускай в цикле загрузку проходясь по всем строкам Memo...

Код:

var
i: integer;
dir: string;
begin

...

 idFTP.Connect;
 dir:= 'c:\';

 for i := 0 to Memo1.Lines.Count-1 do
 IdFTP1.Put(dir + Memo1.Lines[i], Memo1.Lines[i], true);

idFTP1.Disconnect;
end;

[Denisonin]

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

Код:

var
i: integer;
dir: string;
begin

...

 idFTP.Connect;
 dir:= 'c:\';

 for i := 0 to Memo1.Lines.Count-1 do
 IdFTP1.Put(dir + Memo1.Lines[i], Memo1.Lines[i], true);

idFTP1.Disconnect;
end;

Отлично! Спасибо.
Но как сделать отмену загрузки если такого файла нет в папке?

[Denisonin]

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

Код:

var
i: integer;
dir: string;
begin

...

 idFTP.Connect;
 dir:= 'c:\';

 for i := 0 to Memo1.Lines.Count-1 do
 IdFTP1.Put(dir + Memo1.Lines[i], Memo1.Lines[i], true);

idFTP1.Disconnect;
end;

Кажется понял.

Как тут можно использовать if FileExists(s) then ?

Поместить

Код:

 for i := 0 to Memo1.Lines.Count-1 do
 IdFTP1.Put(dir + Memo1.Lines[i], Memo1.Lines[i], true);

В then? А else будет остановка загрузки?

[Denisonin]

Все сделал, отлично получилось, НО не все картинки 001-2000 будут в папке. Выдает ошибку, если такого файла нет. Как пропустить файл, если его нет, или остановить загрузку без ошибок?

[Denisonin]

Все получилось. Сделал проще, получив все файлы из папки в memo1.
Вопрос: можно ли сделать инверсию строк в memo1?
Например - если строки были "0, 1 , 2, 3, 4, 5", то сделать "5, 4, 3, 2, 1, 0"

[Alegun]

Проверка на наличие файла

Код:

...
 for i := 0 to Memo1.Lines.Count-1 do
 if FileExists(dir + Memo1.Lines[i]) then
  IdFTP1.Put(dir + Memo1.Lines[i], Memo1.Lines[i], true);
...

Обратный отсчёт строк мемо

Код:

...
 for i := Memo1.Lines.Count-1 downto 0 do
...

[Страдалецъ]

Меня вот больше интересует, а как у вас список в Мемо попадает? Есть подозрение, что Мемо тут вообще не нужен.