Var Tags: TIETIFTagsReader; ... Tags := TIETIFTagsReader.CreateFromFile('input.tif', 0); // read tags of the first image (page) If Tags.TagExists(269) then DocumentName := Tags.GetString(269); // 269 is the document name If Tags.TagExists(285) then Pagename := Tags.GetString(285); // 285 is the page name Tags.free;
// Read EXIF tags saved by Canon cameras var ms: TMemoryStream; tagReader1, tagReader2, tagReader3: TIETifTagsReader; i: integer; // some Canon tags m_nMacroMode, m_nLengthTimer, m_Quality: integer; m_ImageType: string; begin with ImageEnView1 do begin IO.LoadFromFile('Capture_00006.JPG'); with IO.Params.JPEG_MarkerList do begin i := IndexOf( JPEG_APP1 ); if i>=0 then begin // there are EXIF info ms := TMemoryStream.Create; ms.Write( MarkerData[i][6], MarkerLength[i] ); // bypass first 4 bytes (must contain 'Exif') ms.Position := 0;