?ASP中的ActiveX服務(wù)器組件為標準的Automation ActiveX組件，只要使用由ASP提供的接口和遵守ASP有關(guān)規(guī)則便可。Delphi 4.0作為一種高效、快速、強大的開發(fā)語言，為開發(fā)COM組件提供了很強的功能，但不知道什么原因，很少有人運用Delphi編寫ASP中的ActiveX服務(wù)器組件。本文意在通過舉例介紹如何運用Delphi編寫ASP中的ActiveX 組件。

通過以下步驟創(chuàng)建ASP中的ActiveX 服務(wù)器組件：

1.創(chuàng)建一個ActiveX library工程
打開Delphi編輯器，選擇選單中的File/New，在New Item中選擇 the ActiveX 項中的ActiveX Library選項，Delphi將自動生成以下代碼：

view plainprint?

library?Project1;??

uses??

??ComServ;??

exports??

??DllGetClassObject??

??DllCanUnloadNow??

??DllRegisterServer??

??DllUnregisterServer;??

??

{＄R?＊.RES}??

begin??

??

end.??

這是Delphi編譯COM組件時必須的函數(shù)，DllGetClassObject函數(shù)負責將輸入調(diào)用從COM庫轉(zhuǎn)換到相應(yīng)的類工廠中；DllCanUnloadNow函數(shù)是通知OLE引擎如果沒有程序引用將自動釋放內(nèi)存；DllRegisterServer與DllUnregisterServer函數(shù)用來登記COM服務(wù)器。總之Delphi已經(jīng)為你做好了一切輔助工作，你只需用心編寫主要功能模塊便可。

2.在該工程中新增一個automation對象
選擇Delphi編輯器選單中的File/New，在New Item中選擇ActiveX 項中的Automation Object選項，系統(tǒng)將顯示the Automation Object導(dǎo)向，在物件名稱中輸入TestObject和選擇Multiple Instance選項按OK鍵后系統(tǒng)將彈出類型編輯器，其實這時系統(tǒng)已經(jīng)生成了兩個單元（Project1—TLB.pas與unit1.pas），unit1.pas中有如下代碼：

view plainprint?

initialization??

??TAutoObjectFactory.Create(ComServerTTestObjectClass—TestObjectciMultiInstance);??

??

end??

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

3.增加組件中的屬性與方法
在類型編輯器中單擊工具欄中的方法按鈕增加以下方法：
OnStartPage(unk:IUnknown)
OnEndPage.
Test.

注意在增加方法OnStartPage時，在Parameters項中增加參數(shù)unk，類型為Iunknown，增加三項方法后，在類型編輯器中按Refrash鍵，Unit1.pas中將會出現(xiàn)三個函數(shù)，在每個函數(shù)下寫如下程序：

view plainprint?

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方法，如果存在，服務(wù)器將在開啟本ASP頁時自動執(zhí)行OnStartPage方法和當本ASP頁所有腳本執(zhí)行完畢后自動執(zhí)行OnEndPage方法。

其中mscriptContext 與IScriptingContext是ASP中負責將ASP轉(zhuǎn)換成HTML格式必不可少的變量與類型，因此必須將Unit1.pas文件中的Uses加上ASPTypeLibrary—TLB變成

view plainprint?

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文件中加入以下文字：

view plainprint?

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

TestASP.Test??

通過上面的例子，我們可以發(fā)現(xiàn)用Delphi編寫ASP中的ActiveX服務(wù)器組件是十分容易的，加上Delphi豐富的組件與強大的功能，使我們相信運用Delphi編寫特殊的ASP服務(wù)器組件，如數(shù)據(jù)庫、服務(wù)器上各種信息與資源訪問等，都會十分方便。

轉(zhuǎn)載于:https://www.cnblogs.com/xieyunc/archive/2009/04/29/2793691.html

創(chuàng)作挑戰(zhàn)賽新人創(chuàng)作獎勵來咯，堅持創(chuàng)作打卡瓜分現(xiàn)金大獎

總結(jié)

以上是生活随笔為你收集整理的用Delphi编写ASP的ActiveX的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。