如何在Delphi中实现ASP编程

原创 2001年07月24日 15:17:00
如何在Delphi中实现ASP编程
  众所周知,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目录下即可浏览测试。




利用Delphi编写Socket通信程序

一、Delphi与Socket    计算机网络是由一系列网络通信协议组成的,其中的核心协议是传输层的TCP/IP和UDP协议。TCP是面向连接的,通信双方保持一条通路,好比目前的 电话线,使用te...
  • nanfeiyannan
  • nanfeiyannan
  • 2013年08月22日 20:38
  • 1687

Delphi 串口通信(1)

利用 Delphi实现串口通信的常用的方法有 3种: 一是利用控件,如 MSCOMM控件和 SPCOMM控件; 二是使用 API函数; 三是调用其他串口通信程序。其中利用 API编写...
  • lailai186
  • lailai186
  • 2013年08月02日 10:16
  • 4681

几种编程语言的优缺点

圣经记载:在远古的时候,人类都使用一种语言,全世界的人决定一起造一座通天的塔,就是巴别塔,后来被上帝知道了,上帝就让人们使用不同的语言,这个塔就没能造起来。 巴别塔不建自毁,与其说上帝的分化将人类的语...
  • dbyoung
  • dbyoung
  • 2017年01月22日 09:57
  • 1295

Delphi 多线程编程(1)

本文的内容取自万一博客,并重新加以整理,在此留存仅仅是方便自己学习和查阅。所有代码均亲自测试 delphi7下测试有效。图片均为自己制作。 多线程应该是编程工作者的基础技能, 但这个基础我从来没...
  • lailai186
  • lailai186
  • 2013年04月09日 07:55
  • 2587

Delphi xe7并行编程快速入门

现在多数设备、计算机都有多个CPU单元,即使是手机也是多核的。但要在开发中使用多核的优势,却需要一些技巧,花费时间编写额外的代码。好了,现在可以使用Delphi做并行编程了。在Delphi、C++ B...
  • henreash
  • henreash
  • 2014年11月20日 16:19
  • 6868

如何在Windows7下配置ASP服务器IIS

在百度经验中浏览:http://jingyan.baidu.com/article/5553fa82ed97c765a23934f3.htmlInternet Information Services...
  • testcs_dn
  • testcs_dn
  • 2014年10月23日 23:15
  • 2453

Delphi COM编程介绍

软件重用是业界追求的目标,人们一直希望能够像搭积木一样随意“装配”应用程序,组件对象就充当了积木的角色。所谓组件对象,实际上就是预定义好的、能完成一定功能的服务或接口。问题是,这些组件对象如何与应用程...
  • zang141588761
  • zang141588761
  • 2016年05月13日 14:56
  • 935

ASP如何调用Delphi开发的WebService服务

用Delphi开发的WebService服务方法原型: //判断操作员是否登录成功,返回值true/false,若登录失败sError参数返回失败原因,其原型为: function CzyLogin(...
  • xieyunc
  • xieyunc
  • 2017年02月25日 22:48
  • 548

Delphi编程中,如何在可执行程序中执行四则运算

Delphi编程中,有时我们需要在编译完后的可执行程序中执行四则运算,这是好多年前用过的,现把它整理出来供大家使用,算计形式如下图所示:   调用方法如下代码: procedure TForm1....
  • yangliu
  • yangliu
  • 2013年04月07日 15:08
  • 1079

ASP上传图片代码例子

index.asp
  • tomora
  • tomora
  • 2013年09月15日 10:25
  • 2985
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:如何在Delphi中实现ASP编程
举报原因:
原因补充:

(最多只允许输入30个字)