用Delphi编写CGI程序（四）

　2006-02-04 13:31:00　来源：WEB开发网　　　

核心提示：从这一讲开始，我们将进入 CGI 程序设计的学习过程，用Delphi编写CGI程序（四），通过前面几讲的学习，您已经掌握了 CGI 程序设计的基础知识，在这个事件中，数据输入和 HTML 文档生成是这样做

从这一讲开始，我们将进入 CGI 程序设计的学习过程。通过前面几讲的学习，您已经掌握了 CGI 程序设计的基础知识。现在，您可以坐下来编写 CGI 程序了！

　

三、CGI 程序设计
　　1、服务器端附件 (SSI) 及网关
　　2、网关：通过 WEB 连接其他协议

在编写 CGI 程序的过程中，最好遵循以下几个应用程序设计的要点：
　　（1）提出问题 -- 您要解决的问题
　　（2）设计阶段 -- 构想出 CGI 程序的基本框架和功能
　　（3）编码阶段 -- 用行动实现思想
　　（4）程序移植 -- 编写可移植的代码
　　（5）精益求精 -- 使程序更上一层楼

1、服务器端附件 (SSI) 及网关

　　在本节将介绍服务器端附件 SSI(Server Side Include) 和网关。严格的说，SSI 并不是 CGI 程序设计的内容，但 SSI 可以完成一些简单 CGI 程序所能完成的工作，有时 SSI 甚至是最好的选择。因此，在这里作简单介绍。

　　 SSI 定义了一组嵌入 HTML 文本的命令，在 HTML 文本送往 HTTP 客户端前，WEB 服务器对这些 SSI 命令先作预处理，将处理后的 HTML 文本输出到 HTTP 客户端的浏览器。

　　 SSI 的命令格式是：

　　 < !--# 命令参数 =" 值 " -->

　　 SSI 命令同 java 或 JavaScript 不同，它是在服务器端处理的，而不是在客户端处理的，这一点同 CGI 程序是相似的。当然，在 SSI 的功能范围内，其优点同 CGI 程序相同，可以提高服务器的资源利用率，而且在客户端用任何 WEB 浏览器都可以浏览含有 SSI 的 HTML 文本。

　　下面是常用的六个 SSI 命令：
　　（1）Include命令
　　（2）echo 命令
　　（3）exec 命令
　　（4）config 命令
　　（5）fsize 命令
　　（6）flastmod 命令

　　 include 命令

　　唯一支持的参数是 file，这是在当前 HTML 文本中插入 file 参数指定的文件的内容。如果您了解 C 语言，可以看出它和 C 语言中的“#include”命令的功能是一样的。例如，有两个 HTML 文本：main.html 和 header.html，在 main.html 中使用 include 命令：　　main.html:
　　< html>
　　< tilte> Test Include SSI Command < /title>
　　< !--#include file="header.html" -->
　　< body>
　　The above header comes from header.html!
　　< /body>
　　< /html>
　　header.html:
　　< H1> This is a title in header.html! < /H1>
　　( 不过，好象 OmniHTTPD 不支持 include 命令，:< !)

　　echo 命令

　　唯一支持的参数是 var，它用于显示服务器提供的变量，例如：
　　DOCUMENT_NAME：当前文件名
　　DOCUMENT_URL：SSI 文本的相对路径
　　DATE_LOCAL：当地日期
　　DATE_GMT：GMT(Creenwich 标准时间 ) 日期
　　LAST_MODIFIED：包含此 SSI 命令的文件的最近修改日期
　　HTTP_USER_AGENT：浏览器名。

　　例如：main.shtml 　　< html>
　　This document was last updated on < !--#echo var="LAST_MODIFIED"-->
　　< /html>

