paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 00:16:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: request only write lock when reading from xml

Browse Source 
git-svn-id: trunk@21930 -
This commit is contained in:
paul 2009-10-01 00:44:59 +00:00
parent f2c7c57bbd
commit 0fbe534674
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/laz_xmlread.pas
View File

@ -1355,8 +1355,8 @@ var
MemStream: TMemoryStream; MemStream: TMemoryStream;
begin begin
ADoc := nil; ADoc := nil;
FileStream := TFileStream.Create(UTF8ToSys(AFilename), fmOpenRead); FileStream := TFileStream.Create(UTF8ToSys(AFilename), fmOpenRead or fmShareDenyWrite);
if FileStream=nil then exit; if FileStream = nil then exit;
MemStream := TMemoryStream.Create; MemStream := TMemoryStream.Create;
try try
MemStream.LoadFromStream(FileStream); MemStream.LoadFromStream(FileStream);
@ -1426,7 +1426,7 @@ procedure ReadXMLFragment(AParentNode: TDOMNode; const AFilename: String);
var var
Stream: TStream; Stream: TStream;
begin begin
Stream := TFileStream.Create(UTF8ToSys(AFilename), fmOpenRead); Stream := TFileStream.Create(UTF8ToSys(AFilename), fmOpenRead or fmShareDenyWrite);
try try
ReadXMLFragment(AParentNode, Stream, AFilename); ReadXMLFragment(AParentNode, Stream, AFilename);
finally finally
@ -1497,7 +1497,7 @@ var
Stream: TStream; Stream: TStream;
begin begin
ADoc := nil; ADoc := nil;
Stream := TFileStream.Create(UTF8ToSys(AFilename), fmOpenRead); Stream := TFileStream.Create(UTF8ToSys(AFilename), fmOpenRead or fmShareDenyWrite);
try try
ReadDTDFile(ADoc, Stream, AFilename); ReadDTDFile(ADoc, Stream, AFilename);
finally finally