paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 17:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Mantis ipcserver problem solved caused by the adding of locking in the rtl

Browse Source 
(mantis 15219)

git-svn-id: trunk@14415 -
This commit is contained in:
marco 2009-12-11 22:33:10 +00:00
parent 94689e0be7
commit ac1ea04d60
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-process/src/unix/simpleipc.inc
View File

@ -59,10 +59,11 @@ procedure TPipeClientComm.Connect;
begin
If Not ServerRunning then
Owner.DoError(SErrServerNotActive,[Owner.ServerID]);
// Use this line to allow more then one client communicating with one server
// at the same time
// FStream:=TFileStream.Create(FFileName,fmOpenWrite+fmShareDenyNone);
FStream:=TFileStream.Create(FFileName,fmOpenWrite);
// Use the sharedenynone line to allow more then one client
// communicating with one server at the same time
// see also mantis 15219
FStream:=TFileStream.Create(FFileName,fmOpenWrite+fmShareDenyNone);
// FStream:=TFileStream.Create(FFileName,fmOpenWrite);
end;
procedure TPipeClientComm.Disconnect;