Delphi ActiveX

Get Text Received on the SSH stderr Buffer

Demonstrates the Chilkat Ssh.GetReceivedStderrText method, which decodes and returns the text accumulated in a channel's separate stderr buffer. The first argument is the channel number and the second is the charset. The stderr buffer is cleared after the text is returned.

Background: This is only meaningful when StderrToStdout is false, which keeps error output in its own buffer instead of merging it into the normal receive buffer. Separating the two lets a program parse a command's real output cleanly while still capturing diagnostics — important because many Unix tools write warnings to stderr that would otherwise corrupt the parsed result. With merging enabled, this buffer stays empty and the text appears via GetReceivedText instead.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
ssh: TChilkatSsh;
sshPort: Integer;
password: WideString;
channelNum: Integer;
stdoutText: WideString;
stderrText: WideString;

begin
success := 0;

//  Demonstrates the Ssh.GetReceivedStderrText method, which decodes and returns the text in a
//  channel's separate stderr buffer.  The 1st argument is the channel number and the 2nd is the
//  charset.  The stderr buffer is cleared after the text is returned.

ssh := TChilkatSsh.Create(Self);

sshPort := 22;
success := ssh.Connect('ssh.example.com',sshPort);
if (success = 0) then
  begin
    Memo1.Lines.Add(ssh.LastErrorText);
    Exit;
  end;

//  Normally you would not hard-code the password in source.  You should instead obtain it
//  from an interactive prompt, environment variable, or a secrets vault.
password := 'mySshPassword';

success := ssh.AuthenticatePw('mySshLogin',password);
if (success = 0) then
  begin
    Memo1.Lines.Add(ssh.LastErrorText);
    Exit;
  end;

//  Keep stderr in its own buffer rather than merging it into the normal receive buffer.
ssh.StderrToStdout := 0;

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

//  Run a command that writes to both stdout and stderr.
success := ssh.SendReqExec(channelNum,'ls /etc/hosts /no/such/path');
if (success = 0) then
  begin
    Memo1.Lines.Add(ssh.LastErrorText);
    Exit;
  end;

//  IMPORTANT: Set a read timeout.  ReadTimeoutMs defaults to 0, which means no limit -- without
//  it, this call waits forever if the server never sends channel close.
ssh.ReadTimeoutMs := 15000;

success := ssh.ChannelReceiveToClose(channelNum);
if (success = 0) then
  begin
    Memo1.Lines.Add(ssh.LastErrorText);
    Exit;
  end;

stdoutText := ssh.GetReceivedText(channelNum,'utf-8');
if (ssh.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(ssh.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('STDOUT: ' + stdoutText);

stderrText := ssh.GetReceivedStderrText(channelNum,'utf-8');
if (ssh.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(ssh.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('STDERR: ' + stderrText);

ssh.Disconnect();