diff options
-rw-r--r-- | fhunit.pas | 4 | ||||
-rw-r--r-- | pegelunit.pas | 4 |
2 files changed, 6 insertions, 2 deletions
@@ -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); |