(Delphi ActiveX) SCP Upload File

Demonstrates how to upload a file using the SCP protocol (Secure Copy Protocol over SSH).

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
ssh: TChilkatSsh;
hostname: WideString;
port: Integer;
success: Integer;
scp: TChilkatScp;
remotePath: WideString;
localPath: WideString;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

ssh := TChilkatSsh.Create(Self);

// Connect to an SSH server:

// Hostname may be an IP address or hostname:
hostname := 'www.some-ssh-server.com';
port := 22;

success := ssh.Connect(hostname,port);
if (success <> 1) then
  begin
    Memo1.Lines.Add(ssh.LastErrorText);
    Exit;
  end;

// Wait a max of 5 seconds when reading responses..
ssh.IdleTimeoutMs := 5000;

// Authenticate using login/password:
success := ssh.AuthenticatePw('myLogin','myPassword');
if (success <> 1) then
  begin
    Memo1.Lines.Add(ssh.LastErrorText);
    Exit;
  end;

// Once the SSH object is connected and authenticated, we use it
// as the underlying transport in our SCP object.
scp := TChilkatScp.Create(Self);

success := scp.UseSsh(ssh.ControlInterface);
if (success <> 1) then
  begin
    Memo1.Lines.Add(scp.LastErrorText);
    Exit;
  end;

remotePath := 'test.txt';
localPath := '/home/bob/test.txt';
success := scp.UploadFile(localPath,remotePath);
if (success <> 1) then
  begin
    Memo1.Lines.Add(scp.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('SCP upload file success.');

// Disconnect
ssh.Disconnect();
end;