diff options
Diffstat (limited to 'packages/fcl-process')
| -rw-r--r-- | packages/fcl-process/Makefile | 2 | ||||
| -rw-r--r-- | packages/fcl-process/src/os2/simpleipc.inc | 11 |
2 files changed, 8 insertions, 5 deletions
diff --git a/packages/fcl-process/Makefile b/packages/fcl-process/Makefile index 3c863da03d..8edb2c5951 100644 --- a/packages/fcl-process/Makefile +++ b/packages/fcl-process/Makefile @@ -1,5 +1,5 @@ # -# Don't edit, this file is generated by FPCMake Version 2.0.0 [2008/05/24] +# Don't edit, this file is generated by FPCMake Version 2.0.0 [2008/05/28] # default: all MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-haiku i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-darwin x86_64-win64 x86_64-embedded arm-linux arm-palmos arm-darwin arm-wince arm-gba arm-nds arm-embedded arm-symbian powerpc64-linux powerpc64-darwin powerpc64-embedded avr-embedded armeb-linux armeb-embedded diff --git a/packages/fcl-process/src/os2/simpleipc.inc b/packages/fcl-process/src/os2/simpleipc.inc index f4f58cfe9d..fc7d857ad8 100644 --- a/packages/fcl-process/src/os2/simpleipc.inc +++ b/packages/fcl-process/src/os2/simpleipc.inc @@ -57,9 +57,11 @@ end; procedure TPipeClientComm.Connect; begin - If Not ServerRunning then + try + FStream := TFileStream.Create (FFileName, fmOpenWrite); + finally Owner.DoError (SErrServerNotActive, [Owner.ServerID]); - FStream := TFileStream.Create (FFileName, fmOpenWrite); + end; end; @@ -83,7 +85,8 @@ end; function TPipeClientComm.ServerRunning: boolean; begin - Result := FileExists (FFileName); +{$WARNING Fake TPipeClientComm.ServerRunning - no safe solution known} + Result := true; end; @@ -124,7 +127,7 @@ procedure TPipeServerComm.StartServer; var H: THandle; begin - if not FileExists (FFileName) then + if not (Assigned (FStream)) then if (DosCreateNPipe (PChar (FFileName), H, np_Access_Inbound, np_ReadMode_Message or np_WriteMode_Message or 1, PipeBufSize, PipeBufSize, 0) <> 0) or |