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

* Avoid error by checking if content was already sent

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-28 16:23:39 +01:00
parent 0e77ef6ebf
commit cdc6ff0a30
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-web/src/jsonrpc/webjsonrpc.pp
View File

@ -400,7 +400,8 @@ begin
AResponse.ContentLength:=AResponse.ContentStream.Size;
R:=''; // Free up mem
end;
AResponse.SendResponse;
if not (AResponse.HeadersSent and AResponse.ContentSent) then
AResponse.SendResponse;
end;
{ TJSONRPCSessionContext }