| Class TnrComm (unit nrcomm) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure ConfigDialog;
destructor Destroy;
function GetData(Buffer:PChar;Size:cardinal;Wait:boolean):cardinal;
procedure ResetModem;
procedure SendChar(Ch:Char);
procedure SendData(Buff:PChar;N:longint);
procedure SendString(S:string);
procedure DoRecived(Sender:TObject;Recived:Cardinal);
function GetDCB:TDCB;
procedure SetDCB(Value:TDCB);
procedure SetActive(Value:boolean);| Properties |
property Active : boolean
property Boud : TBaudRate
property CommTimeout : dword
property ComPort : TComPort
property Terminal : TMemo
property TerminalOnLine : boolean
property DCB : TDCB| Events |
event OnActive : TNotifyEvent
event OnEoLn : TOnAfterTerminal
event OnRecive : TRecivedEvent| Variables |
ActiveComm : boolean;
EventThread : TnrCommThread;
hCom : THandle;
OnLine : boolean;
CommCfg : PCommConfig;
CommProp : PCommProp;
CommTimeouts : TCommTimeouts;
fBoud : TBaudRate;
fComPort : TComPort;
FMemo : TMemo;
OL : TOverlapped;
FOnActive : TNotifyEvent;
FOnAfterTerminal : TOnAfterTerminal;
FOnRecive : TRecivedEvent;
FWait : dword;| Constructors |
constructor Create(AOwner: TComponent);================================================================ =============== TnrComm ==================================
| Functions |
procedure ConfigDialog;восстановим ...
destructor Destroy;
function GetData(Buffer:PChar;Size:cardinal;Wait:boolean):cardinal;
procedure ResetModem;вызов диалога конфигурации СОМ-порта
procedure SendChar(Ch:Char);wait read
procedure SendData(Buff:PChar;N:longint);
procedure SendString(S:string);
procedure DoRecived(Sender:TObject;Recived:Cardinal);
function GetDCB:TDCB;
procedure SetDCB(Value:TDCB);сброс устройства поток для событий от порта
procedure SetActive(Value:boolean);| Properties |
property Active : boolean
property Boud : TBaudRate
property CommTimeout : dword
property ComPort : TComPort
property Terminal : TMemo
property TerminalOnLine : boolean
property DCB : TDCB| Events |
event OnActive : TNotifyEvent
event OnEoLn : TOnAfterTerminal
event OnRecive : TRecivedEvent| Variables |
ActiveComm : boolean;
EventThread : TnrCommThread;handle of CommPort Device
hCom : THandle;
OnLine : boolean;
CommCfg : PCommConfig;
CommProp : PCommProp;
CommTimeouts : TCommTimeouts;
fBoud : TBaudRate;
fComPort : TComPort;
FMemo : TMemo;
OL : TOverlapped;FDCB:TDCB; // DCB structure of CommPort Device
FOnActive : TNotifyEvent;
FOnAfterTerminal : TOnAfterTerminal;
FOnRecive : TRecivedEvent;
FWait : dword;