FTP (Delphi)

[Andrey]

Тема перенесена из архива.

[Maximus]

Необходимо получить время и дату последнего изменения, объём файла, а потом закачать его с FTP. Как это сделать?

[Andrey]

Сейчас проверю, но дату и время последнего изменения вроде бы возвращает команда List, нужно только распарсить результат.
А скачивать так:

Код: Выделить всё

idFTP.Get('test.rar', 'c:/temp/test.rar', True);

Первый параметр - имя файла, второй - путь для сохранения.

[Maximus]

Если во втором параметре не указывать путь, а только имя файла, то он будет сохранён в тот же каталог где и исполняемый файл? Что означает третий параметр?

[Andrey]

Если не указывать путь то файл будет сохранён в текущий каталог. Тртий параметр - поддержка докачки при обрыве связи.

[Maximus]

А вес файла как получить?

[Andrey]

Уже писал
[delphi]FTP.List;
for i:=0 to FTP.DirectoryListing.Count-1 do
ListBox1.Items.Add(IdFTP.DirectoryListing.Items[i].FileName + ' ' + IntToStr(IdFTP.DirectoryListing.Items[i].Size));[/delphi]
Последняя часть третьей строки.
Ну или вручную парсить результат команды List.

[Maximus]

Это мы получим размеры всех файлов хранящихся в директории FTP, а размер одного конкретного файла нельзя узнать?
Или придётся в цикле проверять имена, пока не найду нужное?

[Andrey]

Код: Выделить всё

IdFTP1.Size('имя_файла');

Не все серверы поддерживают эту команду

[Maximus]

Действительно не поддерживает. А как лучше сделать, мне нужно постоянно сверять размер файла т.е. делаю это в таймере, мне каждый раз создавать соединение и отключаться или один раз при запуске программы соединиться?

[Andrey]

Как часто таймер срабатывает?

[Maximus]

Думаю где-то через каждые 10-30 секунд.

[Andrey]

Тогда лучше не отключаться, т.к. подключение происходит не мгновенно.

[Maximus]

А если вдруг соединение разорвётся? Вот такая проверка поможет?

Код: Выделить всё

If not IdFTP.Connected then IdFTP.Connect;

[Andrey]

Да, поможет