Class TCOMMStatus (unit Commstate)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);



Functions

function CheckAvailable ( value :TAddress):Boolean;


destructor Destroy;


function PhysAddress (value :TAddress ) : word;


procedure Loaded;

TXD status reading is possible in two Ways 1: if (Status and _TxD = 0) <-- _TxD = $ 40 2: if (Status and _TxD > 0) <-- _TxD = $ 20 Just try one of this ! *) (* if (Status and $20 > 0) then FTxD := csOn else FTxD := csOff;

procedure TimerTimer(Sender: TObject);


procedure Update;

****************************************************************************) (********************************* TCOMMStatus *******************************) (

procedure BuildList;


procedure SetAddress(value: TAddress);


function SetAdr(value: TAddress): Word;


procedure SetEnabled(value: Boolean);


procedure SetInterval(value: TInterval);


procedure SetThreadPriority(Value: TThreadPriority);


Properties

property Available : Boolean


property COMM_CTS : TCOMMState


property COMM_DCD : TCOMMState


property COMM_DSR : TCOMMState


property COMM_DTR : TCOMMState


property COMM_NR : TAddress


property COMM_RI : TCOMMState


property COMM_RTS : TCOMMState


property COMM_RxD : TCOMMState


property COMM_TxD : TCOMMState


property Enabled : Boolean


property Interval : TInterval


property ThreadPriority : TThreadPriority


Events

event OnUpdate : TUpdate


Variables

DummyCOMMState : TCOMMState;


Adr1 : Word;


Adr2 : Word;


Adr3 : Word;


Adr4 : Word;


Dummy : Boolean;


FAddress : TAddress;


FAdr : Word;


FAvail : Boolean;


FCTS : TCOMMState;


FDCD : TCOMMState;


FDSR : TCOMMState;


FDTR : TCOMMState;


FEnabled : Boolean;


FInterval : TInterval;


FOnUpdate : TUpdate;


FRI : TCOMMState;


FRTS : TCOMMState;


FRxD : TCOMMState;


FThreadPriority : TThreadPriority;


FTimer : TThreadedTimer;


FTxD : TCOMMState;



Constructors


constructor Create(AOwner: TComponent);


Functions


function CheckAvailable ( value :TAddress):Boolean;


destructor Destroy;


function PhysAddress (value :TAddress ) : word;


procedure Loaded;

TXD status reading is possible in two Ways 1: if (Status and _TxD = 0) <-- _TxD = $ 40 2: if (Status and _TxD > 0) <-- _TxD = $ 20 Just try one of this ! *) (* if (Status and $20 > 0) then FTxD := csOn else FTxD := csOff;


procedure TimerTimer(Sender: TObject);


procedure Update;

****************************************************************************) (********************************* TCOMMStatus *******************************) (


procedure BuildList;


procedure SetAddress(value: TAddress);


function SetAdr(value: TAddress): Word;


procedure SetEnabled(value: Boolean);


procedure SetInterval(value: TInterval);


procedure SetThreadPriority(Value: TThreadPriority);


Properties


property Available : Boolean


property COMM_CTS : TCOMMState


property COMM_DCD : TCOMMState


property COMM_DSR : TCOMMState


property COMM_DTR : TCOMMState


property COMM_NR : TAddress


property COMM_RI : TCOMMState


property COMM_RTS : TCOMMState


property COMM_RxD : TCOMMState


property COMM_TxD : TCOMMState


property Enabled : Boolean


property Interval : TInterval


property ThreadPriority : TThreadPriority


Events


event OnUpdate : TUpdate


Variables


DummyCOMMState : TCOMMState;


Adr1 : Word;


Adr2 : Word;


Adr3 : Word;


Adr4 : Word;


Dummy : Boolean;


FAddress : TAddress;


FAdr : Word;


FAvail : Boolean;


FCTS : TCOMMState;


FDCD : TCOMMState;


FDSR : TCOMMState;


FDTR : TCOMMState;


FEnabled : Boolean;


FInterval : TInterval;


FOnUpdate : TUpdate;


FRI : TCOMMState;


FRTS : TCOMMState;


FRxD : TCOMMState;


FThreadPriority : TThreadPriority;


FTimer : TThreadedTimer;


FTxD : TCOMMState;