![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
IdFTP
rar © (2008-02-27 18:27:00)Не могу получить список файлов с 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
Что делать ума не приложу может кто уже столкнулся с этим
SpellCaster (2008-02-29 11:37:00) [1]Что мешает поставить девятку на Д2007?
Anatoly Podgoretsky (2008-02-29 11:05:00) [2]> Eraser (29.02.2008 01:28:01) [1]
А я бы шире посмотрел, не стал бы использовать Инди и для других случаев, кроме самых тривиальных.
Eraser (2008-02-29 01:28:00) [3]> [0] rar (27.02.08 18:27)
не советовал бы использовать Indy для работы с FTP, проблем необерешься и все равно потом перепишешь с использованием других технологий.