TIdFTP.GET，引用远程文件夹中文件的正确方法是什么？

Question

我正在尝试使用 TIdFTP.Get（版本 10）从我拥有帐户的远程服务器下载文件 (ssleay32.dll)。

该文件确实存在于服务器上的文件夹中，我可以使用 TIdFTP 连接 OK。但是，无论我如何引用文件TIdFTP.Get 的路径，都会出现错误，无法打开：没有这样的文件或目录。

如果我尝试先将目录更改为文件所在的目录，然后只使用文件名，我在尝试更改目录时会遇到同样的错误。

引用文件以便正确下载的正确方法是什么？

关于信息，当我使用 Filezilla 和 TIdFTP 使用的相同凭据登录服务器时，Filezilla 似乎将路径显示为 /MAMbase。我尝试过使用 /MAMbase、../MAMbase、./MAMbase、/MAMbase/ 和其他变体，但均未成功。

我正在使用的代码，在设置主机、帖子、用户名和密码的连接参数后如下。使用连接中的路径并仅使用文件名获取或使用完整路径获取与我使用的任何路径格式相同的错误。

if (not fileexists(pathToCommonFiles + 'libeay32.dll'))  or (not fileexists(pathToCommonFiles + 'ssleay32.dll')) then
     begin
     try
       try
       IdFTP1.Connect ;
  //   IdFTP1.ChangeDir('MAMbase/');
  //   IdFTP1.Get('ssleay32.dll', pathToCommonFiles + 'libeay32.dll',true); 
       IdFTP1.Get('./MAMbase/ssleay32.dll',pathToCommonFiles + 'ssleay32.dll',true); 
       except on E: Exception do
            showmessage ( 'Could not make ftp connection for SSL files'  +slinebreak +
                          'Exception class name = '+E.ClassName+ slinebreak
                       +  'Exception message = '+E.Message);
       end;
     finally
        IdFTP1.quit ;
     end;

     end;

我看过here 和here 的类似问题，但没有进一步的进展。

（顺便说一句 pathToCommonFiles 包含一个斜杠并且它存在）

Answer 1

首先，你应该提前准备好本地文件名：

LocalLibeayFile := IncludeTrailingPathDelimiter(pathToCommonFiles) + 'libeay32.dll';
LocalSsleayFile := IncludeTrailingPathDelimiter(pathToCommonFiles) + 'ssleay32.dll';

或者：

LocalLibeayFile := TPath.Combine(pathToCommonFiles, 'libeay32.dll');
LocalSsleayFile := TPath.Combine(pathToCommonFiles, 'ssleay32.dll');

那么，这些都应该可以工作：

if (not FileExists(LocalLibeayFile)) or (not FileExists(LocalSsleayFile)) then
begin
  ...
  IdFTP1.ChangeDir('/MAMbase');
  IdFTP1.Get('libeay32.dll', LocalLibeayFile, True);
  IdFTP1.Get('ssleay32.dll', LocalSsleayFile, True);
  ...
end;

if (not FileExists(LocalLibeayFile)) or (not FileExists(LocalSsleayFile)) then
begin
  ...
  IdFTP1.Get('/MAMbase/libeay32.dll', LocalLibeayFile, True);
  IdFTP1.Get('/MAMbase/ssleay32.dll', LocalSsleayFile, True);
  ...
end;

假设服务器最初将您放入/ 文件夹，您可以省略前导/：

IdFTP1.ChangeDir('MAMbase');
IdFTP1.Get('libeay32.dll', LocalLibeayFile, True);
IdFTP1.Get('ssleay32.dll', LocalSsleayFile, True);

IdFTP1.Get('MAMbase/libeay32.dll', LocalLibeayFile, True);
IdFTP1.Get('MAMbase/ssleay32.dll', LocalSsleayFile, True);

如果您仍然收到错误，那么您需要确定它的实际来源 - FTP 服务器或本地计算机。正在引发的Exception 的实际类类型是什么？如果是EIdReplyRFCError，则错误来自 FTP 服务器。否则，错误来自本地机器。