如何在Delphi中实现ASP编程
1个回答
展开全部
但是脚本语言是一种非编译的语言,其所开发的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('
您的姓名是:'); repsonse.write(request.form.item['Name']); repsonse.write('');//从所要建立的网页中读出用户名// repsonse.write('
您的工作是:'); repsonse.write(request.form.item['work']); repsonse.write('');//从所要建立的网页中读出用户工作// repsonse.write('
您用的开发工具:'); if(request.form.item['delphi'].count>0) repsonse.write('delphi'); if(request.form.item['bcb'].count>0) repsonse.write('c++ Builder');//判断用户所用的开发工具// repsonse.write(''); repsonse.write('
您的身份:'); repsonse.write(request.form.item['Identity']); repsonse.write('');//读出用户的身份// end; 4、对程序滑码进行编译并在delphi中进行注册为PMyAspObject.dll文件。 5、编写用于连接的ASP脚本语言文件MyAsp.asp 这是一个用delphi建立的ASP对象 你填的内容如下 6、建立用于显示的网页Myhtm.htm
您的姓名是:'); repsonse.write(request.form.item['Name']); repsonse.write('');//从所要建立的网页中读出用户名// repsonse.write('
您的工作是:'); repsonse.write(request.form.item['work']); repsonse.write('');//从所要建立的网页中读出用户工作// repsonse.write('
您用的开发工具:'); if(request.form.item['delphi'].count>0) repsonse.write('delphi'); if(request.form.item['bcb'].count>0) repsonse.write('c++ Builder');//判断用户所用的开发工具// repsonse.write(''); repsonse.write('
您的身份:'); repsonse.write(request.form.item['Identity']); repsonse.write('');//读出用户的身份// end; 4、对程序滑码进行编译并在delphi中进行注册为PMyAspObject.dll文件。 5、编写用于连接的ASP脚本语言文件MyAsp.asp 这是一个用delphi建立的ASP对象 你填的内容如下 6、建立用于显示的网页Myhtm.htm
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询