TLTelnet

type TLTelnet = class(TLComponent)

protected

  FStack: TLControlStack;

  FConnection: TLTcp;

  FPossible: TLTelnetControlChars;

  FActive: TLTelnetControlChars;

  FOutput: TMemoryStream;

  FOperation: Char;

  FCommandCharIndex: Byte;

  FOnReceive: TLSocketEvent;

  FOnConnect: TLSocketEvent;

  FOnDisconnect: TLSocketEvent;

  FOnError: TLSocketErrorEvent;

  FCommandArgs: String;

  FOrders: TLTelnetControlChars;

  FConnected: Boolean;

  FBuffer: String;

  function Question();

  function GetTimeout;

  procedure SetTimeout();

  function GetSocketClass;

  procedure SetSocketClass();

  procedure StackFull;

  procedure DoubleIAC();

  procedure TelnetParse();

  procedure React(); virtual; abstract;

  procedure SendCommand();

  procedure OnCs();

public

  constructor Create(); override;

  destructor Destroy; override;

  function Get(); virtual; abstract;

  function GetMessage(); virtual; abstract;

  function Send(); virtual; abstract;

  function SendMessage(); virtual; abstract;

  function OptionIsSet();

  function RegisterOption();

  procedure SetOption();

  procedure UnSetOption();

  procedure Disconnect; override;

  property Output: TMemoryStream; [r]

  property Connected: Boolean; [r]

  property Timeout: Integer; [rw]

  property OnReceive: TLSocketEvent; [rw]

  property OnDisconnect: TLSocketEvent; [rw]

  property OnConnect: TLSocketEvent; [rw]

  property OnError: TLSocketErrorEvent; [rw]

  property Connection: TLTcp; [r]

  property SocketClass: TLSocketClass; [rw]

end;

TLTelnet

TLComponent

Basic abstraction of network connections.

TComponent

TObject