Delphi DLL

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 DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
ssh: HCkSsh;
channelNum: Integer;
saMatch: HCkStringArray;
sbReceived: HCkStringBuilder;
moreComing: Boolean;

begin
success := False;

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

ssh := CkSsh_Create();

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

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

// Start a shell session.
channelNum := CkSsh_QuickShell(ssh);
if (channelNum < 0) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    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 := CkSsh_ChannelReceiveUntilMatch(ssh,channelNum,'>','utf-8',True);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
    Exit;
  end;

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

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

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

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

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

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

// Show what we received...
Memo1.Lines.Add(CkSsh__getReceivedText(ssh,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 := CkSsh_ChannelSendString(ssh,channelNum,'show running-config' + #13,'utf-8');

// Consume the response until we end with another prompt.
saMatch := CkStringArray_Create();
// 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...
CkStringArray_Append(saMatch,'YOUR_PROMPT#');
CkStringArray_Append(saMatch,'--More--');

sbReceived := CkStringBuilder_Create();
moreComing := True;
while (moreComing = True) do
  begin

    success := CkSsh_ChannelReceiveUntilMatchN(ssh,channelNum,saMatch,'utf-8',True);
    if (success <> True) then
      begin
        Memo1.Lines.Add(CkSsh__lastErrorText(ssh));
        Exit;
      end;

    moreComing := False;

    CkStringBuilder_Clear(sbReceived);
    CkStringBuilder_Append(sbReceived,CkSsh__getReceivedText(ssh,channelNum,'utf-8'));

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

    if (CkStringBuilder_Contains(sbReceived,'--More--',True) = True) then
      begin
        moreComing := True;

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

  end;

CkSsh_Disconnect(ssh);

CkSsh_Dispose(ssh);
CkStringArray_Dispose(saMatch);
CkStringBuilder_Dispose(sbReceived);

end;