функция проверки на наличие файла на 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//это правильное название

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

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

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

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