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

* Parameter inverted for abortread in content read

Browse Source 
git-svn-id: trunk@27494 -
This commit is contained in:
michael 2014-04-06 17:00:39 +00:00
parent 12e9772111
commit 89092232b9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -354,7 +354,7 @@ begin
else else
begin begin
RetryCount:=0; // We got data, so let's reset this. RetryCount:=0; // We got data, so let's reset this.
AbortRead:=DoContentRead(PByte(@S[BytesRead+1]),A); AbortRead:=Not DoContentRead(PByte(@S[BytesRead+1]),A);
end; end;
BytesRead:=BytesRead+a; BytesRead:=BytesRead+a;
until (BytesRead>=Cl) or (AbortRead); until (BytesRead>=Cl) or (AbortRead);
@ -376,7 +376,7 @@ end;
function TCGIRequest.DoContentRead(B: PByte; Len: Integer): Boolean; function TCGIRequest.DoContentRead(B: PByte; Len: Integer): Boolean;
begin begin
Result:=False; Result:=True;
if Assigned(FOnContentRead) then if Assigned(FOnContentRead) then
FOnContentRead(Self,B,Len,Result); FOnContentRead(Self,B,Len,Result);
end; end;