Unit RemoteShell

Return to Unit Reference

Description

---

Ultibo Remote Shell unit

To be documented

Constants

---

Remote shell specific constants REMOTE_SHELL_*

REMOTE_SHELL_DEFAULT_WELCOME = ' (Type HELP for a list of available commands)';

Telnet shell constants TELNET_SHELL_*

TELNET_SHELL_NAME = 'Telnet Shell';

Telnet shell command constants TELNET_SHELL_COMMAND_*

TELNET_SHELL_COMMAND_LOGOUT = 'LOGOUT';

Telnet shell alias constants TELNET_SHELL_ALIAS_*

TELNET_SHELL_ALIAS_EXIT = 'EXIT';

SSH shell constants SSH_SHELL_*

SSH_SHELL_NAME = 'SSH Shell';

SSH shell command constants SSH_SHELL_COMMAND_*

SSH_SHELL_COMMAND_LOGOUT = 'LOGOUT';

SSH shell alias constants SSH_SHELL_ALIAS_*

SSH_SHELL_ALIAS_EXIT = 'EXIT';

Type definitions

---

None defined

Class definitions

---

Telnet shell

TTelnetShell = class(TShell)

public
constructor Create;
destructor Destroy; override;
private
FListener:TTelnetListener;
protected
procedure TelnetConnected(AConnection:TTelnetConnection);
procedure TelnetDisconnected(AConnection:TTelnetConnection);
function TelnetInit(AConnection:TTelnetConnection):Boolean;
function TelnetChar(AConnection:TTelnetConnection; AChar:Char):Boolean;
function TelnetCommand(AConnection:TTelnetConnection; ACommand,AOption:Byte; AData:Pointer; ASize:LongWord):Boolean;
public
property Listener:TTelnetListener read FListener;
function DoClear(ASession:TShellSession):Boolean; override;
function DoInput(ASession:TShellSession; var AInput:String):Boolean; override;
function DoOutputEx(ASession:TShellSession; const AOutput:String; AReturn:Boolean):Boolean; override;
function MatchSequence(const ASequence:String; var AContinue:Boolean):Boolean;
function ProcessSequence(const ASequence:String):Boolean;

Telnet session

TTelnetSession = class(TShellSession)

public
Command:String;
Sequence:String;
Position:LongWord;
private
public

SSH shell

TSSHShell = class(TShell)

public
constructor Create;
destructor Destroy; override;
private
public

Telnet shell logout

TTelnetShellLogout = class(TShellCommand)

public
constructor Create;
destructor Destroy; override;
private
public
function DoHelp(AShell:TShell; ASession:TShellSession):Boolean; override;
function DoInfo(AShell:TShell; ASession:TShellSession):Boolean; override;
function DoCommand(AShell:TShell; ASession:TShellSession; AParameters:TStrings):Boolean; override;

SSH shell logout

TSSHShellLogout = class(TShellCommand)

public
constructor Create;
destructor Destroy; override;
private
public

Public variables

---

None defined

Function declarations

---

Initialization functions

procedure RemoteShellInit;

Description: To be documented

Note	None documented

Return to Unit Reference