Закачка файла

[...ъХ...]

Вопроc для тех, кто шарит в Indy...
Нужно получить список директорий на анонимном ФТП и закачать фаил(БЕЗ ФОРМЫ), обшарил пол инета и демку инди клиента, нашёл вот такой код, но он не работает. Почему? Другие варианты тоже приветствуются

var
 Dir: String; 
 DL: TStringList; 
 i: integer; 
begin 
   DL:=TStringList.Create; 
   idFTP.ChangeDir(Dir);  //меняем диру
   idFTP.List(DL); //Получаем список, заполняется св-во DirectoryListing

   i:=0; 
   while i <= idFTP.DirectoryListing.Count-1 do  //цикл по списку файлов на фтп
         begin 
              if idFTP.DirectoryListing[i].ItemType = ditDirectory then  //если файл дира то 
                 begin
                    IdFTP1.Put('file.exe','file1.exe'); //закачиваем
                     idFTP1.ChangeDirUp; //сменяем диру вверх на 1 уровень
    end;
 end;
end;

 

[...ъХ...]

Ну а как перебрать названия папок на серве ФТП, в этом можете помочь?

 

[gemaglabin]

замени
while i <= idFTP.DirectoryListing.Count-1 do
на
for i := 0 to idFTP.DirectoryListing.Count-1 do