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; tagPos: Int64;
newPos: Int64; newPos: Int64;
begin begin
{$IFDEF FPC}
ifdRec := Default(TIFDRecord); ifdRec := Default(TIFDRecord);
{$ENDIF}
// Read count of directory entries // Read count of directory entries
numRecords := FixEndian16(ReadWord(AStream)); numRecords := FixEndian16(ReadWord(AStream));

4
components/fpexif/fpemetadata.pas
View File

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

2
components/fpexif/fpeutils.pas
View File

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