TCustomPortUART

type TCustomPortUART = class(TCustomDataPort)

protected

const

  StringBufferSize = 32

  InterimSleepTime = 10000

protected

  FSystemCore: TCustomSystemCore;

  function GetBaudRate; virtual; abstract;

  procedure SetBaudRate(); virtual; abstract;

  function GetBitsPerWord; virtual; abstract;

  procedure SetBitsPerWord(); virtual; abstract;

  function GetParity; virtual; abstract;

  procedure SetParity(); virtual; abstract;

  function GetStopBits; virtual; abstract;

  procedure SetStopBits(); virtual; abstract;

public

  constructor Create();

  procedure Flush; virtual; abstract;

  function ReadBuffer(); virtual;

  function WriteBuffer(); virtual;

  function ReadByte();

  function WriteByte();

  function WriteBytes();

  function ReadString();

  function WriteString();

  property SystemCore: TCustomSystemCore; [r]

  property BaudRate: Cardinal; [rw]

  property BitsPerWord: TBitsPerWord; [rw]

  property Parity: TParity; [rw]

  property StopBits: TStopBits; [rw]

end;

TCustomPortUART

TCustomDataPort

TObject