Pascal (Lazarus/Delphi)

Initialize the SFTP Subsystem

Demonstrates the Chilkat SFtp.InitializeSftp method, which opens the SFTP subsystem and negotiates the SFTP protocol version. It takes no arguments and must be called after connecting and authenticating, before any file or directory operation.

Background: SFTP is not a standalone protocol but a subsystem requested over an authenticated SSH session, which is why this separate step exists. It is also where the SFTP protocol version is negotiated — that version determines which capabilities (such as certain timestamp and path-composition features) are available for the session. Skipping this call, or calling it before authentication, leaves every file operation failing.

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;

begin
  success := False;

  //  Demonstrates the SFtp.InitializeSftp method, which opens the SFTP subsystem and negotiates the
  //  SFTP protocol version.  It takes no arguments and must be called after connecting and
  //  authenticating, before any file or directory operations.

  sftp := TSFtp.Create;

  //  Step 1: Connect the SSH transport.  Port 22 is the usual port.
  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;

  //  Step 3: Open the SFTP subsystem.  This must be done after authentication and before any
  //  file or directory operations.
  success := sftp.InitializeSftp();
  if (success = False) then
    begin
      WriteLn(sftp.LastErrorText);
      Exit;
    end;

  WriteLn('The SFTP subsystem is ready.');

  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.