| AWARE [SYSTEMS] | Imaging expertise for the Delphi developer | |||||||
![]() |
TIFF and LibTiff Mailing List Archive | |||||||
LibTiff Mailing List
TIFF and LibTiff Mailing List Archive Contact
The TIFF Mailing List Homepage |
Thread2007.09.24 16:28 "Writing EXIF metadata", by Phil HarveyOn 20-Sep-07, at 12:03 PM, Andrea Galligani wrote:
> I'm looking for a sample code that writes a tiff with the EXIF
> metadata
> inside.
> Can you help me?
I haven't seen a response to this question yet, and I don't have any
libtiff sample code that will do this, but adding EXIF information to
a TIFF image is easy using the Image::ExifTool Perl library. For
example, to add XResolution, YResolution and ResolutionUnit:
use Image::ExifTool;
my $exifTool = new Image::ExifTool;
$exifTool->SetNewValue('EXIF:XResolution', 300);
$exifTool->SetNewValue('EXIF:YResolution', 300);
$exifTool->SetNewValue('EXIF:ResolutionUnit', 'inch');
$exifTool->WriteInfo('image.tiff');
- Phil
|
|||||||