paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 11:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Attempt to fix Bug ID #25940

Browse Source 
git-svn-id: trunk@27493 -
This commit is contained in:
michael 2014-04-06 16:55:53 +00:00
parent d45ced0221
commit 12e9772111
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-web/src/base/custcgi.pp
View File

@ -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;