paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 21:28:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Publish all available & needed properties

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-10-21 13:36:03 +02:00
parent 87a9214983
commit 0a2447a955
7 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-web/src/base/fphtml.pp
View File

@ -514,6 +514,8 @@ type
Property Actions;
Property CreateSession;
Property Session;
Property Kind;
Property AfterInitModule;
Property OnCreateDocument;
Property OnCreateWriter;
Property OnGetContent;

5
packages/fcl-web/src/base/fpwebfile.pp
View File

@ -45,6 +45,11 @@ Type
// Overrides TCustomHTTPModule to implement file serving.
Procedure HandleRequest(ARequest : TRequest; AResponse : TResponse); override;
Property CacheControlMaxAge : Integer Read FCacheControlMaxAge Write FCacheControlMaxAge;
Published
Property CORS;
property Kind;
Property BaseURL;
Property AfterInitModule;
end;
TFPCustomFileModuleClass = Class of TFPCustomFileModule;

5
packages/fcl-web/src/base/fpwebproxy.pp
View File

@ -66,6 +66,11 @@ Type
procedure ReRouteRequest(L: TProxyLocation; ARequest: TRequest; AResponse: TResponse);virtual;
Public
Procedure HandleRequest(ARequest : TRequest; AResponse : TResponse); override;
Published
Property CORS;
Property BaseURL;
Property AfterInitModule;
Property Kind;
end;
{ TProxyManager }

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

@ -113,6 +113,10 @@ Type
Property RouterPath;
Property CreateSession;
Property NameSpace;
Property BaseURL;
Property AfterInitModule;
Property Kind;
Property Session;
Property OnNewSession;
Property OnSessionExpired;
Property CORS;

6
packages/fcl-web/src/jsonrpc/webjsonrpc.pp
View File

@ -143,6 +143,12 @@ type
Property CORS;
Property APIRequestSources;
Property APIRequestName;
Property Session;
Property OnNewSession;
Property OnSessionExpired;
Property Kind;
Property BaseURL;
Property AfterInitModule;
end;
implementation

6
packages/fcl-web/src/restbridge/sqldbrestmodule.pp
View File

@ -37,7 +37,13 @@ Type
Procedure HandleRequest(ARequest : TRequest; AResponse : TResponse); override;
Published
Property Dispatcher : TSQLDBRestDispatcher Read FDispatcher Write SetDispatcher;
Property CORS;
Property BaseURL;
Property AfterInitModule;
Property Kind;
Property Session;
Property OnNewSession;
Property OnSessionExpired;
end;
implementation

4
packages/fcl-web/src/webdata/fpwebdata.pp
View File

@ -490,6 +490,10 @@ type
TFPWebProviderDataModule = Class(TFPCustomWebProviderDataModule)
Published
Property Kind;
Property BaseURL;
Property AfterInitModule;
Property Session;
Property CreateSession;
Property InputAdaptor;
Property ContentProducer;