paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-31 10:00:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented using non blocking TAsyncProcess if compiling IDE with -dUseAsyncProcess

Browse Source 
git-svn-id: trunk@8291 -
This commit is contained in:
mattias 2005-12-11 11:26:56 +00:00
parent 884510044d
commit e2e22e4fb9
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/outputfilter.pas
View File

@ -236,7 +236,7 @@ end;
function TOutputFilter.Execute(TheProcess: TProcess): boolean;
const
BufSize = 1000;
BufSize = 4096;
var
i, Count, LineStart : longint;
OutputLine, Buf : String;
@ -277,8 +277,10 @@ begin
Count:=0;
if (TheAsyncProcess<>nil) then begin
// using non blocking TAsyncProcess
Count:=TheAsyncProcess.NumBytesAvailable;
if (Count=0) and AsyncProcessTerminated then break;
Count:=TheProcess.Output.Read(Buf[1],length(Buf));
end;
if (TheAsyncProcess=nil) and (TheProcess.Output<>nil) then begin
// using a blocking TProcess
@ -288,9 +290,7 @@ begin
break;
end;
end;
{$IFDEF UseAsyncProcess}
DebugLn('TOutputFilter.Execute Count=',dbgs(Count));
{$ENDIF}
//DebugLn('TOutputFilter.Execute Count=',dbgs(Count));
LineStart:=1;
i:=1;
@ -311,13 +311,9 @@ begin
end;
OutputLine:=OutputLine+copy(Buf,LineStart,Count-LineStart+1);
until false;
{$IFDEF UseAsyncProcess}
DebugLn('TOutputFilter.Execute After Loop');
{$ENDIF}
//DebugLn('TOutputFilter.Execute After Loop');
TheProcess.WaitOnExit;
{$IFDEF UseAsyncProcess}
DebugLn('TOutputFilter.Execute TheProcess.ExitStatus=',dbgs(TheProcess.ExitStatus));
{$ENDIF}
//DebugLn('TOutputFilter.Execute TheProcess.ExitStatus=',dbgs(TheProcess.ExitStatus));
if TheProcess.ExitStatus=0 then
ErrorExists:=false;
if ErrorExists and (ofoExceptionOnError in Options) then