To BCB All users

附件為給BCB5版的使用者開發離線WebApp的套件，另附上一個簡易的Sample!!

ZIP檔的解壓密碼為:ktop1234

這是第二版: 多加了一個函式DoInitial_OffLineWebAppWithCtrl( )，方便在BCB5中呼叫離線處理!!

附加檔案：51d396660fc2b_Adv_HTML_BCB5.zip

編輯記錄

想請教BCB5的高手們

函式原型 --->DoInitial_OffLineWebApp(Classes::TComponent* const * inPages, const int inPages_Size);

程式要怎麼帶參數啊? 太久沒用.....忘記怎麼寫了

改成呼叫 

DoInitial_OffLineWebAppWithCtrl(fMain->Adv_Html_PageCtrl);

就簡單多了!!


===================引 用 JL9168 文 章===================
想請教BCB5的高手們

函式原型 --->DoInitial_OffLineWebApp(Classes::TComponent* const * inPages, const int inPages_Size);

程式要怎麼帶參數啊? 太久沒用.....忘記怎麼寫了

編輯記錄

最後附上BCB ISAPI DLL主程式的程式碼

//---------------------------------------------------------------------------
#include
#include
#include
#include
#include
#include

#include "UfMain.h"

#pragma hdrstop
#pragma link "wininet.lib"

USEFORM("UfMain.cpp", fMain);

//---------------------------------------------------------------------------
#define Application Forms::Application
//---------------------------------------------------------------------------
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void*)
{
try
{
fMain = new TfMain(Application);
//------------------------------------------------------------------------------
Uadv_isapi_utils::DoInitial_OffLineWebAppWithCtrl(fMain->Adv_HTML_PageCtrl1);
//------------------------------------------------------------------------------
}
catch (Exception &exception)
{
}
return 1;
}
//-------------------------------------------------------------------------------
//網頁主程式
void _fastcall WebAppMain( TAdv_WebSession* Session, TPub_Request* Request
,TPub_Response* Response)
{
if(Request->EventPage == "")
{
Response->Write(fMain->MainPage->CtrlToHtml("",""));
}
else
{

}
}
//-------------------------------------------------------------------------------
extern "C"
{
int __export WINAPI HttpExtensionProc(TEXTENSION_CONTROL_BLOCK &ECB)
{
pub_App=Application;
pub_InitParamStr = "EMPTY-PARAMS";
pub_WebMainProc = WebAppMain;
pub_InitialProc = NULL;
pub_ReleaseProc = NULL;
pub_AjaxEventProc = NULL;

return Uadv_isapi_utils::HttpExtensionProc(ECB);
}
}

#undef Application
//---------------------------------------------------------------------------