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

 TBaudRate= (tbr110, tbr300, tbr600, tbr1200, tbr2400, tbr4800, tbr9600, tbr14400, tbr19200, tbr38400, tbr56000, tbr128000, tbr256000);

 TParity=(tpNone,tpOdd,tpEven,tpMark,tpSpace);

 TDataBits=(tdbFour,tdbFive,tdbSix,tdbSeven,tdbEight);

 TStopBits=(tsbOne,tsbOnePointFive,tsbTwo);

 TCommEvent=(tceBreak, tceCts, tceCtss, tceDsr, tceErr, tcePErr, tceRing, tceRlsd, tceRlsds, tceRxChar, tceRxFlag, tceTxEmpty);

 TCommEvents=set of TCommEvent;

const

 PortDefault=tptNone;

 BaudRateDefault=tbr9600;

 ParityDefault=tpNone;

 DataBitsDefault=tdbEight;

 StopBitsDefault=tsbOne;

 ReadBufferSizeDefault=2048;

 WriteBufferSizeDefault=2048;

 RxFullDefault=1024;

 TxLowDefault=1024;

 EventsDefault=[];

type

 TNotifyEventEvent=procedure(Sender:TObject; CommEvent:TCommEvents) of object;

 TNotifyReceiveEvent=procedure(Sender:TObject; Count:Word) of object;

 TNotifyTransmitEvent=procedure(Sender:TObject; Count:Word) of object;

 TComm=class(TComponent)

 private

  FPort:TPort;

  FBaudRate:TBaudRate;

  FParity:TParity;

  FDataBits:TDataBits;

  FStopBits:TStopBits;

  FReadBufferSize:Word;

  FWriteBufferSize:Word;

  FRxFull:Word;

  FTxLow:Word;

  FEvents:TCommEvents;

  FOnEvent:TNotifyEventEvent;

  FOnReceive:TNotifyReceiveEvent;

  FOnTransmit:TNotifyTransmitEvent;

  FWindowHandle:hWnd;

  hComm:Integer;

  HasBeenLoaded:Boolean;

  Error:Boolean;

  procedure SetPort(Value:TPort);

  procedure SetBaudRate(Value:TBaudRate);

  procedure SetParity(Value:TParity);

  procedure SetDataBits(Value:TDataBits);

  procedure SetStopBits(Value:TStopBits);

  procedure SetReadBufferSize(Value:Word);

  procedure SetWriteBufferSize(Value:Word);

  procedure SetRxFull(Value:Word);

  procedure SetTxLow(Value:Word);

  procedure SetEvents(Value:TCommEvents);

  procedure WndProc(var Msg:TMessage);

  procedure DoEvent;

  procedure DoReceive;

  procedure DoTransmit;

 protected

  procedure Loaded; override;

 public

  constructor Create(AOwner:TComponent); override;

  destructor Destroy; override;

  procedure Write(Data:PChar; Len:Word);

  procedure Read(Data:PChar; Len:Word);

  function IsError:Boolean;

 published

  property Port:TPort read FPort write SetPort default PortDefault;

  property BaudRate:TBaudRate read FBaudRate write SetBaudRate default BaudRateDefault;

  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;