📄 web.cpp
字号:
//---------------------------------------------------------------------------
#include "Web.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TWebModule1 *WebModule1;
//---------------------------------------------------------------------------
__fastcall TWebModule1::TWebModule1(TComponent* Owner)
: TWebModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TWebModule1::WebModule1WebActionItem1Action(
TObject *Sender, TWebRequest *Request, TWebResponse *Response,
bool &Handled)
{
AnsiString HTML="<HTML>"; //创建保存HTML语句的变量
HTML=HTML+"<BODY>"; //以下语句和编写标准HTML文本一样
HTML=HTML+"<H1>这是静态页面的演示效果</H1>";
HTML=HTML+"<P>作者 袁辉</P>";
HTML=HTML+"</BODY>";
HTML=HTML+"</HTML>";
Response->Content=HTML; //将HTML变量指定到Web模块的Response属性中
}
//---------------------------------------------------------------------------
void __fastcall TWebModule1::WebModule1WebActionItem2Action(
TObject *Sender, TWebRequest *Request, TWebResponse *Response,
bool &Handled)
{
AnsiString HTML="<HTML>";
HTML=HTML+"<BODY>";
HTML=HTML+"<H1>这是简单动态页面的演示效果</H1>"; //修改文字
HTML=HTML+"<H1>现在时间为：</H1>"; //增加的代码
HTML=HTML+DateTimeToStr(Now()); //增加的代码，显示当前时间
HTML=HTML+"<P>作者 袁辉</P>";
HTML=HTML+"</BODY>";
HTML=HTML+"</HTML>";
Response->Content=HTML;
}
//---------------------------------------------------------------------------
void __fastcall TWebModule1::WebModule1WebActionItem3Action(
TObject *Sender, TWebRequest *Request, TWebResponse *Response,
bool &Handled)
{
Response->Content=PageProducer1->Content();
}
//---------------------------------------------------------------------------
void __fastcall TWebModule1::PageProducer1HTMLTag(TObject *Sender,
TTag Tag, const AnsiString TagString, TStrings *TagParams,
AnsiString &ReplaceText)
{
TStrings *userinfo=NULL; //定义保存请求信息的变量
userinfo=Request->ContentFields; //取得当前的用户请求信息
ReplaceText=userinfo->Values[TagString]; //将用户的请求信息放到响应信息中
}
//---------------------------------------------------------------------------
void __fastcall TWebModule1::WebModule1WebActionItem4Action(
TObject *Sender, TWebRequest *Request, TWebResponse *Response,
bool &Handled)
{
PageProducer1->HTMLFile="newpage1.htm"; //将HTML样板指定给页面生成器
Response->Content=PageProducer1->Content(); //将页面生成器的内容指定给调度器响应内容
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -