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

* Fixed so it compiles also in pipesipc

Browse Source 
git-svn-id: trunk@19634 -
This commit is contained in:
michael 2011-11-13 17:08:29 +00:00
parent 6a0078e38a
commit 6ecdf3a3f8
1 changed files with 37 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,8 +24,40 @@ uses sysutils, classes, simpleipc, baseunix;
{$else}
uses baseunix;
{$endif}
{$DEFINE OSNEEDIPCINITDONE}
ResourceString
SErrFailedToCreatePipe = 'Failed to create named pipe: %s';
SErrFailedToRemovePipe = 'Failed to remove named pipe: %s';
{ ---------------------------------------------------------------------
TPipeClientComm
---------------------------------------------------------------------}
Type
TPipeClientComm = Class(TIPCClientComm)
Private
FFileName: String;
FStream: TFileStream;
Public
Constructor Create(AOWner : TSimpleIPCClient); override;
Procedure Connect; override;
Procedure Disconnect; override;
Procedure SendMessage(MsgType : TMessageType; AStream : TStream); override;
Function ServerRunning : Boolean; override;
Property FileName : String Read FFileName;
Property Stream : TFileStream Read FStream;
end;
{$ifdef ipcunit}
implementation
{$endif}
Var
SocketFiles : TStringList;
@ -75,37 +107,6 @@ begin
FreeAndNil(SocketFiles);
end;
end;
{$endif}
ResourceString
SErrFailedToCreatePipe = 'Failed to create named pipe: %s';
SErrFailedToRemovePipe = 'Failed to remove named pipe: %s';
{ ---------------------------------------------------------------------
TPipeClientComm
---------------------------------------------------------------------}
Type
TPipeClientComm = Class(TIPCClientComm)
Private
FFileName: String;
FStream: TFileStream;
Public
Constructor Create(AOWner : TSimpleIPCClient); override;
Procedure Connect; override;
Procedure Disconnect; override;
Procedure SendMessage(MsgType : TMessageType; AStream : TStream); override;
Function ServerRunning : Boolean; override;
Property FileName : String Read FFileName;
Property Stream : TFileStream Read FStream;
end;
{$ifdef ipcunit}
implementation
{$endif}
constructor TPipeClientComm.Create(AOWner: TSimpleIPCClient);
@ -275,5 +276,10 @@ begin
end;
{$else ipcunit}
initialization
IPCInit;
Finalization
IPCDone;
end.
{$endif}