如何使用Delphi编写可用于ASP等程序的DLL文件?在线等.

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了如何使用Delphi编写可用于ASP等程序的DLL文件?在线等.相关的知识,希望对你有一定的参考价值。

因项目需要,客户端ASP页面需要远程读取其他服务器端的页面,用了ASP内置的XMLHTTP组件有一个严重的BUG,在网络不稳定的时候会导致CPU占用100%,所以想通过Delphi自己编译一个读取远程文件的DLL注册到服务器代替ASP内置的XMLHTTP。有哪位大侠肯帮忙,愚感激不尽。

要求很简单,DLL注册后ASP端可以通过 Server.CreateObject("Fish.Fly") 调用,并通过Gethtml方法返回HTML源代码。

支持下面几个属性
Url:目标地址
Encoding:返回数据的编码
UserAgent:伪装主机头
Referer:伪装来源
Timeout:超时时间
ErrorCode:错误代码,为0时表示正常。

今天试了一下IdHTTP 控件,一开始使用procedure GetHTML可以正常返回数据,但是修改成function GetHTML以后就报错,显示“对象不支持此属性或方法”,怎么改都没用,也许小弟愚笨,昨天才下载安装的Delphi,还没有理解透彻。因项目急就拜托哪位好心的大侠出手一下咯。最好能提供源文件我好好学习~~谢谢!!!

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服务器组件,如数据库、服务器上各种信息与资源访问等,都会十分方便。
--------------------------------------------------------------------------------
(作者:孙航东 2000年12月07日 10:01)
众所周知,asp技术是我们在以internet/intranet为平台的web程序的主要技术,在asp应用程序中我们一般使用vbscripts和javascripts两种脚本语言。但是脚本语言是一种非编译的语言,其所开发的web程序存在先天的安全性、执行效率扩张性方面的问题,因此我们一般在开发web系统时用高级语言编写asp执行体,然后用脚本语言作为连接代码去调用asp执行体执行存取。在这方面由于asp技术是微软推出的,因此我们一般利用vb或vc,那么delphi程序员又如何实现呢?
在这方面笔者最近通过inrpisre的资料,实现了在delphi环境中实现asp技术的web编程,现以一个介绍如下:
1、在delphi环境中建立一个新的acdivex dll项目project1,然后通过delphi的active server object建立一个asp对象,在他的coclassname中填入所建立对象的名字myaspobject.
2、通过type library为刚建立的myaspobject对象建立一个将要被脚本语言调用的方法myasprequest.

3、由于刚才所建立的asp对象是从taspobject继承的,应此我们在方法建立中可以直接使用asp对象,现在为我们建立的asp对象填写代码如下:
produce tmyaspobject.myasprequest;

begin
repsonse.write('<p>您的姓名是:');
repsonse.write(request.form.item['name']);
repsonse.write('</p>');//从所要建立的网页中读出用户名//
repsonse.write('<p>您的工作是:');
repsonse.write(request.form.item['work']);
repsonse.write('</p>');//从所要建立的网页中读出用户工作//
repsonse.write('<p>您用的开发工具:');
if(request.form.item['delphi'].count>0)
repsonse.write('delphi');
if(request.form.item['bcb'].count>0)
repsonse.write('c++ builder');//判断用户所用的开发工具//
repsonse.write('</p>');
repsonse.write('<p>您的身份:');
repsonse.write(request.form.item['identity']);
repsonse.write('</p>');//读出用户的身份//
end;
4、对程序进行编译并在delphi中进行注册为pmyaspobject.dll文件。
5、编写用于连接的asp脚本语言文件myasp.asp
<%@language=jscript %>
<html>
<body>
<title>这是一个用delphi建立的asp对象</title>
<center><h3>你填的内容如下</h3></center>
<%
var myasp;
myasp=server.createobject(pmyaspobject.myaspobject);
//生成连接对象//
myasp.myasprequest();//调用自己定义的asp对象//
%>
</body>

</html>
6、建立用于显示的网页myhtm.htm
<form action='localhost/shd/myasp.asp' method='post">
<h1 align='center">请选择</h1>
<p>姓名:<input type='text' size=33 name="name"></p>
<p>工作:<input type='text' size=33 name="work"></p>
<p>开发工具:<input type='checkbox' name='delphi' value="on">delphi
<input type='checkbox'name='bcb'value="on">c++ builder</p>
<p>您的身份:</p>
<p><select name="identity" size="1">
<option>学生</option>
<option>技术人员</option>
</select></p>
<p><input type="submit" name="mysubmit" value="递交">
</form>
7、然后把myhtm.htm和myasp.asp放在个人的web服务器中的shd目录下即可浏览测试。
这个DLL可以注册到MTS管理器中,每次调试不用重启,只需在MTS管理器中右键关机(NT)或关闭(Win2000)
参考技术A New ActiveX Library
New Automation Object,其它就跟普通的一样
参考技术B 其实不需要自己写,已经有人早就写好了。
名字叫AspHTTP。网上可以下载到的。很多提供注册的地方。

怎么打开和修改dll文件的?如何调用和编辑

dll文件一般人是修改不了的,要修改*.dll文件必须要懂汇编,十六进制,ASCII码等专业知识,但如果你有dll文件的源代码并且懂编写这个dll文件的编程语言的话则可任意修改。

dll文件是一种动态连接库文件。本身是不能运行的,必须靠应用程序来调用加载!dll文件的编写也是需要根据主程序的接口来编写!两个程序下同一个名称的dll相互替换都可能会报错的。
参考技术A dll文件即动态链接库文件,是一种可执行文件,它允许程序共享执行特殊任务所必需的代码和其他资源。windows提供的dll文件中包含了允许基于windows的程序在windows环境下操作的许多函数和资源。
dll多数情况下是带有dll扩展名的文件,但也可能是e
参考技术B CMD可以改

以上是关于如何使用Delphi编写可用于ASP等程序的DLL文件?在线等.的主要内容,如果未能解决你的问题,请参考以下文章

使用 Delphi 编写 Windows 集群资源 DLL

易语言这个DLL代码怎么用delphi写?

BPL vs. DLL

delphi编写dll遇到的问题

delphi怎么样编写DLL文件和怎么样去加载我编写的DLL文件,请高手详细给我一步一步写步骤出来,有例子最好

编写从 C++ 应用程序链接的 Delphi DLL:访问 C++ 接口成员函数会导致访问冲突