• 用Delphi編寫ASP的ActiveX


    ASP中的ActiveX服務器組件為標準的Automation ActiveX組件,只要使用由ASP提供的接口和遵守ASP有關規則便可。Delphi 4.0作為一種高效、快速、強大的開發語言,為開發COM組件提供了很強的功能,但不知道什么原因,很少有人運用Delphi編寫ASP中的ActiveX服務器組件。本文意在通過舉例介紹如何運用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服務器組件,如數據庫、服務器上各種信息與資源訪問等,都會十分方便。

    申明

    非源创博文中的内容均收集自网上,若有侵权之处,请及时联络,我会在第一时间内删除.再次说声抱歉!!!

    博文欢迎转载,但请给出原文连接。

  • 相关阅读:
    NodeJs 的Module.export 和 export
    Angular 调试
    设计模式 -- 访问者
    typescript 枚举
    Swagger 实践 <二>
    eventFlow 系列 <三> 查询所有
    成员变量的隐藏和方法的重写
    Facetoprocess_program_design
    ATM_tests
    transmission protocol
  • 原文地址:https://www.cnblogs.com/Athrun/p/1127833.html
Copyright © 2020-2023  润新知