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

Change file permission in FTP using TIdFTP Delphi

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

with IdFTP1 do
begin
  try
    Connect;

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

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

IdFTP.Site('CHMOD 640 filename');