TTelnetShell

From Ultibo.org
Jump to: navigation, search

Return to Unit RemoteShell


Description


To be documented

Class definitions



TTelnetShell = class(TShell)

public
constructor Create;  
destructor Destroy; override;  
private
FListener:TTelnetListener;  
 
procedure Reset(ASession:TTelnetSession);  
 
procedure MoveFirst(ASession:TTelnetSession);  
procedure MoveLast(ASession:TTelnetSession);  
procedure MoveLeft(ASession:TTelnetSession);  
procedure MoveRight(ASession:TTelnetSession);  
 
procedure EraseLine(ASession:TTelnetSession);  
procedure OutputLine(ASession:TTelnetSession; const AValue:String);  
function ExpandLine(ASession:TTelnetSession):Boolean;  
 
procedure EraseCharacter(ASession:TTelnetSession);  
procedure DeleteCharacter(ASession:TTelnetSession);  
procedure InsertCharacter(ASession:TTelnetSession; ACh:Char);  
procedure OverwriteCharacter(ASession:TTelnetSession; ACh:Char);  
 
procedure PrevHistory(ASession:TTelnetSession);  
procedure NextHistory(ASession:TTelnetSession);  
procedure CurrentHistory(ASession:TTelnetSession);  
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;  


Function declarations



constructor TTelnetShell.Create;
Description: To be documented
Note None documented


destructor TTelnetShell.Destroy;
Description: To be documented
Note None documented


procedure TTelnetShell.Reset(ASession:TTelnetSession);
Description: To be documented
Note None documented


procedure TTelnetShell.MoveFirst(ASession:TTelnetSession);
Description: Move the cursor to the starting position of the line
Note None documented


procedure TTelnetShell.MoveLast(ASession:TTelnetSession);
Description: To be documented
Note None documented


procedure TTelnetShell.MoveLeft(ASession:TTelnetSession);
Description: Move the cursor one position to the left in the line
Note None documented


procedure TTelnetShell.MoveRight(ASession:TTelnetSession);
Description: Move the cursor one position to the right in the line
Note None documented


procedure TTelnetShell.EraseLine(ASession:TTelnetSession);
Description: Erase all characters in the line and reset the cursor position
Note None documented


procedure TTelnetShell.OutputLine(ASession:TTelnetSession; const AValue:String);
Description: Output all characters in value and update the cursor position
Note None documented


function TTelnetShell.ExpandLine(ASession:TTelnetSession):Boolean;
Description: Expand the tab key to a command completion if available
Note None documented


procedure TTelnetShell.EraseCharacter(ASession:TTelnetSession);
Description: Erase the character to the left of the cursor position
Note None documented


procedure TTelnetShell.DeleteCharacter(ASession:TTelnetSession);
Description: Delete the character to the right of the cursor position
Note None documented


procedure TTelnetShell.InsertCharacter(ASession:TTelnetSession; ACh:Char);
Description: Insert a character at the cursor position
Note None documented


procedure TTelnetShell.OverwriteCharacter(ASession:TTelnetSession; ACh:Char);
Description: Overwrite the character at the cursor position
Note None documented


procedure TTelnetShell.PrevHistory(ASession:TTelnetSession);
Description: Get the previous command history value
Note None documented


procedure TTelnetShell.NextHistory(ASession:TTelnetSession);
Description: Get the next command history value
Note None documented


procedure TTelnetShell.CurrentHistory(ASession:TTelnetSession);
Description: Get the current command history value
Note None documented


procedure TTelnetShell.TelnetConnected(AConnection:TTelnetConnection);
Description: To be documented
Note None documented


procedure TTelnetShell.TelnetDisconnected(AConnection:TTelnetConnection);
Description: To be documented
Note None documented


function TTelnetShell.TelnetInit(AConnection:TTelnetConnection):Boolean;
Description: To be documented
Note None documented


function TTelnetShell.TelnetChar(AConnection:TTelnetConnection; AChar:Char):Boolean;
Description: To be documented
Note None documented


function TTelnetShell.TelnetCommand(AConnection:TTelnetConnection; ACommand,AOption:Byte; AData:Pointer; ASize:LongWord):Boolean;
Description: To be documented
Note None documented


function TTelnetShell.DoClear(ASession:TShellSession):Boolean;
Description: To be documented
Note None documented


function TTelnetShell.DoInput(ASession:TShellSession; var AInput:String):Boolean;
Description: To be documented
Note None documented


function TTelnetShell.DoOutputEx(ASession:TShellSession; const AOutput:String; AReturn:Boolean):Boolean;
Description: To be documented
Note None documented


function TTelnetShell.MatchSequence(const ASequence:String; var AContinue:Boolean):Boolean;
Description: To be documented
Note None documented


function TTelnetShell.ProcessSequence(const ASequence:String):Boolean;
Description: To be documented
Note None documented


Return to Unit Reference