Class TTnCnx (unit TnCnx)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Functions

procedure Close;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Connect;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

destructor Destroy;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DontOption(chOption : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure DoOption(chOption : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function IsConnected : Boolean;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Pause;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Resume;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function Send(Data : Pointer; Len : Integer) : integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function SendStr(Data : String) : integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure WillOption(chOption : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure WontOption(chOption : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure AddChar(Ch : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Answer(chAns : Char; chOption : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Display(Str : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure FlushBuffer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

function GetState : TSocketState;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure NegociateOption(chAction : Char; chOption : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure NegociateSubOption(strSubOption : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure Notification(AComponent: TComponent; Operation: TOperation);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure ReceiveChar(Ch : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SocketDataAvailable(Sender: TObject; Error : word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SocketSessionClosed(Sender: TObject; Error : word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure SocketSessionConnected(Sender: TObject; Error : word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

procedure WndProc(var MsgRec: TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

Properties

property Host : String


property LocalEcho : Boolean


property Location : String


property Port : String


property TermType : String


property Handle : HWND


property State : TSocketState


Events

event OnDataAvailable : TTnDataAvailable


event OnDisplay : TTnDisplay


event OnEndOfRecord : TNotifyEvent


event OnLocalEcho : TNotifyEvent


event OnSendLoc : TNotifyEvent


event OnSessionClosed : TTnSessionClosed


event OnSessionConnected : TTnSessionConnected


event OnTermType : TNotifyEvent


Variables

Socket : TWSocket;


FBuffer : array [0..2048] of char;


FBufferCnt : Integer;


FHost : String;


FLocalEcho : Boolean;


FLocation : String;


FOnDataAvailable : TTnDataAvailable;


FOnDisplay : TTnDisplay;


FOnEOR : TNotifyEvent;


FOnLocalEcho : TNotifyEvent;


FOnSendLoc : TNotifyEvent;


FOnSessionClosed : TTnSessionClosed;


FOnSessionConnected : TTnSessionConnected;


FOnTermType : TNotifyEvent;


FPort : String;


FTermType : String;


FTType : Boolean;


FWindowHandle : HWND;


LocalBinMode : Boolean;


RemoteBinMode : Boolean;


Spga : Boolean;



Constructors


constructor Create(AOwner: TComponent);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Functions


procedure Close;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Connect;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


destructor Destroy;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DontOption(chOption : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure DoOption(chOption : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function IsConnected : Boolean;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Pause;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Resume;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function Send(Data : Pointer; Len : Integer) : integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function SendStr(Data : String) : integer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure WillOption(chOption : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure WontOption(chOption : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure AddChar(Ch : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Answer(chAns : Char; chOption : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Display(Str : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure FlushBuffer;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


function GetState : TSocketState;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure NegociateOption(chAction : Char; chOption : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure NegociateSubOption(strSubOption : String);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure Notification(AComponent: TComponent; Operation: TOperation);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure ReceiveChar(Ch : Char);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SocketDataAvailable(Sender: TObject; Error : word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SocketSessionClosed(Sender: TObject; Error : word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure SocketSessionConnected(Sender: TObject; Error : word);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


procedure WndProc(var MsgRec: TMessage);

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


Properties


property Host : String


property LocalEcho : Boolean


property Location : String


property Port : String


property TermType : String


property Handle : HWND


property State : TSocketState


Events


event OnDataAvailable : TTnDataAvailable


event OnDisplay : TTnDisplay


event OnEndOfRecord : TNotifyEvent


event OnLocalEcho : TNotifyEvent


event OnSendLoc : TNotifyEvent


event OnSessionClosed : TTnSessionClosed


event OnSessionConnected : TTnSessionConnected


event OnTermType : TNotifyEvent


Variables


Socket : TWSocket;


FBuffer : array [0..2048] of char;


FBufferCnt : Integer;


FHost : String;


FLocalEcho : Boolean;


FLocation : String;


FOnDataAvailable : TTnDataAvailable;


FOnDisplay : TTnDisplay;


FOnEOR : TNotifyEvent;


FOnLocalEcho : TNotifyEvent;


FOnSendLoc : TNotifyEvent;


FOnSessionClosed : TTnSessionClosed;


FOnSessionConnected : TTnSessionConnected;


FOnTermType : TNotifyEvent;


FPort : String;


FTermType : String;


FTType : Boolean;


FWindowHandle : HWND;


LocalBinMode : Boolean;


RemoteBinMode : Boolean;


Spga : Boolean;