Close an SSH Tunnel

See more Socket/SSL/TLS Examples

Demonstrates Socket.SshCloseTunnel, which closes the SSH tunnel opened by SshOpenTunnel and terminates its forwarded channels.

var
success: Integer;
socket: TChilkatSocket;
sshPassword: WideString;

begin
success := 0;

socket := TChilkatSocket.Create(Self);

//  Connect to the SSH server and initialize an SSH tunneling session.  Port 22 is conventional but
//  not required.
success := socket.SshOpenTunnel('ssh.example.com',22);
if (success = 0) then
  begin
    Memo1.Lines.Add(socket.LastErrorText);
    Exit;
  end;

//  Authenticate the SSH session before opening forwarded channels.
//  The SSH password should come from a secure source rather than being hard-coded.
sshPassword := 'mySshPassword';
success := socket.SshAuthenticatePw('sshUser',sshPassword);
if (success = 0) then
  begin
    Memo1.Lines.Add(socket.LastErrorText);
    Exit;
  end;

//  Close the SSH tunnel and terminate its forwarded channels.  This does not affect unrelated SSH
//  objects or connections.
success := socket.SshCloseTunnel();
if (success = 0) then
  begin
    Memo1.Lines.Add(socket.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('SSH tunnel closed.');