forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

dexed process, drop the asyncproc events and only use the timer

This commit is contained in:
Basile Burg 2019-03-31 13:48:21 +02:00
parent 94c2b5a713
commit 6fa4cf43f5
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/u_processes.pas
View File

@ -240,8 +240,10 @@ begin
if not (poUsePipes in Options) then
exit;
fill(Output, StdoutEx);
fill(Stderr, stderrEx);
if assigned(Output) then
fill(Output, StdoutEx);
if assigned(Stderr) then
fill(Stderr, stderrEx);
end;
procedure TDexedProcess.getFullLines(list: TStrings; consume: boolean = true);
@ -293,13 +295,15 @@ end;
procedure TDexedProcess.setOnTerminate(value: TNotifyEvent);
begin
fRealOnTerminate := value;
TAsyncProcess(self).OnTerminate := @internalDoOnTerminate;
//TAsyncProcess(self).OnTerminate := @internalDoOnTerminate;
end;
procedure TDexedProcess.setOnReadData(value: TNotifyEvent);
begin
fRealOnReadData := value;
TAsyncProcess(self).OnReadData := @internalDoOnReadData;
//TAsyncProcess(self).OnReadData := @internalDoOnReadData;
end;
procedure TDexedProcess.internalDoOnReadData(sender: TObject);
@ -337,7 +341,12 @@ end;
procedure TDexedProcess.checkTerminated(sender: TObject);
begin
if Running then
begin
if assigned(Output) and assigned(StdErr) then
if Output.NumBytesAvailable + Stderr.NumBytesAvailable > 0 then
internalDoOnReadData(self);
exit;
end;
fTerminateChecker.Enabled := false;
internalDoOnTerminate(self);
end;