paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 21:33:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make FPWebModule more extensible

Browse Source 
git-svn-id: trunk@38398 -
This commit is contained in:
michael 2018-03-03 09:30:46 +00:00
parent 2c8f93917b
commit cf07d30bfd
1 changed files with 24 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
packages/fcl-web/src/base/fpweb.pp
View File

@ -118,6 +118,10 @@ Type
procedure SetOnGetAction(const AValue: TGetActionEvent);
procedure SetTemplate(const AValue: TFPTemplate);
Protected
// Override these 3 if you want to have customized versions of the appropriate properties...
function CreateTemplateVars: TTemplateVars; virtual;
function CreateTemplate: TFPTemplate; virtual;
function CreateActions: TFPWebActions; virtual;
Function HandleActions(ARequest : TRequest): Boolean; virtual;
procedure DoOnRequest(ARequest: TRequest; AResponse: TResponse; var AHandled: Boolean); virtual;
Procedure DoBeforeRequest(ARequest : TRequest); virtual;
@ -435,9 +439,9 @@ end;
constructor TCustomFPWebModule.CreateNew(AOwner: TComponent; CreateMode : Integer);
begin
inherited;
FActions:=TFPWebActions.Create(TFPWebAction);
FTemplate:=TFPWebTemplate.Create(Self);
FTemplateVars:=TTemplateVars.Create(TTemplateVar);
FActions:=CreateActions;
FTemplate:=CreateTemplate;
FTemplateVars:=CreateTemplateVars
end;
destructor TCustomFPWebModule.Destroy;
@ -448,6 +452,23 @@ begin
inherited Destroy;
end;
Function TCustomFPWebModule.CreateTemplateVars : TTemplateVars;
begin
Result:=TTemplateVars.Create(TTemplateVar);
end;
Function TCustomFPWebModule.CreateTemplate : TFPTemplate;
begin
Result:=TFPWebTemplate.Create(Self);
end;
Function TCustomFPWebModule.CreateActions : TFPWebActions;
begin
Result:=TFPWebActions.Create(TFPWebAction);
end;
procedure TCustomFPWebModule.DoOnRequest(ARequest: TRequest; AResponse: TResponse; Var AHandled : Boolean);