paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 17:48:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

Tiff ReverseEndian typing error, methods useful for derived classes

Browse Source
This commit is contained in:
Massimo Magnano 2023-07-26 17:18:56 +02:00 committed by Michaël Van Canneyt
parent 8ca4afd2d0
commit 8b82074d65
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/fcl-image/src/fpreadtiff.pas
View File

@ -63,7 +63,6 @@ type
FCheckIFDOrder: TTiffCheckIFDOrder;
FFirstIFDStart: SizeUInt;
FOnCreateImage: TTiffCreateCompatibleImgEvent;
FReverserEndian: boolean;
{$ifdef FPC_Debug_Image}
FDebug: boolean;
{$endif}
@ -83,6 +82,7 @@ type
function ReadWord: Word;
function ReadDWord: DWord;
function ReadQWord: SizeUInt;
function ReadBuffer(var Buffer; Count: Longint): Longint;
procedure ReadValues(StreamPos: SizeUInt;
out EntryType: word; out EntryCount: SizeUInt;
out Buffer: Pointer; out ByteCount: PtrUInt);
@ -135,11 +135,11 @@ type
ImageList: TFPList; // list of TTiffIFD
procedure LoadHeaderFromStream(aStream: TStream);
procedure LoadIFDsFromStream; // call LoadHeaderFromStream before
procedure LoadImageFromStream(Index: integer); // call LoadIFDsFromStream before
procedure LoadImageFromStream(IFD: TTiffIFD); // call LoadIFDsFromStream before
procedure LoadImageFromStream(Index: integer); virtual; // call LoadIFDsFromStream before
procedure LoadImageFromStream(IFD: TTiffIFD); virtual; // call LoadIFDsFromStream before
procedure ReleaseStream;
property StartPos: SizeUInt read fStartPos;
property ReverserEndian: boolean read FReverserEndian;
property ReverseEndian: boolean read FReverseEndian;
property TheStream: TStream read s;
property FirstIFDStart: SizeUInt read FFirstIFDStart;
property BigTiff: Boolean read FBigTiff;
@ -1636,6 +1636,11 @@ begin
{$endif}
end;
function TFPReaderTiff.ReadBuffer(var Buffer; Count: Longint): Longint;
begin
Result :=s.Read(Buffer, Count);
end;
procedure TFPReaderTiff.ReadValues(StreamPos: SizeUInt; out EntryType: word; out
EntryCount: SizeUInt; out Buffer: Pointer; out ByteCount: PtrUInt);
var