Pascal (Lazarus/Delphi)

SSH Exec (Execute Command Line)

See more SSH Examples

Shows how to execute a command on an SSH server and retrieve the command output. 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.Ssh;

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

procedure RunDemo;
var
  success: Boolean;
  ssh: TSsh;
  hostname: string;
  port: Integer;
  channelNum: Integer;
  cmd1: string;
  cmd2: string;
  cmd3: string;
  cmd4: string;
  cmd5: string;
  cmd6: string;
  cmdOutput: string;

begin
  success := False;

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

  ssh := TSsh.Create;

  //  Connect to an SSH server:

  //  Hostname may be an IP address or hostname:
  hostname := '192.168.1.108';
  port := 22;

  success := ssh.Connect(hostname,port);
  if (success <> True) then
    begin
      WriteLn(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 <> True) then
    begin
      WriteLn(ssh.LastErrorText);
      Exit;
    end;

  //  Open a session channel.  (It is possible to have multiple
  //  session channels open simultaneously.)

  channelNum := ssh.OpenSessionChannel();
  if (channelNum < 0) then
    begin
      WriteLn(ssh.LastErrorText);
      Exit;
    end;

  //  The SendReqExec method starts a command on the remote
  //  server.   The syntax of the command string depends on the
  //  default shell used on the remote server to run the command.
  //  On Windows systems it is CMD.EXE.  On UNIX/Linux
  //  systems the user's default shell is typically defined in /etc/password.

  //  Here are some examples of command lines for <b>Windows SSH servers</b>:

  //  Get a directory listing:
  cmd1 := 'dir';

  //  Do a nameserver lookup:
  cmd2 := 'nslookup chilkatsoft.com';

  //  List a specific directory.  Given that the shell is CMD.EXE, backslashes must
  //  be used:
  cmd3 := 'dir \\temp';

  //  Execute a sequence of commands.  The syntax for CMD.EXE may be found
  //  here: http://technet.microsoft.com/en-us/library/bb490880.aspx.  Notice how the commands
  //  are separated by "&&" and the entire command must be enclosed in quotes:
  cmd4 := '"cd \\temp&&dir"';

  //  Here are two examples of command lines for <b>Linux/UNIX SSH servers</b>:

  //  Get a directory listing:
  cmd5 := 'ls -l /tmp';

  //  Run a series of commands (syntax may depend on your default shell):
  cmd6 := 'cd /etc; ls -la';

  //  Request a directory listing on the remote server:
  //  If your server is Windows, change the string from "ls" to "dir";
  success := ssh.SendReqExec(channelNum,'ls');
  if (success <> True) then
    begin
      WriteLn(ssh.LastErrorText);
      Exit;
    end;

  //  Call ChannelReceiveToClose to read 
  //  output until the server's corresponding "channel close" is received.
  success := ssh.ChannelReceiveToClose(channelNum);
  if (success <> True) then
    begin
      WriteLn(ssh.LastErrorText);
      Exit;
    end;

  //  Let's pickup the accumulated output of the command:
  cmdOutput := ssh.GetReceivedText(channelNum,'ansi');
  if (ssh.LastMethodSuccess <> True) then
    begin
      WriteLn(ssh.LastErrorText);
      Exit;
    end;

  //  Display the remote shell's command output:
  WriteLn(cmdOutput);

  //  Disconnect
  ssh.Disconnect();


  ssh.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.