summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--fhunit.pas4
-rw-r--r--pegelunit.pas4
2 files changed, 6 insertions, 2 deletions
diff --git a/fhunit.pas b/fhunit.pas
index f4e5edc..b76b60f 100644
--- a/fhunit.pas
+++ b/fhunit.pas
@@ -427,8 +427,10 @@ begin
ladeProzess.closeInput;
ladeProzess.closeStderr;
while (ladeProzess.running) or (ladeProzess.output.numBytesAvailable>0) do begin
- if beenden then
+ if beenden then begin
ladeProzess.terminate(0);
+ break;
+ end;
bytesToRead:=ladeProzess.output.numBytesAvailable;
if bytesToRead>0 then begin
setlength(antwort,bytesRead + bufLengMin);
diff --git a/pegelunit.pas b/pegelunit.pas
index c2e4066..26075b2 100644
--- a/pegelunit.pas
+++ b/pegelunit.pas
@@ -380,8 +380,10 @@ begin
ladeProzess.closeInput;
ladeProzess.closeStderr;
while (ladeProzess.running) or (ladeProzess.output.numBytesAvailable>0) do begin
- if beenden then
+ if beenden then begin
ladeProzess.terminate(0);
+ break;
+ end;
bytesToRead:=ladeProzess.output.numBytesAvailable;
if bytesToRead>0 then begin
setlength(antwort,bytesRead + bufLengMin);