| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

функция проверки на наличие файла на ftp [D7, XP]

mikola ©   (2007-12-25 14:16:00) 

сделал функцию проверки на наличие файла на ftp

function TMainForm.FTPFileExists(const RemoteFile: String): Boolean;
var   LS: TStringList;
begin
try
IdFTP1.List(ls, '-la '+RemoteFile);
Result:=IdFTP1.DirectoryListing.Count > 0;
end;

но если файла нет то вылетет ошибка(пробовал и try) - как устранить проблемму?

---

mikola   (2007-12-25 14:57:00) [1]

все равно вылетает
вот на этом - IdFTP1.List(nil, '-la '+RemoteFile,false);

---

Palladin   (2007-12-25 14:49:00) [2]

найди юнит которы содержит объявление этого исключения и подключи его

---

mikola   (2007-12-25 14:47:00) [3]

неизвестный индикатор EIdProtocolReplyError//это правильное название

---

Palladin   (2007-12-25 14:37:00) [4]

ну ептыть

function TMainForm.FTPFileExists(const RemoteFile: String): Boolean;
begin
Try
 IdFTP1.List(nil, '-la '+RemoteFile,false);
 Result:=True;
Except
 On EIProtocolReplyError Do Result:=False;
 Else Raise;
End;
end;

---

mikola   (2007-12-25 14:33:00) [5]

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

function TMainForm.FTPFileExists(const RemoteFile: String): Boolean;
begin
IdFTP1.List(nil, '-la '+RemoteFile,false);
Result:=IdFTP1.DirectoryListing.Count > 0;
end;

ошибка Project ftp.exe raised exception class EIProtocolReplyError with message '1232.jpg No such file or directory
'. Process stoped. Use Step or Run to continue.
пробовал и
IdFTP1.List(nil, RemoteFile,false);
таже беда ... :(

---

Сергей М.   (2007-12-25 14:25:00) [6]

> как устранить проблемму?


Для начала неплохо было бы создать объект TStringList.

---

mikola   (2007-12-25 14:18:00) [7]

*в коде забыл убрать try
проблема актуальна

---

Наверх