procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  Response.Content := PageProducer1.Content;
end;
Response.Content := PageProducer1.Content;

会触发PageProducer1HTMLTag替换事件。

WebBroker_PageProducer1_结果返回替换, 作用是 在运行时，实时 替换 内容，可以引用 外部HTML，不 重新编译 EXE的情况 下

 前端写在

 现在，改变about.txt文件 的内容，不重新编译Project.exe. 

 

刷新http://localhost:8080/about页面，仍能显示about.txt的新内容

 

还可以添加参数 

<#CURRENTTIME DateTimeFormat=hh:nn:ss > 
procedure TWebModule1.PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
  const TagString: string; TagParams: TStrings; var ReplaceText: string);
begin
//if( CompareText(TagString, 'CURRENTTIME') = 0 ) then
//    if( TagParams.Values['DateTimeFormat'] <> '' ) then
       ReplaceText := FormatDateTime( TagParams.Values['DateTimeFormat'], Now)
//     else
//     ReplaceText := TimeToStr(Now);

end;