Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как проверить наличие файла на FTP [D7, WinXP]

Michael © (2008-08-19 11:12:00)
Извиняюсь за окровенный оффтоп, но поиск результата не дал.
Ответ по ссылке http://www.delphikingdom.ru/asp/answer.asp?IDAnswer=22877
С использованием FileAge почему-то не работает.
Задачу решил, однако, как мне кажется, не совсем оптимально - перебираю все файлы и сравниваю имя с искомым.
Примерно так:
for iCnt := 0 to IdFTP1.DirectoryListing.Count-1 do if IdFTP1.DirectoryListing.Items[iCnt].FileName = target_file_name then ...
Не подскажете, существует ли более правильное решение, например - аналог SysUtil -кого FileExists?
Спасибо.

Michael (2008-08-19 15:49:00) [1]

> clickmaker ©

Indy 9. В этом случае код принципиально отличаться не будет от приведенного в 1-м посте. Вобщем-то, работает, просто я удивлен, что у Инди нет стандартного метода проверки наличия файла. Хотелось бы писать "правильный" код ))

clickmaker (2008-08-19 15:45:00) [2]
> [9] Michael (19.08.08 15:40)

да? Indy какой версии?
В любом случае можно сказать что-то типа SendCmd и проверить возвращаемое значение (LastCmdResult)

Michael (2008-08-19 15:40:00) [3]

> IdFtp.List('somefile.txt', false);

У этой процедуры первым параметром идет список строк (TStrings)...

clickmaker (2008-08-19 15:32:00) [4]
> [7] Michael (19.08.08 15:26)

можно и так
IdFtp.List('somefile.txt', false);
FileExists := (Length(FIdFtp.ListResult.Text) > 0);

Michael (2008-08-19 15:26:00) [5]

> list filename.ext
> или nlst filename.ext

Имеются ввиду процедуры компонета TIdFTP?

Dennis I. Komarov (2008-08-19 15:19:00) [6]
> "Это печально"(С)

ни чуть...

Michael (2008-08-19 15:13:00) [7]

> Инди живет отдельной жизнью...

"Это печально"(С)

Спасибо за ссылку, буду ртфм-ить.)))

clickmaker (2008-08-19 15:09:00) [8]
list filename.ext
или nlst filename.ext

Dennis I. Komarov (2008-08-19 14:44:00) [9]
Инди живет отдельной жизнью...
http://www.rsdn.ru/article/inet/inetapi.xml

Michael (2008-08-19 14:17:00) [10]
Насколько я понимаю, использование function FtpFindFirstFile(hConnect: HINTERNET; lpszSearchFile: PChar; var lpFindFileData: TWin32FindData; dwFlags: DWORD; dwContext: DWORD): HINTERNET;
невозможно без хэндла соединения. То есть, используя для соединения Indy, воспользоваться данной функцией нельзя?

Dennis I. Komarov (2008-08-19 13:09:00) [11]
WinInet + FtpFindFist + F1

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »