From e665efb8ed583e9c59fa2f9d916e021da24f4a52 Mon Sep 17 00:00:00 2001 From: hajny Date: Wed, 28 May 2008 06:34:32 +0000 Subject: * makefiles regenerated with newer fpcmake git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@11107 3ad0048d-3df7-0310-abae-a5850022a9f2 --- packages/fcl-process/src/os2/simpleipc.inc | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'packages/fcl-process/src') 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 -- cgit v1.2.1