Скачать: CL | DM;

функция проверки на наличие файла на ftp   Найти похожие ветки 

← →
mikola   (2007-12-25 14:16) [0]

сделал функцию проверки на наличие файла на 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:18) [1]

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

---

← →
Сергей М. ©   (2007-12-25 14:25) [2]

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


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

---

← →
mikola   (2007-12-25 14:33) [3]

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

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);
таже беда ... :(

---

← →
Palladin ©   (2007-12-25 14:37) [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:47) [5]

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

---

← →
Palladin ©   (2007-12-25 14:49) [6]

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

---

← →
mikola   (2007-12-25 14:57) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c