Delphi 怎样实现ASP编程?

Delphi 中怎么新建activeX DLL项目,Active Server 中怎么新建ASP对象?
能不能把过程详细说明,再举个简单的例子?先谢了!

解决方案 »

  1.   

    /// 拷贝的资料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
      

  2.   

    //拷贝的资料2
    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)  
      

  3.   

    D6和D7都找了,File/New/Other/ActiveX没有Active DLL啊,用Type Library
    不能识别repsonse!
      

  4.   

    你试试 CGI 控件包…… 那里有Reponse 与ASP中使用类似