TDataPortUART

type TDataPortUART = class(TDataPort)

protected

  FReadDataStr: AnsiString;

  FLock: TSimpleRWSync;

  FPort: string;

  FBaudRate: Integer;

  FDataBits: Integer;

  FParity: AnsiChar;

  FStopBits: TSerialStopBits;

  FFlowControl: TSerialFlowControl;

  FSoftFlow: Boolean;

  FHardFlow: Boolean;

  FMinDataBytes: Integer;

  FHalfDuplex: Boolean;

  FModemStatus: TModemStatus;

  procedure SetBaudRate(); virtual;

  procedure SetDataBits(); virtual;

  procedure SetParity(); virtual;

  procedure SetStopBits(); virtual;

  procedure SetFlowControl(); virtual;

  procedure OnIncomingMsgHandler(); virtual;

  procedure OnErrorHandler(); virtual;

  procedure OnConnectHandler(); virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Open(); override;

  function Pull(); override;

  function Peek(); override;

  function PeekSize; override;

  function GetModemStatus; virtual;

  procedure SetDTR(); virtual;

  procedure SetRTS(); virtual;

  property ModemStatus: TModemStatus; [r]

published

  property Port: string; [rw]

  property BaudRate: Integer; [rw]

  property DataBits: Integer; [rw]

  property Parity: AnsiChar; [rw]

  property StopBits: TSerialStopBits; [rw]

  property FlowControl: TSerialFlowControl; [rw]

  property SoftFlow: Boolean; [rw] deprecated ;

  property HardFlow: Boolean; [rw] deprecated ;

  property MinDataBytes: Integer; [rw]

  property HalfDuplex: Boolean; [rw]

  property Active: Boolean;

  property OnDataAppear: TNotifyEvent;

  property OnError: TMsgEvent;

  property OnOpen: TNotifyEvent;

  property OnClose: TNotifyEvent;

  property OnModemStatus: TNotifyEvent; [rw]

  property OnDataAppearUnsafe: TNotifyEvent; [rw]

end;

TDataPortUART

TDataPort

TObject