paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 18:31:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* open chm in nonexclusive mode. Could cause problems on Windows Vista where filelocks last even longer after closing.

Browse Source 
git-svn-id: trunk@13599 -
This commit is contained in:
marco 2009-08-26 20:13:55 +00:00
parent 106c0673c0
commit 1399b7f8fb
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/wchmhwrap.pas
View File

@ -76,7 +76,7 @@ end;
Constructor TChmWrapper.Create(name:string); Constructor TChmWrapper.Create(name:string);
begin begin
ffs:=Classes.TFileStream.create(name,fmOpenRead); ffs:=Classes.TFileStream.create(name,fmOpenRead or fmsharedenynone);
fchmr:=TChmReader.Create(ffs,True); // owns ffs fchmr:=TChmReader.Create(ffs,True); // owns ffs
findex:=nil; findex:=nil;
if not fchmr.isvalidfile then if not fchmr.isvalidfile then
@ -235,8 +235,10 @@ begin
freeandnil(ftopic); freeandnil(ftopic);
freeandnil(findex); freeandnil(findex);
freeandnil(fchmr); freeandnil(fchmr);
{$ifdef wdebug}
debugmessageS({$i %file%},'TCHMWrapper: destroying ',{$i %line%},'1',0,0);
{$endif}
end; end;
// m:=r.getobject(r.indexfile);
// siteindex.loadfromStream(m);
end. end.