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

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;