Browse Source

* Attempt to fix Bug ID #25940

git-svn-id: trunk@27493 -
michael 11 years ago
parent
commit
12e9772111
1 changed files with 4 additions and 1 deletions
  1. 4 1
      packages/fcl-web/src/base/custcgi.pp

+ 4 - 1
packages/fcl-web/src/base/custcgi.pp

@@ -352,7 +352,10 @@ begin
             Sleep(ContentReadRetryInterval);
             Sleep(ContentReadRetryInterval);
           end
           end
         else
         else
+          begin
+          RetryCount:=0; // We got data, so let's reset this.
           AbortRead:=DoContentRead(PByte(@S[BytesRead+1]),A);
           AbortRead:=DoContentRead(PByte(@S[BytesRead+1]),A);
+          end;
         BytesRead:=BytesRead+a;
         BytesRead:=BytesRead+a;
       until (BytesRead>=Cl) or (AbortRead);
       until (BytesRead>=Cl) or (AbortRead);
       // In fact the request is incomplete, but this is not the place thrown an error for that
       // In fact the request is incomplete, but this is not the place thrown an error for that
@@ -373,7 +376,7 @@ end;
 
 
 function TCGIRequest.DoContentRead(B: PByte; Len: Integer): Boolean;
 function TCGIRequest.DoContentRead(B: PByte; Len: Integer): Boolean;
 begin
 begin
-  Result:=True;
+  Result:=False;
   if Assigned(FOnContentRead) then
   if Assigned(FOnContentRead) then
     FOnContentRead(Self,B,Len,Result);
     FOnContentRead(Self,B,Len,Result);
 end;
 end;