From cdc6ff0a30253c0745a098a89f22771f3b52b7c4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sat, 28 Jan 2023 16:23:39 +0100
Subject: [PATCH] * Avoid error by checking if content was already sent

---
 packages/fcl-web/src/jsonrpc/webjsonrpc.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-web/src/jsonrpc/webjsonrpc.pp b/packages/fcl-web/src/jsonrpc/webjsonrpc.pp
index dea2a8f03d..eb6dc90181 100644
--- a/packages/fcl-web/src/jsonrpc/webjsonrpc.pp
+++ b/packages/fcl-web/src/jsonrpc/webjsonrpc.pp
@@ -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 }