pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpexif: Add introductory readme.txt; minor improvements in console_demo. New method TExifData.Save.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6084 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-12-02 22:33:05 +00:00
parent a46eb1788d
commit d2d4b72692
3 changed files with 125 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/fpexif/examples/console_demo/console_demo.pas
View File

@ -29,12 +29,16 @@ begin
WriteLn(tag.AsString);
// (2) shutter speed used when taking the photo
Write('Shutter speed: ':20);
tag := imgInfo.ExifData.TagByName['ShutterSpeed'];
if tag = nil then
WriteLn('--- not available in this file ---')
if tag <> nil then
WriteLn('Shutter speed: ':20, tag.AsString)
else
WriteLn(tag.AsString);
begin
// (3) Sometimes alternative tags are availabe
tag := imgInfo.ExifData.TagByName['ExposureTime'];
if tag <> nil then
WriteLn('Exposure time: ':20, tag.AsString);
end;
// Add user comment
imgInfo.ExifData.TagByName['UserComment'].AsString := 'This is my favorite photo.';
@ -62,6 +66,7 @@ begin
imgInfo.Free;
end;
WriteLn;
WriteLn('Press ENTER to quit...');
ReadLn;