Browse Source

* Fix compiler warnings

Michaël Van Canneyt 3 years ago
parent
commit
b46f361d91
1 changed files with 1 additions and 6 deletions
  1. 1 6
      packages/fcl-web/src/jsonrpc/fpextdirect.pp

+ 1 - 6
packages/fcl-web/src/jsonrpc/fpextdirect.pp

@@ -74,12 +74,7 @@ Type
   TCustomExtDirectModule = Class(TJSONRPCDispatchModule)
   private
     FAPIPath: String;
-    FCORSAllowCredentials: Boolean;
-    FCORSAllowedOrigins: String;
-    FCORSEmptyDomainToOrigin: Boolean;
-    FCORSMaxAge: Integer;
     FDispatcher: TCustomExtDirectDispatcher;
-    FHandleCors: Boolean;
     FNameSpace: String;
     FOptions: TJSONRPCDispatchOptions;
     FRequest: TRequest;
@@ -249,7 +244,7 @@ procedure TCustomExtDirectModule.HandleRequest(ARequest: TRequest;
 
 Var
   Disp : TCustomExtDirectDispatcher;
-  Req,res : TJSONData;
+  res : TJSONData;
   R : String;
 
 begin