unit1.cpp

来自「C++Builder高级应用开发指南随书源码」· C++ 代码 · 共 35 行

//---------------------------------------------------------------------------
#include "Unit1.h"
#include "stdio.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TWebModule1 *WebModule1;
//---------------------------------------------------------------------------
__fastcall TWebModule1::TWebModule1(TComponent* Owner)
	: TWebModule(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TWebModule1::PageReportHTMLTag(TObject *Sender,
      TTag Tag, const AnsiString TagString, TStrings *TagParams,
      AnsiString &ReplaceText)
{
    TWebRequest *Request =((TPageProducer *) Sender)->Dispatcher->Request;
    if(Request->MethodType==mtPost)
    {
       ReplaceText=Request->ContentFields->Values[TagString];
    }
    else if(((TPageProducer *) Sender)->Dispatcher->Request->MethodType==mtGet)
    {
       ReplaceText=Request->QueryFields->Values[TagString];
    }
}
//---------------------------------------------------------------------------