FCL-Json: should use fmShareDenyNone
Original Reporter info from Mantis: Alextp
-
Reporter name: CudaText man
Original Reporter info from Mantis: Alextp
- Reporter name: CudaText man
Description:
jsonconf.pp
Should used shareDenyNone mode, so app dont show exceptions, if a JSON file is reading by 2 programs at same time.
My code works:
procedure TJSONConfig.LoadFromFile(const AFileName: String);
Var
F : TFileStream;
begin
F:=TFileStream.Create(AFileName,fmOpenRead or fmShareDenyNone);
try
LoadFromStream(F);
finally
F.Free;
end;
end;
Mantis conversion info:
- Mantis ID: 31587
- Fixed in version: 3.1.1
- Fixed in revision: 35644 (#3148129d)
- Target version: 3.2.0