用Delphi编写ASP的ActiveX
来源:互联网 发布:禁止app访问wifi网络 编辑:程序博客网 时间:2024/06/04 23:21
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(ComServerTTestObjectClass—TestObjectciMultiInstance);
- 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服务器组件,如数据库、服务器上各种信息与资源访问等,都会十分方便。
- 用Delphi编写ASP的ActiveX
- 用Delphi编写ASP的ActiveX服务器组件的问题
- Delphi使用VB6编写的ActiveX控件???
- Delphi使用VB6编写的ActiveX控件???
- 用delphi编写asp使用的组件
- Delphi使用VB编写的ActiveX控件全攻略
- Delphi使用VB编写的ActiveX控件全攻略
- Delphi使用VB编写的ActiveX控件全攻略
- Delphi使用VB编写的ActiveX控件全攻略
- Delphi使用VB编写的ActiveX控件全攻略
- 用 Delphi 7 创建 ActiveX 组件交 ASP 使用
- 用 Delphi 7 创建 ActiveX 组件交 ASP 使用
- VB编写的ASP可用的ActiveX组件
- Delphi编写asp组件
- Delphi编写高精度定时器ActiveX控件
- 用VB编写ActiveX DLL实现ASP编程
- 用VB编写ActiveX DLL实现ASP编程
- 用VB编写ActiveX DLL实现ASP封装编程
- 网上一好人收集的PDF制作软件大全
- 用Delphi编写Windows服务程序(Winnt Service Application)
- 一个简单的复数运算
- applicationresources.properties 乱码
- 忙!忙!忙!忙!忙!
- 用Delphi编写ASP的ActiveX
- MYSQL5 安装图文教程
- 关于js select 上移,下移,置顶,置底
- UindexFTP基于ICS实现的FTP操作类[转]
- 两个简单的链表操作
- vir.tmp文件病毒删除方法
- Visual Studio Team System 2010 Architecture系列文章
- 对MIDAS的“过时论”的一点看法
- 发现VC编译器和gcc编译器的一点不同