为什么无法替换 <#yourname>//==============================Test.htm
<html>
<body>
<p> 你好! <#yourname>欢迎来到红天娱乐工作室!</p>
        </body>
</Html>
//===(建立一个web service application)===================ISAPIprocedure TWebModule1.titleHTMLTag(Sender: TObject; Tag: TTag;
  const TagString: String; TagParams: TStrings; var ReplaceText: String);
begin
   if TagString='yourname' then
     ReplaceText:='GXSH';
end;
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
   title.HTMLFile:='test_1.htm';
   Response.Content:=title.Content;
end;