自由之声社区用delphi制作asp元件 - Powered by Discuz!NT Archiver

山谷 - 2008-1-14 16:10:00

步驟 1：
新增一個 Item, 選擇 ActiveX 頁的 ActiveX Library

步驟 2：
再新增一個 Item, 選擇 ActiveX 頁的 ActiveX Server Object

步驟 3：
此時會出現如下之視窗, 請為此物件取一個名稱(CoClass Name)然後按 OK

步驟 4：
出現如下之視窗, 在左邊樹狀清單中選取 IMyAspObj, 然後為它新增一個屬性(Property), 即按一下上方的新增屬性按鈕(下圖中圈選之小按鈕)

步驟 5：
此時樹狀清單會多出兩個 Property1 項目, 綠色箭頭朝上者為讀取; 朝下者為寫入之用。選取 Property1, 將 Type 改為 BSTR, 當然, 如果您希望此屬性是其他型態也可以, 視所需情況而定, 此例中, 我們將它設為字串。修改之後請按一下重新整理按鈕(下圖圈選之小按鈕)

步驟 6：
回到原始檔視窗, 您會看到 Delphi 已經自動在 Unit1.pas 加了存取 Property1 的程序與函數

步驟 7：
請加入一個 private 變數 TestString 做為測試用(下圖劃紅線處)

步驟 8：
然後在 OnStartPage 程序中給 TestString 一個啟始值, 並且在存取 Property1 的程序與函數中給予簡單的動作(下圖劃紅線處), 此例中, 我們單純的將寫入的值丟給 TestString, 而要讀取時也是單純的將 TestString 的內容丟給 Get_Property1 函數

步驟 9：
至此, 元件算是完成了, 請按 Save All 全部存檔

步驟 10：
存檔時, MyAspObj.asp 是 Delphi 自動產生讓您測試此元件的 asp 檔

步驟 11：
您可以為此專案取一個名稱, 此名稱也同時會用來當作編譯後的 dll 檔名

步驟 12：
存檔後即可進行編譯

步驟 13：
編譯之後, 元件就產生了(MyAXC.dll)

步驟 14：
將元件放到適當位置(通常是放在作業系統目錄中, 或是放在 IIS 的 scripts 目錄底下), 然後執行 regsvr32 登錄此元件

步驟 15：
登錄成功會出現如下之視窗, 如此便可以在您的 asp 中使用這個元件了

步驟 16：
將剛才 Delphi 產生的 MyAspObj.asp 稍作修改, 測試看看; 首先產生 DelphiASPObj 物件, 讀取屬性 Property1 並顯示出來, 其結果應該就是我們給 Property1 的預設值; 其次, 給它另一個值, 再讀取、顯示出來, 此時應該就是新的值了

步驟 17：
用瀏覽器看一下結果, 成功!

自由之声论坛