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、PUT、GET和HEAD方法，而PUT，GET和HEAD方法返回数据的方式基本相同。

例如(查询某人的电话号码)：

　

　

姓名:






　

在这个例子中使用了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:=’请输入用户名’;

当然，还有一种输入数据是Cookie。Cookie是保存在客户端的一种数据，用来保存访问者的访问信息等。对于Cookie数据使用 CookieFields来进行读取