Delphi編寫組件封裝asp代碼的基本步驟

2019-11-18 19:31:49

字體：大中小

供稿：網(wǎng)友

如果你想脫離asp愛好者的水平，那么你就應(yīng)該學(xué)會為asp編寫組件。我在google上搜索了一下，Delphi編寫asp組件的文章一共就幾篇，所以今天寫了這篇Delphi編寫asp組件的基礎(chǔ)文章，希望對新手有點(diǎn)幫助。

開始吧，讓我們一起編寫一個(gè)”hello world!”的示例。我這里用的是Delphi 7。

1.文件->新建->其他->ActiveX->ActiveX Library,然后保存成showdll.dPR

2.再次，文件->新建->其他->ActiveX->ActiveX Server Object,填寫CoClassName:showhello,其他不變，點(diǎn)擊ok。

3.現(xiàn)在開始寫程序，先添加一個(gè)方法。選擇Ishowhello->右鍵->New->Method,填寫方法名稱：sayworld。

4．現(xiàn)在開始寫程序，將Unit1保存成show.pas,然后添加方法sayworld的代碼

show.pas的全部代碼如下：

unit show;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses

ComObj, ActiveX, AspTlb, showdll_TLB, StdVcl;

type

Tshowhello = class(TASPObject, Ishowhello)

protected

procedure OnEndPage; safecall;

procedure OnStartPage(const AScriptingContext: IUnknown); safecall;

procedure sayworld; safecall; //sayworld方法

end;

implementation

uses ComServ;

procedure Tshowhello.OnEndPage;

begin

inherited OnEndPage;

end;

procedure Tshowhello.OnStartPage(const AScriptingContext: IUnknown);

begin

inherited OnStartPage(AScriptingContext);

end;

procedure Tshowhello.sayworld(); //定義sayworld方法

begin

response.Write('Hello world'); //里邊的語法和asp一樣的寫法了，就在這里封裝了。

end;

initialization

TAutoObjectFactory.Create(ComServer, Tshowhello, Class_showhello,

ciMultiInstance, tmApartment);

end.

4．點(diǎn)擊運(yùn)行，編譯成dll，并自動注冊了。這時(shí)候會提示：

讓你放到web服務(wù)器上運(yùn)行，好了現(xiàn)在寫個(gè)asp文件調(diào)用一下吧，注意Delphi已經(jīng)生成了一個(gè)asp文件，我們改一下調(diào)用的方法就可以了。

修改后的showhello.asp代碼如下：

<HTML>

<BODY>

<TITLE> Testing Delphi ASP </TITLE>

<H3> You should see the results of your Delphi Active Server method below </H3>

</CENTER>

<HR>

<% Set DelphiASPObj = Server.CreateObject("showdll.showhello")

DelphiASPObj.sayworld

<HR>

</BODY>

</HTML>

在iis的站點(diǎn)下運(yùn)行看看效果吧：

5．其他：

Delphi編寫的組件，用win2000的組件服務(wù)注冊后可以看該組件的接口的方法

6．還有asp頁面和組件間傳遞參數(shù),其實(shí)就是給調(diào)用的方法（函數(shù)）傳遞參數(shù)，注意Delphi里定義的時(shí)候要和vbs 的數(shù)據(jù)類型一致。這些還是大家多實(shí)踐吧。這里主要是想大家學(xué)會封裝asp核心代碼的方法，起個(gè)拋磚引玉的作用。