TCamera

type TCamera = class(TCustomCamera)

protected

const

  ProtocolCommandSetIRCut = $AA

  SnapshotReactTimeout = 4000

protected

  function GetDefaultBaudRate; override;

public

  function Reset; override;

  function SetImageSize(); override;

  function TakeSnapshot; override;

  function GetPictureSize; override;

  function GetPicture(); override;

  function SetBaudRate();

  function SetIRCut();

  property BootText: StdString; [r]

end;

TCamera

TCustomCamera

TObject