TFPReaderTiff

type TFPReaderTiff = class(TFPCustomImageReader)

protected

  procedure InternalRead(); override;

  function InternalCheck(); override;

  procedure DoCreateImage(); virtual;

public

  constructor Create; override;

  destructor Destroy; override;

  procedure Clear;

  procedure LoadFromStream();

  property OnCreateImage: TTiffCreateCompatibleImgEvent; [rw]

  property CheckIFDOrder: TTiffCheckIFDOrder; [rw]

  function FirstImg;

  function GetBiggestImage;

  function ImageCount;

  property Images []: TTiffIFD; default; [r]

  ImageList: TFPList;

  procedure LoadHeaderFromStream();

  procedure LoadIFDsFromStream;

  procedure LoadImageFromStream();

  procedure ReleaseStream;

  property StartPos: Int64; [r]

  property ReverserEndian: Boolean; [r]

  property TheStream: TStream; [r]

  property FirstIFDStart: DWord; [r]

end;

TFPReaderTiff

TFPCustomImageReader

TFPCustomImageHandler

TObject