Delphi ActiveX

Check SSH Connection (IsConnected)

Demonstrates how to check to see if the connection to the SSH server exists. 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;
connected: Integer;

begin
success := 0;

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;