使用 TIdFTP Delphi 更改 FTP 中的文件权限

Question

如何在 Delphi 中使用 TidFTP 更改文件的权限？

with IdFTP1 do
begin
  try
    Connect;

    ChangeDir(FTPDiretorio);
    Put(FArquivo, NomeOnline);
    chmod('        ');//640 HOW??????????????
    Disconnect;
  finally
    FreeAndNil(IdFTP1);
  end;
end;

Answer 1

CHMOD不是标准的 FTP 命令。一些 FTP 服务器将其实现为自定义命令，而另一些则根本不实现它。因此，您必须使用该TIdFTP.Site()方法发送它，在您知道支持它的 FTP 服务器上，例如：

IdFTP.Site('CHMOD 640 filename');