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

* Patch from Giulio Bernardi

Browse Source 
* ObjectBinaryToText, ObjectTextToBinary and ObjectTextToResource are
    endian safe and writing and reading extended type is supported on
    machines that don't have an extended type
 - TStream.WriteResourceHeader, TStream.ReadResHeader,
   TStream.FixupResourceHeader are endian safe

git-svn-id: trunk@9397 -
This commit is contained in:
michael 2007-12-05 20:50:26 +00:00
parent 02c714aec1
commit b363afcd0a
1 changed files with 32 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
rtl/objpas/classes/streams.inc
View File

@ -222,17 +222,26 @@
end;
procedure TStream.WriteResourceHeader(const ResName: string; {!!!: out} var FixupInfo: Integer);
var
ResType, Flags : word;
begin
{$IFDEF ENDIAN_LITTLE}
ResType:=$000A;
Flags:=$1030;
{$ELSE}
ResType:=$0A00;
Flags:=$3010;
{$ENDIF}
{ Note: This is a Windows 16 bit resource }
{ Numeric resource type }
WriteByte($ff);
{ Application defined data }
WriteWord($0a);
WriteWord(ResType);
{ write the name as asciiz }
WriteBuffer(ResName[1],length(ResName));
WriteByte(0);
{ Movable, Pure and Discardable }
WriteWord($1030);
WriteWord(Flags);
{ Placeholder for the resource size }
WriteDWord(0);
{ Return current stream position so that the resource size can be
@ -243,35 +252,50 @@
procedure TStream.FixupResourceHeader(FixupInfo: Integer);
var
ResSize : Integer;
ResSize,TmpResSize : Integer;
begin
ResSize := Position - FixupInfo;
{$IFDEF ENDIAN_BIG}
TmpResSize:=SwapEndian(ResSize);
{$ELSE}
TmpResSize:=ResSize;
{$ENDIF}
{ Insert the correct resource size into the placeholder written by
WriteResourceHeader }
Position := FixupInfo - 4;
WriteDWord(ResSize);
WriteDWord(TmpResSize);
{ Seek back to the end of the resource }
Position := FixupInfo + ResSize;
end;
procedure TStream.ReadResHeader;
var
ResType, Flags : word;
begin
try
{ Note: This is a Windows 16 bit resource }
{ application specific resource ? }
if ReadByte<>$ff then
raise EInvalidImage.Create(SInvalidImage);
if ReadWord<>$000a then
ResType:=ReadWord;
{$IFDEF ENDIAN_BIG}
ResType:=SwapEndian(ResType);
{$ENDIF}
if ResType<>$000a then
raise EInvalidImage.Create(SInvalidImage);
{ read name }
while ReadByte<>0 do
;
{ check the access specifier }
if ReadWord<>$1030 then
Flags:=ReadWord;
{$IFDEF ENDIAN_BIG}
Flags:=SwapEndian(Flags);
{$ENDIF}
if Flags<>$1030 then
raise EInvalidImage.Create(SInvalidImage);
{ ignore the size }
ReadDWord;