TLTelnet

type TLTelnet = class(TLComponent,ILDirect)

protected

  FStack: TLControlStack;

  FConnection: TLTcp;

  FPossible: TLTelnetControlChars;

  FActiveOpts: TLTelnetControlChars;

  FOutput: TMemoryStream;

  FOperation: char;

  FCommandCharIndex: Byte;

  FOnReceive: TLSocketEvent;

  FOnConnect: TLSocketEvent;

  FOnDisconnect: TLSocketEvent;

  FOnError: TLSocketErrorEvent;

  FCommandArgs: string;

  FOrders: TLTelnetControlChars;

  FBuffer: array of char;

  FBufferIndex: Integer;

  FBufferEnd: Integer;

  procedure InflateBuffer;

  function AddToBuffer();

  function Question();

  function GetConnected;

  function GetTimeout;

  procedure SetTimeout();

  function GetSocketClass;

  procedure SetSocketClass();

  function GetSession;

  procedure SetSesssion();

  procedure SetCreator(); override;

  procedure StackFull;

  procedure DoubleIAC();

  function 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]

  property Session: TLSession; [rw]

end;

TLTelnet

TLComponent,ILDirect

TObject,ILComponent