acb60ffd33
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7328 8e941d3f-bd1b-0410-a28a-d453659cc2b4
94 lines
2.2 KiB
ObjectPascal
94 lines
2.2 KiB
ObjectPascal
program console_demo;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
{$DEFINE dExifNoJpeg}
|
|
|
|
{$R *.res}
|
|
|
|
uses
|
|
SysUtils,
|
|
fpeMetaData,
|
|
fpeTags;
|
|
|
|
var
|
|
imgInfo: TImgInfo;
|
|
tag: TTag;
|
|
|
|
const
|
|
FILENAME = '..\..\..\test-image.jpg';
|
|
|
|
begin
|
|
try
|
|
imgInfo := TImgInfo.Create;
|
|
try
|
|
// Read file
|
|
imgInfo.LoadFromFile(FILENAME);
|
|
|
|
// Check for EXIF
|
|
if imgInfo.HasExif then begin
|
|
|
|
// Write out some tags
|
|
// (1) date and time when the picture was taken
|
|
Write('Date/time: ':20);
|
|
tag := imgInfo.ExifData.TagByName['DateTime'];
|
|
if tag = nil then
|
|
WriteLn('--- not available in this file ---')
|
|
else
|
|
WriteLn(tag.AsString);
|
|
|
|
// (2) shutter speed used when taking the photo
|
|
tag := imgInfo.ExifData.TagByName['ShutterSpeed'];
|
|
if tag <> nil then
|
|
WriteLn('Shutter speed: ':20, tag.AsString)
|
|
else
|
|
begin
|
|
// (3) Sometimes alternative tags are availabe
|
|
tag := imgInfo.ExifData.TagByName['ExposureTime'];
|
|
if tag <> nil then
|
|
WriteLn('Exposure time: ':20, tag.AsString);
|
|
end;
|
|
|
|
// Focal length
|
|
tag := imgInfo.ExifData.TagByName['FocalLength'];
|
|
if tag <> nil then
|
|
WriteLn('Focal length: ':20, tag.AsString);
|
|
|
|
// Add user comment
|
|
imgInfo.ExifData.TagByName['UserComment'].AsString := 'This is my favorite photo.';
|
|
|
|
// Save to file
|
|
imgInfo.SaveToFile(ExtractFilePath(FILENAME) + 'edited_image.jpg');
|
|
end
|
|
else
|
|
WriteLn('No EXIF data in this file.');
|
|
|
|
// Check for IPTC
|
|
if imgInfo.HasIPTC then begin
|
|
// Write out IPTC key words
|
|
Write('IPTC Keywords: ':20);
|
|
tag := imgInfo.IptcData.TagByName['Keywords'];
|
|
if tag = nil then
|
|
WriteLn('--- not available in this file ---')
|
|
else
|
|
WriteLn(tag.AsString);
|
|
end
|
|
else
|
|
WriteLn('No IPTC data in this file.');
|
|
|
|
finally
|
|
imgInfo.Free;
|
|
end;
|
|
|
|
WriteLn;
|
|
WriteLn('Press ENTER to quit...');
|
|
ReadLn;
|
|
except
|
|
on E: Exception do begin
|
|
Writeln(E.ClassName, ': ', E.Message);
|
|
WriteLn;
|
|
WriteLn('Press ENTER to quit...');
|
|
ReadLn;
|
|
end;
|
|
end;
|
|
end.
|