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

fpexif: minor changes

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6092 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-12-09 08:42:30 +00:00
parent e0d533ac91
commit 5d8c0d9f2d
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpexif/fpeexifdata.pas
View File

@ -291,7 +291,7 @@ begin
AddULongTag (P+$0116, 'RowsPerStrip', 1, rsRowsPerStrip); AddULongTag (P+$0116, 'RowsPerStrip', 1, rsRowsPerStrip);
AddULongTag (P+$0117, 'StripByteCounts', 1, rsStripByteCounts); AddULongTag (P+$0117, 'StripByteCounts', 1, rsStripByteCounts);
AddUShortTag (P+$0118, 'MinSampleValue', 1, rsMinSampleValue); AddUShortTag (P+$0118, 'MinSampleValue', 1, rsMinSampleValue);
AddUShortTag (P+$0119, 'MaxSampleValue', 1, rsMaxSampleValue); AddUShortTag (P+$0119, 'MaxSampleValue', 1, rsMaxSampleValue);
AddURationalTag(P+$011A, 'XResolution', 1, rsXResolution); AddURationalTag(P+$011A, 'XResolution', 1, rsXResolution);
AddURationalTag(T+$011A, 'ThumbnailXResolution', 1, rsXResolution); AddURationalTag(T+$011A, 'ThumbnailXResolution', 1, rsXResolution);
AddURationalTag(P+$011B, 'YResolution', 1, rsYResolution); AddURationalTag(P+$011B, 'YResolution', 1, rsYResolution);

5
components/fpexif/fpemetadata.pas
View File

@ -452,6 +452,11 @@ begin
exit; exit;
while p < streamsize do begin while p < streamsize do begin
// The basic structure of the jpeg segments is
// $FF ..... identifier (sometimes repeated)
// marker .. segment identifier (1 byte)
// size .... size of the segment in bytes (2 bytes), including size field
// data .... data of the segment, (size)-2 bytes.
repeat repeat
marker := ReadByte(AStream); marker := ReadByte(AStream);
until marker <> $FF; until marker <> $FF;