paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 10:39:09 +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 SetOnGetAction(const AValue: TGetActionEvent);
procedure SetTemplate(const AValue: TFPTemplate); procedure SetTemplate(const AValue: TFPTemplate);
Protected 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; Function HandleActions(ARequest : TRequest): Boolean; virtual;
procedure DoOnRequest(ARequest: TRequest; AResponse: TResponse; var AHandled: Boolean); virtual; procedure DoOnRequest(ARequest: TRequest; AResponse: TResponse; var AHandled: Boolean); virtual;
Procedure DoBeforeRequest(ARequest : TRequest); virtual; Procedure DoBeforeRequest(ARequest : TRequest); virtual;
@ -435,9 +439,9 @@ end;
constructor TCustomFPWebModule.CreateNew(AOwner: TComponent; CreateMode : Integer); constructor TCustomFPWebModule.CreateNew(AOwner: TComponent; CreateMode : Integer);
begin begin
inherited; inherited;
FActions:=TFPWebActions.Create(TFPWebAction); FActions:=CreateActions;
FTemplate:=TFPWebTemplate.Create(Self); FTemplate:=CreateTemplate;
FTemplateVars:=TTemplateVars.Create(TTemplateVar); FTemplateVars:=CreateTemplateVars
end; end;
destructor TCustomFPWebModule.Destroy; destructor TCustomFPWebModule.Destroy;
@ -448,6 +452,23 @@ begin
inherited Destroy; inherited Destroy;
end; 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); procedure TCustomFPWebModule.DoOnRequest(ARequest: TRequest; AResponse: TResponse; Var AHandled : Boolean);