diff --git a/packages/fcl-process/src/unix/simpleipc.inc b/packages/fcl-process/src/unix/simpleipc.inc index 33360c197b..d21d7daf17 100644 --- a/packages/fcl-process/src/unix/simpleipc.inc +++ b/packages/fcl-process/src/unix/simpleipc.inc @@ -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;