　　当您用浏览器打开 main.shtml 时可以看到最后修改时间。( 要注意的是，必须将 main.shtml 存储在 OmniHTTPD 的 HtDocs 目录下，在浏览器中用地址 http://localhost/main.shtml 访问。)

　　 exec 命令
　　两个参数是 cgi 和 cmd。前者调用一个可执行文件，如 cgi="/cgi-bin/finger.cgi"；后者调用一个系统命令，如 cmd="ls"。遗憾的是，OmniHTTPD 不支持此 SSI 命令 ( 也许现在的最新版支持 )。

　　 config 命令
　　此命令设置服务器处理文件和显示日期的方法。它有两个参数：
　　（1）timefmt，决定显示日期的格式。在 UNIX 中用 man strftime 查询可用的值。
　　（2）sizefmt，决定显示文件长度的格式。值为 bytes 或 addrev。这个命令在 OmniHTTPD 中也不支持。

　　 fsize 命令　　
　　此命令显示给定文件的大小。参数是 file，指定文件的路径及文件名。

　　 flastmod 命令
　　此命令显示指定文件的最近修改日期。参数是 file，指定文件的路径及文件名。

2、网关：通过 WEB 连接其他协议
　　 HTTP 协议无法访问 Internet 的所有资源，要访问 HTTP 协议以外的资源时 ( 例如 POP3 和 SMTP 收发电子邮件 )，就需要网关。CGI 程序是实现网关的好方法。

　　在许多 UNIX 的 HTTP 服务器中提供一些常用的网关，例如 finger、wais、archie 等。但在 OmniHTTPD 中，没有提供这些网关。但我们可以通过编写 CGI 程序向 OmniHTTPD 中增加网关功能。

表单及其处理

　　 HTML 表单是 WEB 文档的一部分，用于将用户填写的信息提交给服务器。通常，这些信息传递给 CGI 程序， CGI 程序依据输入信息进行一系列操作或数据加工，再生成表示处理结果的 HTML 文档发回给客户浏览器。

　　由此可见， CGI 程序的关键部分是得到输入数据和生成 HTML 文档，而操作和数据处理部分同大多数应用程序相同。在这一讲，我将介绍如何在 Perl 和 Delphi 中得到数据及输出 HTML 文档。

　　首先，我们建立一个名为 greeting.html 的 HTML 文档：

　　 greeting.html 文件 ( 存储在 OmniHTTPD 的 HtDocs 目录下 )
　　 < html>
　　 < head>
　　 < title> This is a greeting page! < /title>
　　 < h1> Greeting < /h1>
　　 < body>
　　 < hr>
　　 < form action="/cgi-bin/greeting.pl" method=POST>
　　 < p> Your First Name: < input type=text name="firstname" size=60 maxlength=80> < /p>
　　 < p> Your Last Name: < input type=text name="lastname" size=60 maxlength=80> < /p>
　　 < hr>
　　 < p> < input type=submit value="All OK!"> < input type=reset value="Clear All"> < /p>
　　 < /form>
　　 < /body>
　　 < /html>

　　下面是 Perl 的 CGI 程序 greeting.pl ：
　　 greeting.pl 文件 ( 存储在 OmniHTTPD 的 cgi-bin 目录下 ) # Greeting You!
require "cgi-lib.pl";

# ===================================
# get input values

&ReadParse(*input);
$mFirstName = $input{'firstname'};
$mLastName = $input{'lastname'};

# ===================================
# do some Operations here

$mFullName = "$mFirstName $mLastName";

# ===================================
# create HTML document to output

PRint &PrintHeader;
print "< html>< head>< title> Greeting You! < /title>< /head> ";
print "< body> Hello, < i>$mFullName< /i> ! ";
print "< hr> by Greeting.pl < /body>< /html>";

# ===================================
# All done!

　　通过浏览 http://localhost/greeting.html 测试 CGI 程序。

　　在上面的 Perl 程序中，作为 CGI 程序，必须用 require "cgi-lib.pl" 来引用 cgi-lib.pl 文件，此文件有许多用于 CGI 编程的函数和过程。 require 相当于 C 中的 #include ，但要注意的是， require 语句后必须有分号。

　　 ReadParse 过程读取 HTML 表单提交的数据，参数是一个数组指针。要注意的是，在 Perl 中，函数和过程的调用要在前面加上 & 符号。

　　 mFirstName 、 mLastName 和 mFullName 是变量。在 Perl 中，变量名前要有 $ 符号。

　　 PrintHeader 函数实际上返回值是 "Content-type: text/html " ，它告诉浏览器下面的数据是 HTML 文档。

　　生成 HTML 文档部分很简单，就是用 print 语句将 HTML 文档的内容输出就可以了。怎么样，会用 Perl 编写 CGI 程序了吧？

　　下面，我们来编写一段 Delphi 程序来完成相同的功能：

　　先关闭 Delphi 中的所有项目，选择菜单 File/New ，在对话框中选择 Web Server application 类型，使用 CGI Stand-alone excutable 选项，则出现一个新项目，其主窗口名为 WebModule1 。

　　在 WebModule1 的 Actions 属性上双击鼠标，出现 Actions 属性编辑窗口。在窗口中新建一 Action ，名为 WebActionItem1 ，将其 Default 属性设为 True ；并在它的 Events 中双击 OnAction 事件，添入下面的代码：
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
　　mFirstName, mLastName, mFullName: string;
　　HtmlDoc: string;
begin
// Get Input Values:
　　mFirstName := Request.ContentFields.Values['firstname'];
　　mLastName := Request.ContentFields.Values['lastname'];
// Do some operations here
　　mFullName := mFirstName + ' ' + mLastName;

// Create HTML document to output
　　HtmlDoc := '< html>< head>< title> Greeting You! < /title>< /head>';
　　HtmlDoc := HtmlDoc + '< body> Hello, < i>' + mFullName + '< /i> !';
　　HtmlDoc := HtmlDoc + '< hr> by Greeting.cgi < /body>< /html>';

　　Response.Content := HtmlDoc;
end;

　　将此工程的单元存为 cgimain.pas ，将工程存为 greeting.dpr 。编译 ( 用 Ctrl+F9) 后，将 greeting.exe 复制到 OmniHTTPD 的 cgi-bin 目录下，并改名为 greeting.cgi 。同时，将前面我们写的 greeting.html 做如下修改：

　　将 < form action="/cgi-bin/greeting.pl" method=POST> 改成
　　　　< form action="/cgi-bin/greeting.cgi" method=POST>

　　这样，通过浏览 http://localhost/greeting.html 就可以测试用 Delphi 编写的 CGI 程序了。

　　从这个程序可以看出，在 Delphi 中 CGI 程序一得到一个请求就发生 WebActionItem 的 OnAction 事件。在这个事件中，数据输入和 HTML 文档生成是这样做的：

　　通过 Request.ContentFields.Values[HTML 表单元素名 ] 得到表单元素的值。

　　通过对 Response.Content 赋值生成 HTML 文档。

　　下面是 Delphi 程序的三个文件内容： -----------------------------------------------------------
greeting.dpr :

program greeting;

{$APPTYPE CONSOLE}

uses
　HTTPApp,
　CGIApp,
　cgimain in 'cgimain.pas' {WebModule1: TWebModule};

{$E cgi}

{$R *.RES}

begin
　Application.Initialize;
　Application.CreateForm(TWebModule1, WebModule1);
　Application.Run;
end.
-----------------------------------------------------------

cgimain.pas :

unit cgimain;

interface

uses Windows, Messages, SysUtils, Classes, HTTPApp;

type
　TWebModule1 = class(TWebModule)
　　procedure WebModule1WebActionItem1Action(Sender: TObject;Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
　private
　　{ Private declarations }
　public
　　{ Public declarations }
　end;

var
　WebModule1: TWebModule1;

implementation

{$R *.DFM}

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;　Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
　mFirstName, mLastName, mFullName: string;
　HtmlDoc: string;
begin
　// Get Input Values:
　mFirstName := Request.ContentFields.Values['firstname'];
　mLastName := Request.ContentFields.Values['lastname'];

　// Do some operations here
　mFullName := mFirstName + ' ' + mLastName;

　// Create HTML document to output
　HtmlDoc := '< html>< head>< title> Greeting You! < /title>< /head>';
　HtmlDoc := HtmlDoc + '< body> Hello, < i>' + mFullName + '< /i> !';
　HtmlDoc := HtmlDoc + '< hr> by Greeting.cgi < /body>< /html>';

　Response.Content := HtmlDoc;
end;

end.

-----------------------------------------------------------
cgimain.dfm ：
object WebModule1: TWebModule1
　OldCreateOrder = False
　Actions = <
　　item
　　　Default = True
　　　Name = 'WebActionItem1'
　　　OnAction = WebModule1WebActionItem1Action
　　end>
　Left = 192
　Top = 107
　Height = 150
　Width = 215
end