cgilg.cpp

来自「网络编程的一些实例」· C++ 代码 · 共 73 行

CPP
73 行
字号 
//---------------------------------------------------------------------------
#include "cgilg.h"
//---------------------------------------------------------------------------
#include <fstream>
#pragma package(smart_init)
#pragma resource "*.dfm"
TWebModule1 *WebModule1;
//---------------------------------------------------------------------------
__fastcall TWebModule1::TWebModule1(TComponent* Owner)
	: TWebModule(Owner)
{
}
//---------------------------------------------------------------------------
__fastcall TWebModule1::~TWebModule1()
{
}
//---------------------------------------------------------------------------
void __fastcall TWebModule1::WebModule1WebActionItem2Action(
      TObject *Sender, TWebRequest *Request, TWebResponse *Response,
      bool &Handled)
{
  Response->Content = PageProducer2->Content();
}
//---------------------------------------------------------------------------
void __fastcall TWebModule1::DataSetTableProducer1FormatCell(
      TObject *Sender, int CellRow, int CellColumn, THTMLBgColor &BgColor,
      THTMLAlign &Align, THTMLVAlign &VAlign, AnsiString &CustomAttrs,
      AnsiString &CellData)
{
  if (CellData == "(MEMO)")
    {
     CellData = Table1Notes->AsString;
    }
}
//---------------------------------------------------------------------------
void __fastcall TWebModule1::PageProducer1HTMLTag(TObject *Sender,
      TTag Tag, const AnsiString TagString, TStrings *TagParams,
      AnsiString &ReplaceText)
{
  if(TagString == "BIOTABLE")
    {
     ReplaceText = DataSetTableProducer1->Content();
    }
}
//---------------------------------------------------------------------------
void __fastcall TWebModule1::WebModule1WebActionItem1Action(
      TObject *Sender, TWebRequest *Request, TWebResponse *Response,
      bool &Handled)
{
  Response->Content = PageProducer1->Content();
}
//---------------------------------------------------------------------------

void __fastcall TWebModule1::PageProducer2HTMLTag(TObject *Sender,
      TTag Tag, const AnsiString TagString, TStrings *TagParams,
      AnsiString &ReplaceText)
{
  if(TagString == "COUNTRYTABLE")
    {
     ReplaceText = QueryTableProducer1->Content();
    }
}
//---------------------------------------------------------------------------

void __fastcall TWebModule1::WebModule1DefaultActionItemAction(
      TObject *Sender, TWebRequest *Request, TWebResponse *Response,
      bool &Handled)
{
  Response->Content = "<html><head><title>出错</title></head><body>使用 /biolife 或者 /Country </body></html>";
}
//---------------------------------------------------------------------------

cgilg.cpp - 源码说明

本页面展示了「网络编程的一些实例」中的 cgilg.cpp 源码文件，采用 C++ 编程语言编写，共 73 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与网络编程相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?