mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 17:59:45 +02:00
* Fix from Kevin Jesshope to fix concurrent access in case of CGI
This commit is contained in:
parent
87ea9a9e0f
commit
f8bf34303c
@ -310,7 +310,7 @@ Var
|
||||
F : TFileStream;
|
||||
|
||||
begin
|
||||
F:=TFileStream.Create(AFileName,fmOpenRead);
|
||||
F:=TFileStream.Create(AFileName,fmOpenRead or fmShareDenyWrite);
|
||||
try
|
||||
LoadFromStream(F);
|
||||
finally
|
||||
|
Loading…
Reference in New Issue
Block a user