TUARTBridge

type TUARTBridge = class(TCustomPortUART)

public

const

  DefaultAddress = $4D

  DefaultBaudRate = 115200

public

type

  TGPIO = TGPIO;

protected

  procedure UpdateAddress;

  procedure WriteReg();

  function ReadReg();

  function GetBaudRate; override;

  procedure SetBaudRate(); override;

  function GetBitsPerWord; override;

  procedure SetBitsPerWord(); override;

  function GetParity; override;

  procedure SetParity(); override;

  function GetStopBits; override;

  procedure SetStopBits(); override;

public

  constructor Create();

  destructor Destroy; override;

  function Read(); override;

  function Write(); override;

  procedure Flush; override;

  property DataPort: TCustomDataPort; [r]

  property Address: Integer; [r]

  property BaudRate: Integer; [rw]

  property BitsPerWord: Integer; [rw]

  property Parity: TParity; [rw]

  property StopBits: TStopBits; [rw]

  property GPIO: TGPIO; [r]

end;

TUARTBridge

TCustomPortUART

TCustomDataPort

TObject