⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 025.htm

📁 Delphi书籍--Delphi网上教程
💻 HTM
字号:
🔍 
<HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=GB2312"><TITLE>-->DELPHI专题--网络应用-->用Delphi编写ASP的ActiveX</TITLE>
<META NAME="keywords" CONTENT=" DELPHI专题--网络应用 用Delphi编写ASP的ActiveX">
<META NAME="description" CONTENT=" - DELPHI专题--网络应用 - 用Delphi编写ASP的ActiveX">

<style>
<!--
#page {position:absolute; z-index:0; left:0px; top:0px}
.tt3 {font: 9pt/12pt "宋体"}
.tt2 {font: 12pt/15pt "宋体"}
a {text-decoration:none}
a:hover {color: blue;text-decoration:underline}
-->
</style>
</HEAD>
<a href="index4.html">返回</a>

<body text="#000000" aLink=#9900ff link=#006699 vLink=#006699 bgcolor="#FFFFFF" leftmargin="3" topmargin="3" marginheight="3" marginwidth="3">
<TABLE WIDTH="100%" CELLPADDING=10 CELLSPACING=0 BORDER=0>
<TR>

<TD class="tt2" bgcolor="#F5F8F8" width="84%"><center><B><FONT style="FONT-SIZE: 16.5pt" COLOR="#FF6666" FACE="楷体_GB2312">用Delphi编写ASP的ActiveX</FONT></B></center>
<hr color="#EE9B73" size="1" width="94%">
<p><span style="font-size: 9pt">　　ASP中的ActiveX服务器组件为标准的Automation 
ActiveX组件，只要使用由ASP提供的接口和遵守ASP有关规则便可。Delphi 
4.0作为一种高效、快速、强大的开发语言，为开发COM组件提供了很强的功能，但不知道什么原因，很少有人运用Delphi编写ASP中的ActiveX服务器组件。本文意在通过举例介绍如何运用Delphi编写ASP中的ActiveX 
组件。</span></p> 
<p><span style="font-size: 9pt">　　通过以下步骤创建ASP中的ActiveX 
服务器组件： </span></p> 
<p><span style="font-size: 9pt">　　1.创建一个ActiveX library工程</span></p> 
<p><span style="font-size: 9pt">　　打开Delphi编辑器，选择选单中的File/New，在New 
Item中选择 the ActiveX 项中的ActiveX Library选项，Delphi将自动生成以下代码： 
</span></p> 
<p><span style="font-size: 9pt">　　library Project1;</span></p> 
<p><span style="font-size: 9pt">　　uses</span></p>
<p><span style="font-size: 9pt">　　 ComServ;</span></p> 
<p><span style="font-size: 9pt">　　exports</span></p>
<p><span style="font-size: 9pt">　　 DllGetClassObject,</span></p> 
<p><span style="font-size: 9pt">　　 DllCanUnloadNow,</span></p> 
<p><span style="font-size: 9pt">　　 DllRegisterServer,</span></p> 
<p><span style="font-size: 9pt">　　 DllUnregisterServer;</span></p> 
<p><span style="font-size: 9pt">　　{＄R ＊.RES}</span></p> 
<p><span style="font-size: 9pt">　　begin</span></p>
<p><span style="font-size: 9pt">　　end.</span></p>
<p><span style="font-size: 9pt">　　这是Delphi编译COM组件时必须的函数，DllGetClassObject函数负责将输入调用从COM库转换到相应的类工厂中；DllCanUnloadNow函数是通知OLE引擎如果没有程序引用将自动释放内存；DllRegisterServer与DllUnregisterServer函数用来登记COM服务器。总之Delphi已经为你做好了一切辅助工作，你只需用心编写主要功能模块便可。</span></p>
<p><span style="font-size: 9pt">　　2.在该工程中新增一个automation对象</span></p>
<p><span style="font-size: 9pt">　　选择Delphi编辑器选单中的File/New，在New 
Item中选择ActiveX 项中的Automation Object选项，系统将显示the Automation 
Object导向，在物件名称中输入TestObject和选择Multiple Instance选项,按OK键后系统将弹出类型编辑器，其实这时系统已经生成了两个单元（Project1—TLB.pas与unit1.pas），unit1.pas中有如下代码：</span></p> 
<p><span style="font-size: 9pt">　　initialization</span></p>
<p><span style="font-size: 9pt">　　 TAutoObjectFactory.Create(ComServer, TTestObject,</span></p> 
<p><span style="font-size: 9pt">　　Class—TestObject, ciMultiInstance);</span></p> 
<p><span style="font-size: 9pt">　　end.</span></p>
<p><span style="font-size: 9pt">　　这是告诉类工厂物件执行的方式与位置。</span></p>
<p><span style="font-size: 9pt">　　3.增加组件中的属性与方法</span></p>
<p><span style="font-size: 9pt">　　在类型编辑器中单击工具栏中的方法按钮增加以下方法：</span></p>
<p><span style="font-size: 9pt">　　OnStartPage(unk:IUnknown)</span></p>
<p><span style="font-size: 9pt">　　OnEndPage.</span></p>
<p><span style="font-size: 9pt">　　Test. </span></p>
<p><span style="font-size: 9pt">　　注意在增加方法OnStartPage时，在Parameters项中增加参数unk，类型为Iunknown，增加三项方法后，在类型编辑器中按Refrash键，Unit1.pas中将会出现三个函数，在每个函数下写如下程序：</span></p>
<p><span style="font-size: 9pt">　　procedure Ttestobject.OnStartPage(unk: IUnknown);</span></p> 
<p><span style="font-size: 9pt">　　 begin</span></p> 
<p><span style="font-size: 9pt">　　 m_scriptContext := unk as IScriptingContext;</span></p> 
<p><span style="font-size: 9pt">　　 end;</span></p> 
<p><span style="font-size: 9pt">　　procedure Ttestobject.OnEndPage;</span></p> 
<p><span style="font-size: 9pt">　　 begin</span></p> 
<p><span style="font-size: 9pt">　　 m_scriptContext := nil;</span></p> 
<p><span style="font-size: 9pt">　　end;</span></p>
<p><span style="font-size: 9pt">　　procedure Ttestobject.test;</span></p> 
<p><span style="font-size: 9pt">　　begin</span></p>
<p><span style="font-size: 9pt">　　 m—scriptContext.Response.Write(′ActiveX Test 
For Delphi′);</span></p> 
<p><span style="font-size: 9pt">　　end;</span></p>
<p><span style="font-size: 9pt">　　当IIS激活一个ActiveX组件时它会自动寻找组件中是否有OnStartPage与OnEndPage方法，如果存在，服务器将在开启本ASP页时自动执行OnStartPage方法和当本ASP页所有脚本执行完毕后自动执行OnEndPage方法。</span></p>
<p><span style="font-size: 9pt">　　其中mscriptContext 与IScriptingContext是ASP中负责将ASP转换成HTML格式必不可少的变量与类型，因此必须将Unit1.pas文件中的Uses加上ASPTypeLibrary—TLB变成</span></p> 
<p><span style="font-size: 9pt">　　unit unit1;</span></p> 
<p><span style="font-size: 9pt">　　interface</span></p>
<p><span style="font-size: 9pt">　　 uses ComObj, ActiveX, Delphi_TLB, ASPTypeLibrary—TLB, 
SysUtils;</span></p> 
<p><span style="font-size: 9pt">　　ASPTypeLibrary—TLB.Pas文件可以通过类型库引入取得，打开Delphi编辑器中的选单Project/import 
type library 项，选择the Microsoft Active Server Pages Type library，按OK，Delphi便会自动生成一个ASPTypeLibrary_TLB.Pas。</span></p> 
<p><span style="font-size: 9pt">　　4.编译与注册</span></p>
<p><span style="font-size: 9pt">　　选择Delphi编辑器中的选单Project/Compile 
项编译文件，然后选择Run/Register ActiveX Server对Project1.dll文件注册。</span></p> 
<p><span style="font-size: 9pt">　　5.在ASP文件中运用Project1.dll</span></p>
<p><span style="font-size: 9pt">　　在ASP文件中加入以下文字：</span></p>
<p><span style="font-size: 9pt">　　 Set TestASP = 
Server.CreateObject(Project1.TestObject)</span></p> 
<p><span style="font-size: 9pt">　　 TestASP.Test</span></p> 
<p><span style="font-size: 9pt">　　通过上面的例子，我们可以发现用Delphi编写ASP中的ActiveX服务器组件是十分容易的，加上Delphi丰富的组件与强大的功能，使我们相信运用Delphi编写特殊的ASP服务器组件，如数据库、服务器上各种信息与资源访问等，都会十分方便。</span></p>
<hr color="#EE9B73" size="1" width="94%">

</TD>

</TR>
</table>
</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -