WebBroker_PageProducer1_前端_及_结果返回替换

WebBroker_PageProducer1_结果返回替换

前端写在

 

<form action="CK" method="post">
    <input type="checkbox" name="CK1" Value="1">跑步
    <input type="checkbox" name="CK2" Value="2">游泳
    <input type="checkbox" name="CK3" Value="3">爬山
    <input type="checkbox" name="CK4" Value="4">打球
    <p></p>
     <input type="submit" value="提交">
  <#Editor>
</form>

  <#Editor>返回结果

还可以添加参数 

<#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;