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

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

 tpMark:

DCB.Parity:=3;

 tpSpace:

DCB.Parity:=4;

 end;

 SetCommState(DCB);

end;

procedure TComm.SetDataBits(Value:TDataBits);

var DCB:TDCB;

begin

 FDataBits:=Value;

 if hComm<0 then exit;

 GetCommState(hComm,DCB);

 case Value of

 tdbFour:

DCB.ByteSize:=4;

 tdbFive:

DCB.ByteSize:=5;

 tdbSix:

DCB.ByteSize:=6;

 tdbSeven:

DCB.ByteSize:=7;

 tdbEight:

DCB.ByteSize:=8;

 end;

 SetCommState(DCB);

end;

procedure TComm.SetStopBits(Value:TStopBits);

var DCB:TDCB;

begin

 FStopBits:=Value;

 if hComm<0 then exit;

 GetCommState(hComm,DCB);

 case Value of

 tsbOne:

DCB.StopBits:=0;

 tsbOnePointFive:

DCB.StopBits:=1;

 tsbTwo:

DCB.StopBits:=2;

 end;

 SetCommState(DCB);

end;

procedure TComm.SetReadBufferSize(Value:Word);

begin

 FReadBufferSize:=Value;

 SetPort(FPort);

end;

procedure TComm.SetWriteBufferSize(Value:Word);

begin

 FWriteBufferSize:=Value;

 SetPort(FPort);

end;

procedure TComm.SetRxFull(Value:Word);

begin

 FRxFull:=Value;

 if hComm<0 then exit;

 EnableCommNotification(hComm,FWindowHandle,FRxFull,FTxLow);

end;

procedure TComm.SetTxLow(Value:Word);

begin

 FTxLow:=Value;

 if hComm<0 then exit;

 EnableCommNotification(hComm,FWindowHandle,FRxFull,FTxLow);

end;

procedure TComm.SetEvents(Value:TCommEvents);

var EventMask:Word;

begin

 FEvents:=Value;

 if hComm<0 then exit;

 EventMask:=0;

 if tceBreak in FEvents then inc(EventMask,EV_BREAK);

 if tceCts in FEvents then inc(EventMask,EV_CTS);

 if tceCtss in FEvents then inc(EventMask,EV_CTSS);

 if tceDsr in FEvents then inc(EventMask,EV_DSR);

 if tceErr in FEvents then inc(EventMask,EV_ERR);

 if tcePErr in FEvents then inc(EventMask,EV_PERR);

 if tceRing in FEvents then inc(EventMask,EV_RING);

 if tceRlsd in FEvents then inc(EventMask,EV_RLSD);

 if tceRlsds in FEvents then inc(EventMask,EV_RLSDS);

 if tceRxChar in FEvents then inc(EventMask,EV_RXCHAR);

 if tceRxFlag in FEvents then inc(EventMask,EV_RXFLAG);

 if tceTxEmpty in FEvents then inc(EventMask,EV_TXEMPTY);

 SetCommEventMask(hComm,EventMask);

end;

procedure TComm.WndProc(var Msg:TMessage);

begin

 with Msg do begin

if Msg=WM_COMMNOTIFY then begin