TDataPortSerial

type TDataPortSerial = class(TDataPortUART)

protected

  procedure SetBaudRate(); override;

  procedure SetDataBits(); override;

  procedure SetParity(); override;

  procedure SetStopBits(); override;

  procedure SetFlowControl(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Open(); override;

  procedure Close; override;

  function Push(); override;

  class function GetSerialPortNames;

  function GetModemStatus; override;

  procedure SetDTR(); override;

  procedure SetRTS(); override;

  property SerialClient: TSerialClient; [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 MinDataBytes: Integer; [rw]

  property Active: Boolean;

  property OnDataAppear: TNotifyEvent;

  property OnError: TMsgEvent;

  property OnOpen: TNotifyEvent;

  property OnClose: TNotifyEvent;

end;

TDataPortSerial

TDataPortUART

TDataPort

TObject