IdFTP

← →
rar (2008-02-27 18:27) [0]

Не могу получить список файлов с 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

Что делать ума не приложу может кто уже столкнулся с этим

← →
Eraser © (2008-02-29 01:28) [1]

> [0] rar (27.02.08 18:27)

не советовал бы использовать Indy для работы с FTP, проблем необерешься и все равно потом перепишешь с использованием других технологий.

← →
Anatoly Podgoretsky © (2008-02-29 11:05) [2]

> Eraser (29.02.2008 01:28:01) [1]

А я бы шире посмотрел, не стал бы использовать Инди и для других случаев, кроме самых тривиальных.

← →
SpellCaster (2008-02-29 11:37) [3]

Что мешает поставить девятку на Д2007?

IdFTP Найти похожие ветки