paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-02 09:56: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;
begin
ADoc := nil;
FileStream := TFileStream.Create(UTF8ToSys(AFilename), fmOpenRead);
if FileStream=nil then exit;
FileStream := TFileStream.Create(UTF8ToSys(AFilename), fmOpenRead or fmShareDenyWrite);
if FileStream = nil then exit;
MemStream := TMemoryStream.Create;
try
MemStream.LoadFromStream(FileStream);
@ -1426,7 +1426,7 @@ procedure ReadXMLFragment(AParentNode: TDOMNode; const AFilename: String);
var
Stream: TStream;
begin
Stream := TFileStream.Create(UTF8ToSys(AFilename), fmOpenRead);
Stream := TFileStream.Create(UTF8ToSys(AFilename), fmOpenRead or fmShareDenyWrite);
try
ReadXMLFragment(AParentNode, Stream, AFilename);
finally
@ -1497,7 +1497,7 @@ var
Stream: TStream;
begin
ADoc := nil;
Stream := TFileStream.Create(UTF8ToSys(AFilename), fmOpenRead);
Stream := TFileStream.Create(UTF8ToSys(AFilename), fmOpenRead or fmShareDenyWrite);
try
ReadDTDFile(ADoc, Stream, AFilename);
finally