发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 8.3 Web Server程序响应用户
发信站: 哈工大紫丁香 (2000年09月01日16:35:38 星期五), 站内信件

Delphi开发Web Server程序响应用户的输入  

随着Internet/Intranet的飞速发展和普遍应用，对在Internet/Intranet上的应用
程序的需求越来越多，于是Java和ActiveX Form应运而生，但是，现在Internet的
带宽还非常低下的情况下，这种基于Client端的应用是非常困难的，下载一个非常
小、功能非常简单的Java Applet就需要非常长的时间，而且还存在着用户使用浏
览器不支持这种新技术的可能。在这种情况下，基于服务器的CGI，Win-CGI，
ISAPI/NSAPI还是一种主要的方式。使用Delphi 3开发Web Server程序是非常简单
的，Delphi 3中提供了大量的元件和对象，支持Web Server程序的开发。

在Delphi 3的Demos中提供了简单的Web Server程序开发的例程，本文主要集中在
此例程中没有涉及到的响应用户输入的问题。

HTML中用户输入主要是 
例如(查询某人的电话号码)：



姓名: 

 

在这个例子中使用了POST方法。那么在Web Server应用程序中，如何得知用户的输
入信息呢？

在HTTP协议中，客户端向Web Server应用程序返回数据主要是通过URL和CONTENT部
分。例如URL中：http://www.delphi.com.cn/dfyw/cgi-bin/delinfo.exe?id=10，
这里，id=10数据参数，告诉delinfo.exe显示从ID=10开始的信息，这一般应用在
数据量较少的情况下，优点是比较容易输入参数，缺点是数据量不能太大，并影响
URL的显示。在CONTENT中保存数据信息的优点是不影响URL的显示，而且数据量较
大，缺点是用户只能使用 
除了POST方法使用CONTENT部分返回数据以外，其它方法都是通过URL来返回数据的
。

Delphi中有TWebRequest对象，这个对象将HTTP返回的信息进行分析，非常容易使
用。对于CONTENT中的数据，TWebRequest使用ContentFields，将数据分析成为一
个TStrings，可以直接使用Request.ContentFields.Values['name']来都取数据。
而URL中的数据，TWebRequest使用QueryFields，也将数据分析成为了一个
TStrings，可以直接使用Request.QueryFields.Values['name']来读取数据。

例如上面的HTML返回的消息处理：

if Request.ContentFields.Values['name']<’’ then

Response.Content:= Request.ContentFields.Values['name']

+’的电话号码是：’+QueryTelCode(Request.ContentFields.Values['name'])

else

Response.Content:=’请输入用户名’;

 
 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]