使用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服务器将其实现为自定义命令，而其他FTP服务器根本不实现它。因此，您必须使用TIdFTP.Site()方法在您知道支持的FTP服务器上发送它，例如：

IdFTP.Site('CHMOD 640 filename');