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

fpexif: Fix compilation of unit test project with Delphi 7.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8063 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-07-13 07:48:15 +00:00
parent f335aef18e
commit 652eaac2d4
3 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpexif/fpeexifreadwrite.pas
View File

@ -318,7 +318,9 @@ var
tagPos: Int64;
newPos: Int64;
begin
{$IFDEF FPC}
ifdRec := Default(TIFDRecord);
{$ENDIF}
// Read count of directory entries
numRecords := FixEndian16(ReadWord(AStream));

4
components/fpexif/fpemetadata.pas
View File

@ -402,7 +402,11 @@ var
headerSize: Word;
n, count: Int64;
savedPos: Int64;
{$IFDEF FPC}
s: RawByteString;
{$ELSE}
s: String;
{$ENDIF}
begin
// Write the header segment and all metadata segments stored in TImgInfo
// to the beginning of the stream

2
components/fpexif/fpeutils.pas
View File

@ -1,4 +1,4 @@
unit fpeUtils;
unit fpeUtils;
{$IFDEF FPC}
{$mode ObjFPC}{$H+}