paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-14 12:06:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed file sharing

Browse Source
This commit is contained in:
peter 1999-03-24 23:25:59 +00:00
parent ddfd53d1db
commit 3515bff9f7
1 changed files with 29 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
rtl/win32/syswin32.pp
View File

@ -433,7 +433,6 @@ end;
procedure do_open(var f;p : pchar;flags:longint); procedure do_open(var f;p : pchar;flags:longint);
{ {
filerec and textrec have both handle and mode as the first items so filerec and textrec have both handle and mode as the first items so
they could use the same routine for opening/creating. they could use the same routine for opening/creating.
@ -441,8 +440,16 @@ procedure do_open(var f;p : pchar;flags:longint);
when (flags and $100) the file will be truncate/rewritten when (flags and $100) the file will be truncate/rewritten
when (flags and $1000) there is no check for close (needed for textfiles) when (flags and $1000) there is no check for close (needed for textfiles)
} }
Const
var file_Share_Read = $00000001;
file_Share_Write = $00000002;
fmShareCompat = $00000000;
fmShareExclusive = $10;
fmShareDenyWrite = $20;
fmShareDenyRead = $30;
fmShareDenyNone = $40;
Var
shflags,
oflags,cd : longint; oflags,cd : longint;
begin begin
AllowSlash(p); AllowSlash(p);
@ -462,6 +469,19 @@ begin
end; end;
{ reset file handle } { reset file handle }
filerec(f).handle:=UnusedHandle; filerec(f).handle:=UnusedHandle;
{ convert filesharing }
shflags:=0;
if ((filemode and fmshareExclusive) = fmshareExclusive) then
{ no sharing }
else
if (filemode = fmShareCompat) or ((filemode and fmshareDenyWrite) = fmshareDenyWrite) then
shflags := file_Share_Read
else
if ((filemode and fmshareDenyRead) = fmshareDenyRead) then
shflags := file_Share_Write
else
if ((filemode and fmshareDenyNone) = fmshareDenyNone) then
shflags := file_Share_Read + file_Share_Write;
{ convert filemode to filerec modes } { convert filemode to filerec modes }
case (flags and 3) of case (flags and 3) of
0 : begin 0 : begin
@ -499,7 +519,7 @@ begin
end; end;
exit; exit;
end; end;
filerec(f).handle:=CreateFile(p,oflags,0,nil,cd,FILE_ATTRIBUTE_NORMAL,0); filerec(f).handle:=CreateFile(p,oflags,shflags,nil,cd,FILE_ATTRIBUTE_NORMAL,0);
{ append mode } { append mode }
if (flags and $10)<>0 then if (flags and $10)<>0 then
begin begin
@ -507,8 +527,8 @@ begin
filerec(f).mode:=fmoutput; {fool fmappend} filerec(f).mode:=fmoutput; {fool fmappend}
end; end;
{ get errors } { get errors }
{ handle -1 is returned sometimes !! (PM) }
if (filerec(f).handle=0) or (filerec(f).handle=-1) then if (filerec(f).handle=0) or (filerec(f).handle=-1) then
{ handle -1 is returned sometimes !! (PM) }
begin begin
errno:=GetLastError; errno:=GetLastError;
Errno2InoutRes; Errno2InoutRes;
@ -994,7 +1014,10 @@ end.
{ {
$Log$ $Log$
Revision 1.35 1999-03-12 00:07:48 pierre Revision 1.36 1999-03-24 23:25:59 peter
* fixed file sharing
Revision 1.35 1999/03/12 00:07:48 pierre
+ code for coff writer + code for coff writer
Revision 1.34 1999/03/10 22:15:31 florian Revision 1.34 1999/03/10 22:15:31 florian