Pascal (Lazarus/Delphi)

Synchronize an SFTP Directory Tree to Local

Demonstrates the Chilkat SFtp.SyncTreeDownload method, which synchronizes a remote directory tree to a local directory. The arguments are the remote root, the local root, the sync mode, and whether to recurse into subdirectories.

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

Background: The mirror-image of SyncTreeUpload, used to pull a remote tree down — fetching logs, backing up a server directory, or refreshing a local copy of published content. The same mode numbers apply, now judged from the download direction: only-missing, only-newer-on-server, differing-size, and so on. Missing local directories are created as needed, and GetSyncedFiles reports both the files and the directories that resulted.

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;
  mode: Integer;
  recurse: Boolean;

begin
  success := False;

  //  Demonstrates the SFtp.SyncTreeDownload method, which synchronizes a remote directory tree to a
  //  local directory.  The 1st argument is the remote root, the 2nd is the local root, the 3rd is
  //  the sync mode, and the 4th selects recursion into subdirectories.

  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;

  //  Sync mode 5 downloads files that are missing locally or differ in size, plus files that are
  //  newer on the server.  Other modes:
  //    0 = all files
  //    1 = files not existing locally
  //    2 = files newer remotely or missing locally
  //    3 = only files newer remotely (do not download missing)
  //    4 = files missing locally or differing in size
  //    5 = mode 4 plus files newer remotely
  mode := 5;
  recurse := True;
  success := sftp.SyncTreeDownload('/var/www/html','qa_output/website',mode,recurse);
  if (success = False) then
    begin
      WriteLn(sftp.LastErrorText);
      Exit;
    end;
  WriteLn('Directory tree downloaded.');

  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.