1 files changed, 11 insertions, 6 deletions
diff --git a/tools.pas b/tools.pas
index 9d2a0dd..b9df964 100644
--- a/tools.pas
+++ b/tools.pas
@@ -58,7 +58,7 @@ function dateienMitGueltigerSumme(sumNam: string): tMyStringList;
 implementation
 
 uses
-  lowlevelunit;
+  lowlevelunit, math;
 
 // tDateienMitDaten ************************************************************
 
@@ -489,11 +489,12 @@ var
 
 function testeSummen(sumNam: string): tMyStringListBArray;
 var
-  p:    tProcess;
-  rb,i: longint;
-  s:    string;
-  erg:  tStringList;
-  gut:  boolean;
+  p:     tProcess;
+  rb,i:  longint;
+  s:     string;
+  erg:   tStringList;
+  gut:   boolean;
+  dummy: array of byte;
 const leseHappen=65536;
 begin
   for i:=0 to length(summenVorrat)-1 do
@@ -513,7 +514,11 @@ begin
   p.execute;
   rb:=0;
   s:='';
+  setLength(dummy,1024);
+  fillchar(dummy[0],length(dummy),0);
   while p.running do begin
+    while p.stderr.numBytesAvailable>0 do
+      p.stderr.read(dummy[0],min(length(dummy),p.stderr.numBytesAvailable));
     if p.output.numBytesAvailable=0 then sleep(10)
     else begin
       setLength(s,rb+leseHappen);