浏览代码

* Fix missing inherited

Michaël Van Canneyt 3 年之前
父节点
当前提交
f77bd0226f
共有 1 个文件被更改,包括 2 次插入0 次删除
  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