8
Classes, SysUtils, FileUtil, LResources, HTTPDefs, websession, fpHTTP, fpWeb;
14
TFPWebModule1 = class(TFPWebModule)
15
procedure func1callRequest(Sender: TObject; ARequest: TRequest;
16
AResponse: TResponse; var Handled: Boolean);
18
{ private declarations }
19
procedure func1callReplaceTag(Sender: TObject; const TagString:String;
20
TagParams: TStringList; Out ReplaceText: String);
22
{ public declarations }
26
FPWebModule1: TFPWebModule1;
32
procedure TFPWebModule1.func1callRequest(Sender: TObject; ARequest: TRequest;
33
AResponse: TResponse; var Handled: Boolean);
35
Template.FileName := 'mytemplate1.html';
36
Template.AllowTagParams := true;
37
Template.OnReplaceTag := @func1callReplaceTag;
39
AResponse.Content := Template.GetContent;
44
procedure TFPWebModule1.func1callReplaceTag(Sender: TObject; const TagString:
45
String; TagParams: TStringList; Out ReplaceText: String);
47
if AnsiCompareText(TagString, 'TagName1') = 0 then
49
ReplaceText := 'Here I am from the web module!';
52
//Not found value for tag -> TagString
53
ReplaceText := 'Template tag {' + TagString + '} is not implemented yet.';
60
RegisterHTTPModule('TFPWebModule1', TFPWebModule1);