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

* don't execute DoBeforeDataRead unless OnIdle is set

Browse Source
This commit is contained in:
Ondrej Pokorny 2021-08-29 19:16:18 +02:00 committed by Ondrej Pokorny
parent 35c45dfbe5
commit ae0cf1b50f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-web/src/base/fphttpclient.pp
View File

@ -136,7 +136,7 @@ Type
// Called before data is read. // Called before data is read.
Procedure DoBeforeDataRead; virtual; Procedure DoBeforeDataRead; virtual;
// Called when the client is waiting for the server. // Called when the client is waiting for the server.
Procedure DoOnIdle; virtual; Procedure DoOnIdle;
// Called whenever data is read. // Called whenever data is read.
Procedure DoDataRead; virtual; Procedure DoDataRead; virtual;
// Called whenever data is written. // Called whenever data is written.
@ -704,7 +704,10 @@ procedure TFPCustomHTTPClient.DoBeforeDataRead;
var var
BreakUTC: TDateTime; BreakUTC: TDateTime;
begin begin
// use CanRead to keep the client responsive in case the server needs a lot of time to respond // Use CanRead to keep the client responsive in case the server needs a lot of time to respond.
// The request can be terminated in OnIdle - therefore it makes sense only if FOnIdle is set
If not Assigned(FOnIdle) Then
Exit;
if IOTimeout>0 then if IOTimeout>0 then
BreakUTC := IncMilliSecond(NowUTC, IOTimeout); BreakUTC := IncMilliSecond(NowUTC, IOTimeout);
while not Terminated and not FSocket.CanRead(10) and (FSocket.LastError=0) do while not Terminated and not FSocket.CanRead(10) and (FSocket.LastError=0) do