Class TTifTag

Unit

xomTif

Declaration

type TTifTag = class(TXOMObject)

Description

TTifTag

Hierarchy

• TXOMObject
• TTifTag

Overview

Methods

	procedure AfterConstruction; override;
	procedure BeforeDestruction; override;
	procedure ParseFromStream (const AFileName: WideString; AStream: TStream; const AOrder: TTifByteOrder; const AStreamOffset: Int64; ADataStream: TStream = nil; const AFullDng: Boolean = False; const ADataSizeLimit: Integer = -1; const AReferenced: Boolean = False; AReadSpecificTags: TTifTags = nil);
	procedure SaveToStream (AStream: TStream; const AOrder: TTifByteOrder); reintroduce;
	procedure Assign (ASource: TObject); override;
	function IsExif: Boolean;
	function IsExifInter: Boolean;
	function IsExifMarkerNotes: Boolean;
	function IsIPTC: Boolean;
	function IsIPTCMultiTag: Boolean;

Properties

	property Value: Variant read GetValue write SetValue;
	property Data: TDataMemoryStream read GetData write FData;
	property DataOffset: Int64 read FDataOffset;
	property Offset: Int64 read FOffset;
	property TagNumberHex: WideString read GetTagNumberHex;
	property PointerStream: TDataMemoryStream read FPointerStream write FPointerStream;
	property IFD: TTifIFD read FIFD;
	property TagNumber: Integer read FTagNumber write FTagNumber;
	property DataFormat: TTifTagDataFormat read FDataFormat write FDataFormat;
	property Components: Int64 read FComponents write FComponents;
	property TagIFD: TTifIFD read FTagIFD write FTagIFD;
	property DataSource: WideString read FDataSource write FDataSource;
	property TagName: WideString read GetTagName stored False;
	property TagDescription: WideString read GetTagDescription stored False;
	property TagValue: WideString read GetTagValue stored False;
	property RawTagValue: WideString read GetRawTagValue stored False;

Description

Methods

	procedure AfterConstruction; override;

	procedure BeforeDestruction; override;

	procedure ParseFromStream (const AFileName: WideString; AStream: TStream; const AOrder: TTifByteOrder; const AStreamOffset: Int64; ADataStream: TStream = nil; const AFullDng: Boolean = False; const ADataSizeLimit: Integer = -1; const AReferenced: Boolean = False; AReadSpecificTags: TTifTags = nil);

	procedure SaveToStream (AStream: TStream; const AOrder: TTifByteOrder); reintroduce;

	procedure Assign (ASource: TObject); override;

	function IsExif: Boolean;

	function IsExifInter: Boolean;

	function IsExifMarkerNotes: Boolean;

	function IsIPTC: Boolean;

	function IsIPTCMultiTag: Boolean;

Properties

	property Value: Variant read GetValue write SetValue;

	property Data: TDataMemoryStream read GetData write FData;

	property DataOffset: Int64 read FDataOffset;

	property Offset: Int64 read FOffset;

	property TagNumberHex: WideString read GetTagNumberHex;

	property PointerStream: TDataMemoryStream read FPointerStream write FPointerStream;

	property IFD: TTifIFD read FIFD;

	property TagNumber: Integer read FTagNumber write FTagNumber;

	property DataFormat: TTifTagDataFormat read FDataFormat write FDataFormat;

	property Components: Int64 read FComponents write FComponents;

	property TagIFD: TTifIFD read FTagIFD write FTagIFD;

	property DataSource: WideString read FDataSource write FDataSource;

	property TagName: WideString read GetTagName stored False;

	property TagDescription: WideString read GetTagDescription stored False;

	property TagValue: WideString read GetTagValue stored False;

	property RawTagValue: WideString read GetRawTagValue stored False;