paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 20:11:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Allow users to create descendents of TIODescriptor

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-12-17 15:49:57 +01:00
parent 60518dc113
commit f923348cca
1 changed files with 21 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
packages/fcl-process/src/processbody.inc
View File

@ -72,19 +72,19 @@ Type
protected
Procedure CheckNotRunning; virtual;
// Create handles for new process
Function PrepareCreatedHandleForProcess(aHandle : THandle) : THandle;
Function CreateStandardHandle : THandle;
Function CreatePipeHandle : THandle;
Function CreateFileNameHandle : THandle;
Function CreateNullFileHandle : THandle;
Function CreateCustomHandle : THandle;
Function CreateProcessHandle : THandle;
Function ResolveProcessHandle : THandle;
Function ResolveStream : THandleStream;
Procedure CloseOurHandle;
Procedure CloseTheirHandle(aForceClose : Boolean = false);
Procedure PrepareHandles;
Procedure ResetHandles;
Function PrepareCreatedHandleForProcess(aHandle : THandle) : THandle; virtual;
Function CreateStandardHandle : THandle; virtual;
Function CreatePipeHandle : THandle; virtual;
Function CreateFileNameHandle : THandle; virtual;
Function CreateNullFileHandle : THandle; virtual;
Function CreateCustomHandle : THandle; virtual;
Function CreateProcessHandle : THandle; virtual;
Function ResolveProcessHandle : THandle; virtual;
Function ResolveStream : THandleStream; virtual;
Procedure CloseOurHandle; virtual;
Procedure CloseTheirHandle(aForceClose : Boolean = false);virtual;
Procedure PrepareHandles;virtual;
Procedure ResetHandles;virtual;
Property OwnerProcess : TProcess Read FOwnerProcess;
Property PipeBufferSize : cardinal read FPipeBufferSize write FPipeBufferSize;
Property OurHandle: THandle Read FOurHandle;
@ -175,6 +175,7 @@ Type
procedure CloseProcessHandles; virtual;
procedure Loaded; override;
Procedure SysExecute; virtual;
function CreateIODescriptor(aOwner: TProcess; aHandleType: TProcessHandleType): TIODescriptor; virtual;
Public
Constructor Create (AOwner : TComponent);override;
Destructor Destroy; override;
@ -346,7 +347,7 @@ begin
FRunCommandSleepTime:=100;
FOnRunCommandEvent:=@IntOnIdleSleep;
For HT in TProcessHandleType do
FDescriptors[HT]:=TIODescriptor.Create(Self,HT);
FDescriptors[HT]:=CreateIODescriptor(Self,HT)
end;
Destructor TProcess.Destroy;
@ -363,6 +364,12 @@ begin
Inherited Destroy;
end;
Function TProcess.CreateIODescriptor(aOwner : TProcess; aHandleType : TProcessHandleType) :TIODescriptor;
begin
Result:=TIODescriptor.Create(aOwner,aHandleType);
end;
function TProcess.GetDescriptor(AIndex: Integer): TIODescriptor;
begin
Result:=FDescriptors[TProcessHandleType(aIndex)];