Delphi ActiveX

SSH to Cisco Switch - Processing "More" Responses

See more SSH Examples

Demonstrates connecting to a Cisco switch, running a command to enable privileged mode, then running a command to get a paged response requiring the SPACE char to be sent to process "--More--". Delphi ActiveX

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
success: Integer;
ssh: TChilkatSsh;
channelNum: Integer;
saMatch: TCkStringArray;
sbReceived: TChilkatStringBuilder;
moreComing: Integer;

begin
success := 0;

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

ssh := TChilkatSsh.Create(Self);

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

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

// Start a shell session.
channelNum := ssh.QuickShell();
if (channelNum < 0) then
  begin
    Memo1.Lines.Add(ssh.LastErrorText);
    Exit;
  end;

// If the CISCO switch returns a prompt with ">", then read until we get the prompt.
// (It's not actually required that we do this, but it helps to know that all is OK at this point..)
success := ssh.ChannelReceiveUntilMatch(channelNum,'>','utf-8',1);
if (success <> 1) then
  begin
    Memo1.Lines.Add(ssh.LastErrorText);
    Exit;
  end;

// Show what we received so far:
Memo1.Lines.Add(ssh.GetReceivedText(channelNum,'utf-8'));

// Send the "ena" command to enable privileged mode.
// (For the Cisco switch, terminate command with a single CR char.)
success := ssh.ChannelSendString(channelNum,'ena' + #13,'utf-8');
// Assume success for this example to make it shorter..

// Read to the "Password:" prompt.
success := ssh.ChannelReceiveUntilMatch(channelNum,'Password:','utf-8',1);
if (success <> 1) then
  begin
    Memo1.Lines.Add(ssh.LastErrorText);
    Exit;
  end;

// Show what we received...
Memo1.Lines.Add(ssh.GetReceivedText(channelNum,'utf-8'));

// Send the password.
success := ssh.ChannelSendString(channelNum,'MY_PASSWORD_FOR_ELEVATED_PRIVILEGE' + #13,'utf-8');

// The prompt now changes from "Something>" to "Something#>
// Read until the new prompt..
success := ssh.ChannelReceiveUntilMatch(channelNum,'#','utf-8',1);
if (success <> 1) then
  begin
    Memo1.Lines.Add(ssh.LastErrorText);
    Exit;
  end;

// Show what we received...
Memo1.Lines.Add(ssh.GetReceivedText(channelNum,'utf-8'));

// Send the "show running-config" command.
// The response will be in multiple pages, each ending with "--More--" and requiring a SPACE bar to be sent
// to get the next page.
success := ssh.ChannelSendString(channelNum,'show running-config' + #13,'utf-8');

// Consume the response until we end with another prompt.
saMatch := TCkStringArray.Create(Self);
// Change "YOUR_PROMPT" to your actual prompt.  We don't want to check for only "#" because
// it's not specific enough.  The data in the response could contain the "#" char...
saMatch.Append('YOUR_PROMPT#');
saMatch.Append('--More--');

sbReceived := TChilkatStringBuilder.Create(Self);
moreComing := 1;
while (moreComing = 1) do
  begin

    success := ssh.ChannelReceiveUntilMatchN(channelNum,saMatch.ControlInterface,'utf-8',1);
    if (success <> 1) then
      begin
        Memo1.Lines.Add(ssh.LastErrorText);
        Exit;
      end;

    moreComing := 0;

    sbReceived.Clear();
    sbReceived.Append(ssh.GetReceivedText(channelNum,'utf-8'));

    Memo1.Lines.Add(sbReceived.GetAsString());

    if (sbReceived.Contains('--More--',1) = 1) then
      begin
        moreComing := 1;

        // Send a SPACE char just as if we were interactively pressing the SPACE key to get more output.
        success := ssh.ChannelSendString(channelNum,' ','utf-8');
      end;

  end;

ssh.Disconnect();
end;