Delphi使用Clever Components TclFtp时特定FTP报450文件不可用错误

问题说明 #

使用Delphi 11.2搭配Clever Internet Suite 10.2开发FTP传输程序时，连接storage.rcs-rds.ro服务器执行目录列表操作时返回450 File not available错误，但另一台服务器可正常运行。相关代码如下：

clFtpMain: TclFtp;

clFtpMain.Server         := 'storage.rcs-rds.ro';
clFtpMain.Port           := 21;
clFtpMain.Username       := 'username';
clFtpMain.Password       := 'pass';
clFtpMain.PassiveMode    := True;
clFtpMain.Timeout        := 10000;
clFtpMain.UseTLS := ctNone;
clFTPMain.Open;
clFTPMain.ChangeCurrentDir('/folder');
clFTPMain.DirectoryListing('*');   // <-- 报错位置

排查与解决步骤 #

• 验证目录路径正确性
  部分FTP服务器对根目录路径的格式要求特殊，比如不需要开头的/，或者严格区分大小写。尝试调整目录路径：

  // 去掉开头斜杠
  clFTPMain.ChangeCurrentDir('folder');
  // 或匹配目录名大小写（如果服务器区分）
  clFTPMain.ChangeCurrentDir('/Folder');
  

  也可以跳过目录切换，直接在根目录执行DirectoryListing('folder/*')测试能否访问目标目录内容。

• 切换主动/被动模式
  部分服务器对被动模式的支持存在兼容性问题，尝试切换为主动模式：

  clFtpMain.PassiveMode := False;
  

  注意主动模式下需确保本地端口未被防火墙拦截。

• 调整通配符格式
  有些FTP服务器不支持*作为通配符，尝试用空字符串（表示列出当前目录所有内容）或更明确的通配符：

  clFTPMain.DirectoryListing('');
  // 或
  clFTPMain.DirectoryListing('*.*');
  

• 检查权限与目录状态
  确认当前账号对/folder目录拥有读取权限，且目录真实存在。可以用第三方FTP客户端（如FileZilla）手动连接测试，验证目录的可访问性。

• 开启调试日志定位问题
  启用Clever Internet Suite的日志功能，查看完整的FTP交互命令与响应：

  clFtpMain.LogLevel := llDebug;
  clFtpMain.LogFileName := 'ftp_debug.log';
  

  日志会记录所有发送的FTP命令和服务器返回信息，能帮助判断是路径错误、权限问题还是服务器限制导致的报错。

• 尝试原生FTP命令
  若封装的DirectoryListing方法兼容性不佳，可直接发送原生LIST命令：

  clFtpMain.SendCommand('LIST');
  // 后续读取服务器响应内容
  

内容的提问来源于stack exchange，提问作者Popa Ovidiu-Razvan