恳请各位专家指教！！！(100分)

如何利用函数判断ftp服务器上是否存在某一指定文件
类似 fileexists函数

使用TIdFTP
function TfrmMain.FTPFileExists(str: string);
var
sizeofFTPfile: integer;
begin
sizeofFTPfile := idFTP.Size(str);
if sizeofFTPfile > 0 then
begin
Result := True;
//ShowMessage('FTP的文件存在。');
Exit;
end;
Result := False;
end;

顶一下，学习！

自己解决

function tform1.fexists(d,s:string):boolean;
var n:integer;
begin
try
NMFTP1.ChangeDir(d);
nmftp1.ParseList:=true;
NMftp1.list;
except
exit;
end;
for n:=0 to nmftp1.FTPDirectoryList.name.Count -1 do
nmftp1.FTPDirectoryList.name[n]:= uppercase(nmftp1.FTPDirectoryList.name[n]);
n:=nmftp1.FTPDirectoryList.name.IndexOf(s);
if n>-1 then result:=true
else result:=false;

end ;