Browse Source

* Fix missing inherited

Michaël Van Canneyt 3 years ago
parent
commit
f77bd0226f
1 changed files with 2 additions and 0 deletions
  1. 2 0
      packages/fcl-web/src/jsonrpc/webjsonrpc.pp

+ 2 - 0
packages/fcl-web/src/jsonrpc/webjsonrpc.pp

@@ -356,6 +356,8 @@ Var
   R : TJSONStringType;
   R : TJSONStringType;
 
 
 begin
 begin
+  // We must set SessionRequest
+  Inherited HandleRequest(aRequest,aResponse);
   if CORS.HandleRequest(aRequest,aResponse,[hcDetect,hcSend]) then
   if CORS.HandleRequest(aRequest,aResponse,[hcDetect,hcSend]) then
     exit;
     exit;
   If (Dispatcher=Nil) then
   If (Dispatcher=Nil) then