chmod (Setting File Permissions)

This example assumes your FTP server supports the "chmod" command, which typically means it must be a server running on a Linux or Unix system. The SendCommand method may be called to send arbitrary commands to the FTP server. This example sends a "chmod" command to set the file permissions.

Download 32-bit Chilkat FTP2 ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATFTP2Lib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
ftp: TChilkatFtp2;
success: Integer;
response: String;

begin
ftp := TChilkatFtp2.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := ftp.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);
    Exit;
  end;

ftp.Hostname := 'ftp.cknotes.com';
ftp.Username := 'myLogin';
ftp.Password := 'myPassword';

//  Connect and login to the FTP server.
success := ftp.Connect();
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);
    Exit;
  end;
//  Send a chmod command to the FTP server to set
//  the permissions of a file to 0644:

response := ftp.SendCommand('chmod 0644 hamlet.xml');

if (response = NULL ) then
  begin
    //  Failed.
    Memo1.Lines.Add(ftp.LastErrorText);
  end
else
  begin
    //  You should write code to examine the response to
    //  the SendCommand.  As an example, the FTP server
    //  used for testing responds with this for success:
    //  200 Permissions changed on hamlet.xml
    ShowMessage(response);
  end;

ftp.Disconnect();
end;