(Delphi ActiveX) Check SSH Connection (IsConnected)

Demonstrates how to check to see if the connection to the SSH server exists.

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

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
ssh: TChilkatSsh;
success: Integer;
connected: Integer;

begin
ssh := TChilkatSsh.Create(Self);

// Connect to an SSH server:
success := ssh.Connect('192.168.1.209',22);
if (success <> 1) then
  begin
    Memo1.Lines.Add(ssh.LastErrorText);
    Exit;
  end;

// Is the last known state "connected"?
connected := ssh.IsConnected;
if (connected = 1) then
  begin
    // Verify for sure by sending an ignore message.
    connected := ssh.SendIgnore();
  end;
Memo1.Lines.Add('connected = ' + IntToStr(Ord(connected)));

// Disconnect.
ssh.Disconnect();

// Am I still connected?
connected := ssh.IsConnected;
Memo1.Lines.Add('connected = ' + IntToStr(Ord(connected)));
end;