(Delphi DLL) SSH Parallel Remote Commands on Multiple Servers

See more SSH Examples

Shows how to execute a command in parallel on multiple servers.

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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
ssh1: HCkSsh;
ssh2: HCkSsh;
ssh3: HCkSsh;
port: Integer;
success: Boolean;
cmd: PWideChar;
ssh1Channel: Integer;
ssh2Channel: Integer;
ssh3Channel: Integer;
pollTimeoutMs: Integer;
numFinished: Integer;
channel: Integer;
ssh1Finished: Boolean;
ssh2Finished: Boolean;
ssh3Finished: Boolean;

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

// Executing a command on multiple servers simultaneously is straightforward.
// It's just a matter of using one SSH object per server..
ssh1 := CkSsh_Create();
ssh2 := CkSsh_Create();
ssh3 := CkSsh_Create();

port := 22;
success := CkSsh_Connect(ssh1,'ssh-server1.com',port);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh1));
    Exit;
  end;

// Authenticate using login/password:
success := CkSsh_AuthenticatePw(ssh1,'sshLogin1','sshPassword1');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh1));
    Exit;
  end;

// Connect and authenticate with 2 more servers.
// For brevity, the success/failure won't be checked...
success := CkSsh_Connect(ssh2,'ssh-server2.com',port);
success := CkSsh_AuthenticatePw(ssh2,'sshLogin2','sshPassword2');
success := CkSsh_Connect(ssh3,'ssh-server3.com',port);
success := CkSsh_AuthenticatePw(ssh3,'sshLogin3','sshPassword3');

// Note: If we wanted, we could've used ConnectAsync and AuthenticatePwAsync
// to do the connecting and authenticating in parallel...

// The command to be run on each SSH server will sleep for 5 seconds,
// and then show the current system date/time.
cmd := 'sleep 5; date';

// Start each command
ssh1Channel := CkSsh_QuickCmdSend(ssh1,cmd);
if (ssh1Channel < 0) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh1));
    Exit;
  end;
// For brevity, we're not checking the return values here:
ssh2Channel := CkSsh_QuickCmdSend(ssh2,cmd);
ssh3Channel := CkSsh_QuickCmdSend(ssh3,cmd);

// OK, at this point the command is running simultaneously on each server.

// Now collect the results of each command.
pollTimeoutMs := 50;
numFinished := 0;

// Note: You would rewrite this code to use arrays.
ssh1Finished := False;
ssh2Finished := False;
ssh3Finished := False;
while numFinished < 3 do
  begin
    // Check to see if anything has finished.
    // QuickCmdCheck returns -1 if there are no errors and nothing else finished
    // QuickCmdCheck returns -2 if there was an error (such as a lost connection)
    // QuickCmdCheck returns a channel number if a channel finished.
    if (ssh1Finished <> True) then
      begin
        channel := CkSsh_QuickCmdCheck(ssh1,pollTimeoutMs);
        if (channel = -2) then
          begin
            Memo1.Lines.Add(CkSsh__lastErrorText(ssh1));
            Exit;
          end;
        if (channel = ssh1Channel) then
          begin
            Memo1.Lines.Add('---- ssh1 channel ' + IntToStr(channel) + ' finished ----');
            Memo1.Lines.Add(CkSsh__getReceivedText(ssh1,channel,'ansi'));
            numFinished := numFinished + 1;
            ssh1Finished := True;
          end;
      end;
    if (ssh2Finished <> True) then
      begin
        channel := CkSsh_QuickCmdCheck(ssh2,pollTimeoutMs);
        if (channel = -2) then
          begin
            Memo1.Lines.Add(CkSsh__lastErrorText(ssh2));
            Exit;
          end;
        if (channel = ssh2Channel) then
          begin
            Memo1.Lines.Add('---- ssh2 channel ' + IntToStr(channel) + ' finished ----');
            Memo1.Lines.Add(CkSsh__getReceivedText(ssh2,channel,'ansi'));
            numFinished := numFinished + 1;
            ssh2Finished := True;
          end;
      end;
    if (ssh3Finished <> True) then
      begin
        channel := CkSsh_QuickCmdCheck(ssh3,pollTimeoutMs);
        if (channel = -2) then
          begin
            Memo1.Lines.Add(CkSsh__lastErrorText(ssh3));
            Exit;
          end;
        if (channel = ssh3Channel) then
          begin
            Memo1.Lines.Add('---- ssh3 channel ' + IntToStr(channel) + ' finished ----');
            Memo1.Lines.Add(CkSsh__getReceivedText(ssh3,channel,'ansi'));
            numFinished := numFinished + 1;
            ssh3Finished := True;
          end;
      end;

  end;

// --------------
// Sample output:

// 	---- ssh2 channel 101 finished ----
// 	Fri Dec 23 00:25:48 UTC 2016
// 
// 	---- ssh3 channel 102 finished ----
// 	Thu Dec 22 18:25:12 CST 2016
// 
// 	---- ssh1 channel 100 finished ----
// 	Thu Dec 22 18:25:48 CST 2016

CkSsh_Dispose(ssh1);
CkSsh_Dispose(ssh2);
CkSsh_Dispose(ssh3);

end;