Pascal (Lazarus/Delphi)

Copy Local File Attributes to a Remote SFTP File

Demonstrates the Chilkat SFtp.CopyFileAttr method, which copies supported timestamps and attributes from a local file to a remote item. The arguments are the local file, the remote file (a path or an open handle), and isHandle indicating which form the second argument takes.

Note: This example uses a relative local path, which is resolved against the application's current working directory. Absolute local paths may also be used. Supply the path appropriate to your own environment.

Background: An upload transfers a file's bytes but not necessarily its metadata, so the remote copy may end up with the upload time as its modified time. CopyFileAttr propagates the local file's timestamps and attributes to the remote file, which matters for backups and mirrors where preserving modification times is important — and for incremental sync logic that compares timestamps to decide what changed. The isHandle flag lets you target either a remote path or a file you already have open.

Chilkat Pascal (Lazarus/Delphi) Downloads

Download Chilkat for Pascal (Lazarus/Delphi)

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.SFtp;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  sftp: TSFtp;
  port: Integer;
  password: string;
  isHandle: Boolean;

begin
  success := False;

  //  Demonstrates the SFtp.CopyFileAttr method, which copies supported timestamps and attributes
  //  from a local file to a remote item.  The 1st argument is the local file, the 2nd is the
  //  remote file (a path or an open handle), and the 3rd (isHandle) indicates which.

  sftp := TSFtp.Create;

  //  Connect, authenticate, and initialize the SFTP subsystem.
  port := 22;
  success := sftp.Connect('sftp.example.com',port);
  if (success = False) then
    begin
      WriteLn(sftp.LastErrorText);
      Exit;
    end;

  //  Normally you would not hard-code the password in source.  You should instead obtain it
  //  from an interactive prompt, environment variable, or a secrets vault.
  password := 'mySshPassword';

  success := sftp.AuthenticatePw('mySshLogin',password);
  if (success = False) then
    begin
      WriteLn(sftp.LastErrorText);
      Exit;
    end;

  success := sftp.InitializeSftp();
  if (success = False) then
    begin
      WriteLn(sftp.LastErrorText);
      Exit;
    end;

  //  Upload a file first.
  success := sftp.UploadFileByName('subdir/report.pdf','qa_data/report.pdf');
  if (success = False) then
    begin
      WriteLn(sftp.LastErrorText);
      Exit;
    end;

  //  Copy the local file's timestamps and attributes onto the remote file.  Because the 2nd
  //  argument is a remote path (not an open handle), isHandle is False.
  isHandle := False;
  success := sftp.CopyFileAttr('qa_data/report.pdf','subdir/report.pdf',isHandle);
  if (success = False) then
    begin
      WriteLn(sftp.LastErrorText);
      Exit;
    end;
  WriteLn('Attributes copied.');

  sftp.Disconnect();


  sftp.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.