Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

property Parity:TParity read FParity write SetParity default ParityDefault;

property DataBits:TDataBits read FDataBits write SetDataBits default DataBitsDefault;

property StopBits:TStopBits read FStopBits write SetStopBits default StopBitsDefault;

property WriteBufferSize:Word read FWriteBufferSize write SetWriteBufferSize default WriteBufferSizeDefault;

property ReadBufferSize:Word read FReadBufferSize write SetReadBufferSize default ReadBufferSizeDefault;

property RxFullCount:Word read FRxFull write SetRxFull default RxFullDefault;

property TxLowCount:Word read FTxLow write SetTxLow default TxLowDefault;

property Events:TCommEvents read FEvents write SetEvents default EventsDefault;

property OnEvent:TNotifyEventEvent read FOnEvent write FOnEvent;

property OnReceive:TNotifyReceiveEvent read FOnReceive write FOnReceive;

property OnTransmit:TNotifyTransmitEvent read FOnTransmit write FOnTransmit;

 end;

procedure Register;

implementation

procedure TComm.SetPort(Value:TPort);

const CommStr:PChar='COM1:';

begin

 FPort:=Value;

 if (csDesigning in ComponentState) or (Value=tptNone) or (not HasBeenLoaded) then exit;

 if hComm>=0 then CloseComm(hComm);

 CommStr[3]:=chr(48+ord(Value));

 hComm:=OpenComm(CommStr,ReadBufferSize,WriteBufferSize);

 if hComm<0 then begin

Error:=True;

exit;

 end;

 SetBaudRate(FBaudRate);

 SetParity(FParity);

 SetDataBits(FDataBits);

 SetStopBits(FStopBits);

 SetEvents(FEvents);

 EnableCommNotification(hComm,FWindowHandle,FRxFull,FTxLow);

end;

procedure TComm.SetBaudRate(Value:TBaudRate);

var DCB:TDCB;

begin

 FBaudRate:=Value;

 if hComm>=0 then begin

GetCommState(hComm,DCB);

case Value of

tbr110:

DCB.BaudRate:=CBR_110;

tbr300:

DCB.BaudRate:=CBR_300;

tbr600:

DCB.BaudRate:=CBR_600;

tbr1200:

DCB.BaudRate:=CBR_1200;

tbr2400:

DCB.BaudRate:=CBR_2400;

tbr4800:

DCB.BaudRate:=CBR_4800;

tbr9600:

DCB.BaudRate:=CBR_9600;

tbr14400:

DCB.BaudRate:=CBR_14400;

tbr19200:

DCB.BaudRate:=CBR_19200;

tbr38400:

DCB.BaudRate:=CBR_38400;

tbr56000:

DCB.BaudRate:=CBR_56000;

tbr128000:

DCB.BaudRate:=CBR_128000;

tbr256000:

DCB.BaudRate:=CBR_256000;

end;

SetCommState(DCB);

 end;

end;

procedure TComm.SetParity(Value:TParity);

var DCB:TDCB;

begin

 FParity:=Value;

 if hComm<0 then exit;

 GetCommState(hComm,DCB);

 case Value of

 tpNone:

DCB.Parity:=0;

 tpOdd:

DCB.Parity:=1;

 tpEven:

DCB.Parity:=2;