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

fcl-res: read version resource in more proper way. The length of value may be 0 (without any content).

Browse Source 
git-svn-id: trunk@37490 -
This commit is contained in:
maciej-izak 2017-10-19 11:46:15 +00:00
parent 7e3ad42f33
commit c2f870b60d
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/fcl-res/src/versionresource.pp
View File

@ -54,7 +54,7 @@ type
function ReadStringFileInfo(toread : integer) : integer;
function ReadVarFileInfo(toread : integer) : integer;
function ReadStringTable(toread : integer;aName : string) : integer;
function ReadWideString: string;
function ReadWideString(toread: integer = -1): string;
procedure WriteFixedBlockLength(const position : int64);
procedure WriteData;
procedure WriteFixedInfos;
@ -300,7 +300,7 @@ begin
begin
before:=RawData.Position;
ReadBlockHeader(block);
value:=ReadWideString;
value:=ReadWideString(block.vallength);
AlignDWordReading;
tmp:=RawData.Position-before;
dec(toread,tmp); inc(Result,tmp);
@ -308,20 +308,24 @@ begin
end;
end;
function TVersionResource.ReadWideString: string;
function TVersionResource.ReadWideString(toread: integer): string;
var w : word;
ws : widestring;
i: integer = 0;
begin
ws:='';
if toread=0 then
exit('');
w:=0;
repeat
RawData.ReadBuffer(w,2);
if w = 0 then break;
if (toread=-1) and (w = 0) then break;
{$IFDEF ENDIAN_BIG}
w:=SwapEndian(w);
{$ENDIF}
ws:=ws+widechar(w);
until false;
inc(i);
until i = toread;
Result:=ws;
end;