TFPReaderTiff

type TFPReaderTiff = class(TFPCustomImageReader)

protected

  function GetImages();

  procedure TiffError();

  procedure SetStreamPos();

  function ReadTiffHeader(); virtual;

  function ReadIFD();

  function ReadByte;

  function ReadWord;

  function ReadDWord;

  function ReadQWord;

  function ReadBuffer();

  procedure ReadValues();

  procedure ReadShortOrLongValues();

  procedure ReadShortValues();

  procedure ReadImageSampleProperties();

  procedure ReadImgValue();

  function FixEndian();

  procedure SetFPImgExtras();

  procedure DecodePackBits();

  procedure DecodeLZW();

  procedure DecodeDeflate();

  procedure ReadDirectoryEntry(); virtual;

  function ReadEntryOffset;

  function ReadEntryUnsigned;

  function ReadEntrySigned;

  function ReadEntryRational;

  function ReadEntryString;

  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: SizeUInt; [r]

  property ReverseEndian: Boolean; [r]

  property TheStream: TStream; [r]

  property FirstIFDStart: SizeUInt; [r]

  property BigTiff: Boolean; [r]

end;

TFPReaderTiff

TFPCustomImageReader

TFPCustomImageHandler

TObject