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

* Fix compiler warnings

Browse Source
This commit is contained in:
Michaël Van Canneyt 2021-12-28 15:25:20 +01:00
parent 8360b18097
commit b46f361d91
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-web/src/jsonrpc/fpextdirect.pp
View File

@ -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