(Delphi DLL) Check SSH Connection (IsConnected)

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

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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
ssh: HCkSsh;
success: Boolean;
connected: Boolean;

begin
ssh := CkSsh_Create();

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

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

// Disconnect.
CkSsh_Disconnect(ssh);

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

CkSsh_Dispose(ssh);

end;