TCommPortDriver

type TCommPortDriver = class(TComponent)

protected

  FDelayBetweenCmds: Cardinal;

  FExclusiveDevice: Boolean;

  procedure SetActive(); virtual;

  procedure CommError();

  procedure CommPortOpened;

  procedure CommPortOpenError;

  procedure CommPortClose;

  procedure CommPortCloseError;

  procedure CommPortDisconected;

  procedure DoReadError(); virtual;

  procedure DoWriteError(); virtual;

  procedure DoPortOpened(); virtual;

  procedure DoPortOpenError(); virtual;

  procedure DoPortClose(); virtual;

  procedure DoPortCloseError(); virtual;

  procedure DoPortDisconnected(); virtual;

  PActive: Boolean;

  PClearBufOnErr: Boolean;

  Protocols: array of TComponent;

  EventInterfaces: IPortDriverEventNotificationArray;

  procedure Read(); virtual; abstract;

  procedure Write(); virtual; abstract;

  procedure NeedSleepBetweenRW; virtual; abstract;

  procedure PortStart(); virtual; abstract;

  procedure PortStop(); virtual; abstract;

  function ComSettingsOK; virtual;

  procedure ClearALLBuffers; virtual; abstract;

  procedure Loaded; override;

  procedure InternalClearALLBuffers;

  procedure DoExceptionInActive;

  procedure RefreshLastOSError;

  property OnCommErrorReading: TCommPortErrorEvent; [rw]

  property OnCommErrorWriting: TCommPortErrorEvent; [rw]

  property OnCommPortOpened: TNotifyEvent; [rw]

  property OnCommPortOpenError: TNotifyEvent; [rw]

  property OnCommPortClosed: TNotifyEvent; [rw]

  property OnCommPortCloseError: TNotifyEvent; [rw]

  property OnCommPortDisconnected: TNotifyEvent; [rw]

  property ReadRetries: Cardinal; [rw]

  property WriteRetries: Cardinal; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure AddProtocol();

  procedure DelProtocol();

  function IOCommandSync(); deprecated ;

  function Lock();

  function Unlock();

  function ReallyActive; virtual;

  procedure RenewHandle; virtual;

  function getPortId; virtual;

published

  property Active: Boolean; [rws]

  property ClearBuffersOnCommErrors: Boolean; [rw]

  property LockedBy: Cardinal; [r]

  property Locked: Boolean; [r]

  property LastOSErrorNumber: LongInt; [r]

  property LastOSErrorMessage: AnsiString; [r]

  property CommandsPerSecond: LongInt; [r]

  property TXBytes: Int64; [r]

  property TXBytesSecond: Int64; [r]

  property RXBytes: Int64; [r]

  property RXBytesSecond: Int64; [r]

  property LogIOActions: Boolean; [rw]

  property LogFile: AnsiString; [rw]

end;

TCommPortDriver

TObject