用Delphi編寫ASP的ActiveX

ASP中的ActiveX伺服器組件為標準的Automation ActiveX組件，只要使用由ASP提供的介面和遵守ASP有關規則便可。Delphi 作為一種高效、快速、強大的開發語言，為開發COM組件提供了很強的功能。本文意在通過舉例介紹如何運用Delphi編寫ASP中的ActiveX 組件。

通過以下步驟建立ASP中的ActiveX 伺服器組件：

1.建立一個ActiveX library工程

開啟Delphi編輯器，選擇選單中的File/New，在New Item中選擇 the ActiveX 項中的ActiveX Library選項，Delphi將自動產生以下代碼：

library Project1;

uses

ComServ;

exports

DllGetClassObject;

DllCanUnloadNow;

DllRegisterServer;

DllUnregisterServer;

{＄R ＊.RES}

begin

end.

這是Delphi編譯COM組件時必須的函數，DllGetClassObject函數負責將輸入調用從COM庫轉換到相應的類工廠中；DllCanUnloadNow函數是通知OLE引擎如果沒有程式引用將自動釋放記憶體；DllRegisterServer與DllUnregisterServer函數用來登記COM伺服器。總之Delphi已經為你做好了一切輔助工作，你只需用心編寫主要功能模組便可。

2.在該工程中新增一個automation對象

選擇Delphi編輯器選單中的File/New，在New Item中選擇ActiveX 項中的Automation Object選項，系統將顯示the Automation Object導向，在物件名稱中輸入TestObject和選擇Multiple Instance選項

按OK鍵後系統將彈出類型編輯器，其實這時系統已經產生了兩個單元（Project1_TLB.pas與unit1.pas），unit1.pas中有如下代碼：

initialization

TAutoObjectFactory.Create(ComServer, TTestObject,Class_TestObject,ciMultiInstance);

end.

這是告訴類工廠物件執行的方式與位置。

3.增加組件中的屬性與方法

在類型編輯器中單擊工具列中的方法按鈕增加以下方法：

OnStartPage(unk:IUnknown)

OnEndPage.

Test.

注意在增加方法OnStartPage時，在Parameters項中增加參數unk，類型為Iunknown，增加三項方法後，在類型編輯器中按Refrash鍵，Unit1.pas中將會出現三個函數，在每個函數下寫如下程式：

procedure Ttestobject.OnStartPage(unk: IUnknown);
begin
m_scriptContext := unk as IScriptingContext;
end;

procedure Ttestobject.OnEndPage;
begin
m_scriptContext := nil;
end;

procedure Ttestobject.test;
begin
m_scriptContext.Response.Write('ActiveX Test For Delphi');
end;

當IIS啟用一個ActiveX組件時它會自動尋找組件中是否有OnStartPage與OnEndPage方法，如果存在，伺服器將在開啟本ASP頁時自動執行OnStartPage方法和當本ASP頁所有指令碼執行完畢後自動執行OnEndPage方法。

其中mscriptContext 與IScriptingContext是ASP中負責將ASP轉換成HTML格式必不可少的變數與類型，因此必須將Unit1.pas檔案中的Uses加上ASPTypeLibrary_TLB變成

unit unit1;

interface

uses ComObj,
ActiveX,
Delphi_TLB,

ASPTypeLibrary_TLB,

SysUtils;

ASPTypeLibrary_TLB.Pas檔案可以通過類型庫引入取得，開啟Delphi編輯器中的選單Project/import type library 項，選擇the Microsoft Active Server Pages Type library，按OK，Delphi便會自動產生一個ASPTypeLibrary_TLB.Pas。

4.編譯與註冊

選擇Delphi編輯器中的選單Project/Compile 項編譯檔案，然後選擇Run/Register ActiveX Server對Project1.dll檔案註冊。

5.在ASP檔案中運用Project1.dll

在ASP檔案中加入以下文字：

Set TestASP = Server.CreateObject("Project1.TestObject")

TestASP.Test

通過上面的例子，我們可以發現用Delphi編寫ASP中的ActiveX伺服器組件是十分容易的，加上Delphi豐富的組件與強大的功能，使我們相信運用Delphi編寫特殊的ASP伺服器組件，如資料庫、伺服器上各種資訊與資源訪問等，都會十分方便