forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix error in dub project due to a breaking change in FCL >= 3.2.0 

TJSonParser now fully loads the TStream passed in the ctor
   instead of reading from its position(),
This commit is contained in:
Basile Burg 2020-07-11 20:13:09 +02:00
parent 20ed08e194
commit 9b0a2b5d79
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/u_dubproject.pas
View File

@ -770,9 +770,10 @@ end;
procedure TDubProject.loadFromFile(const fname: string);
var
loader: TMemoryStream;
loader: TStringStream;
parser : TJSONParser;
ext: string;
s: string = '';
bom: dword = 0;
begin
fFilename := fname;
@ -784,7 +785,7 @@ begin
fIsSdl := false;
if ext = '.JSON' then
begin
loader := TMemoryStream.Create;
loader := TStringStream.Create();
try
loader.LoadFromFile(fFilename);
// skip BOMs, they crash the parser
@ -815,8 +816,10 @@ begin
else
loader.Position:= 0;
//
setLength(s, loader.Size - loader.Position);
loader.Read(s[1], loader.Size - loader.Position);
FreeAndNil(fJSON);
parser := TJSONParser.Create(loader, [joIgnoreTrailingComma, joUTF8]);
parser := TJSONParser.Create(s, [joIgnoreTrailingComma, joUTF8]);
try
try
fJSON := parser.Parse as TJSONObject;