用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服務器組件，如數據庫、服務器上各種信息與資源訪問等，都會十分方便。