| Class TCOMMStatus (unit Commstate) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
function CheckAvailable ( value :TAddress):Boolean;
destructor Destroy;
function PhysAddress (value :TAddress ) : word;
procedure Loaded;
procedure TimerTimer(Sender: TObject);
procedure Update;
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;