-
Не могу получить список файлов с FTP-сервера. Все хорошо работало на D7, но предприятие закупила лицензионное ПО CodeGear RAD Studio 2007, с ним поставляется инди 10. Попробовал перекомпилил приложение, но не работает команда List Привожу код, на форме лежит ListBox1, StatusBar1 и IdFTP1 На событие создание формы все действия и происходят. Вот код
procedure TForm1.FormCreate(Sender: TObject); var FileNameDate:string; i:integer; sl:TStringList; begin sl:=TStringList.Create; try with IdFTP1 do begin Host:='172.10.1.6'; Password:='QsCgYjM90'; Username:='tasker'; Connect; ChangeDir('/tasker/Changes'); StatusBar1.SimpleText:=RetrieveCurrentDir; List(sl,'',true); //IdFTP1.DirectoryListing.Count-1;//количество файлов задачи ListBox1.Items.Assign(sl); {for i:=0 to IdFTP1.DirectoryListing.Count-1 do begin //получаем ИмяФайла=ДатаИзменения и заносим в StringList //n:=DirectoryListing.Items[i].ModifiedDate; FileNameDate:=DirectoryListing.Items[i].FileName+'='+DateTimeToStr(DirectoryListing.Items[i].ModifiedDate);
ListBox1.Items.Add(FileNameDate) end; } end; finally sl.Free; end;
Настройки IdFTP1
object IdFTP1: TIdFTP ReadTimeout = 0 TransferType = ftASCII ProxySettings.ProxyType = fpcmNone ProxySettings.Port = 0 Left = 312 Top = 24 end
Что делать ума не приложу может кто уже столкнулся с этим
-
> [0] rar (27.02.08 18:27)
не советовал бы использовать Indy для работы с FTP, проблем необерешься и все равно потом перепишешь с использованием других технологий.
-
> Eraser (29.02.2008 01:28:01) [1]
А я бы шире посмотрел, не стал бы использовать Инди и для других случаев, кроме самых тривиальных.
-
Что мешает поставить девятку на Д2007?
|