Class TnrComm (unit nrcomm)

Inherits from

TComponent

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;



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;