为什么无法替换 <#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;
<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;
解决方案 »
- 打开fastreport时,出现rtl70.bpl错误
- 如何实现韩文、日文向中文(GB2312)转换?最好提供代码,非常感谢!急!
- 小弟没学过dephi 相知道他与vc的区别
- 如何将字段中不是中文字符去掉???
- 双击 dbgrid 内的相应值的话,出现相应的提示
- 菜鸟级问题,请能者赐教。。。。。。。。。。。
- 关于有用代码调整系统声音
- SoundForge6
- 如何优化ADO系列控件的速度?
- 两个数据库表的合并问题.
- ***只给定一个本地盘(如c或d或e),如何取得符合文件后缀的所有文件***
- 各位帮忙,怎样在输出float数据时加上千分位,我用formatfloat('#,###.##',12345676.77)为什么不行?谢谢!
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
title.HTMLFile:='test.htm';
Response.Content:=title.Content;
end;