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

fix, prevent a DUB json withucs-x BOM to be overwritten with a dummy structure

This commit is contained in:
Basile Burg 2015-11-28 02:11:35 +01:00
parent 9a9f74149f
commit ea9b3af4dd
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_dubproject.pas
View File

@ -178,6 +178,7 @@ begin
loader.WriteByte(byte('{')); loader.WriteByte(byte('{'));
loader.WriteByte(byte('}')); loader.WriteByte(byte('}'));
loader.Position:= 0; loader.Position:= 0;
fFilename := '';
end end
else if ((bom and $FEFF) = $FEFF) or ((bom and $FFFE) = $FFFE) then else if ((bom and $FEFF) = $FEFF) or ((bom and $FFFE) = $FFFE) then
begin begin
@ -186,12 +187,13 @@ begin
loader.WriteByte(byte('{')); loader.WriteByte(byte('{'));
loader.WriteByte(byte('}')); loader.WriteByte(byte('}'));
loader.Position:= 0; loader.Position:= 0;
fFilename := '';
end end
else else
loader.Position:= 0; loader.Position:= 0;
// //
FreeAndNil(fJSON); FreeAndNil(fJSON);
parser := TJSONParser.Create(loader); parser := TJSONParser.Create(loader, fSaveAsUtf8);
try try
try try
fJSON := parser.Parse as TJSONObject; fJSON := parser.Parse as TJSONObject;