To All Delphi XE2 User:
附件檔案為"HTML App Develop Framework 套件 DelphiXE2 商業評估版V1"

解壓縮密碼為:Http://JoshDevStudio.twgg.org

為180天評估版，不可做為商業用途!!

附加檔案：500e443ba928c_HTML_Extander_XE2評估版.rar

編輯記錄

DLL 程式樣版
library WebApp001;
uses
Windows,
SysUtils,
Classes,
VCL.Dialogs,
VCL.Forms,
ISAPI2,
UAdv_ISAPI_Utils;

//ISAPI Main procedures !!
procedure WebAppUIUpdateProc( WebSession:TAdv_WebSession
;InWebPage,InCtrl,InCtrlClass,InCtrlData:string);
begin
with WebSession do
begin

end;//with...end!!
end;

procedure WebAppInitProc(WebSession:TAdv_WebSession;InInitParams:string;DynamicOwner:TComponent);
begin
with WebSession do
begin

end;//with...end!!
end;

procedure WebAppReleaseProc(WebSession:TAdv_WebSession);
begin
with WebSession do
begin

end;//with...end!!
end;

procedure WebAjaxEventProc(WebSession:TAdv_WebSession;var RunWebMain:boolean);
begin
with WebSession do
begin

end;//with...end!!
end;

procedure WebAppMain(WebSession:TAdv_WebSession;Request:TPub_Request;Response:TPub_Response);
begin
if(Request.EventName = '')then
begin
Response.Write('Hello World !!');
end
else
begin

end;//else...end!!
end;

function HttpExtensionProc(var ECB:TEXTENSION_CONTROL_BLOCK):DWORD; stdcall;
begin
result := DoHttpExtensionProc( Application,'EMPTY-PARAMS',WebAppMain
,WebAppInitProc,WebAppReleaseProc
,WebAjaxEventProc,WebAppUIUpdateProc
,ECB);
end;

Exports
HttpExtensionProc;

//==== DLL Main Procedure ====
procedure DllMain(reason:integer);
begin
case reason of
DLL_PROCESS_ATTACH://Create
begin
//DLL loading...

end;
DLL_PROCESS_DETACH://Destroy
begin
//DLL unloading...

end;
end;
end;//DllMain
begin
//---------------------------------------------------------------------------------
DllProc := @DllMain;
DllMain(DLL_PROCESS_ATTACH);
//---------------------------------------------------------------------------------
end.