Class TTnCnx (unit TnCnx) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property Host : String
property LocalEcho : Boolean
property Location : String
property Port : String
property TermType : String
property Handle : HWND
property State : TSocketState
event OnDataAvailable : TTnDataAvailable
event OnDisplay : TTnDisplay
event OnEndOfRecord : TNotifyEvent
event OnLocalEcho : TNotifyEvent
event OnSendLoc : TNotifyEvent
event OnSessionClosed : TTnSessionClosed
event OnSessionConnected : TTnSessionConnected
event OnTermType : TNotifyEvent
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;
constructor Create(AOwner: TComponent);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
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);
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
property Host : String
property LocalEcho : Boolean
property Location : String
property Port : String
property TermType : String
property Handle : HWND
property State : TSocketState
event OnDataAvailable : TTnDataAvailable
event OnDisplay : TTnDisplay
event OnEndOfRecord : TNotifyEvent
event OnLocalEcho : TNotifyEvent
event OnSendLoc : TNotifyEvent
event OnSessionClosed : TTnSessionClosed
event OnSessionConnected : TTnSessionConnected
event OnTermType : TNotifyEvent
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;