用Delphi編寫(xiě)CGI程序（四）

2019-11-18 18:49:01

字體：大中小

供稿：網(wǎng)友

從這一講開(kāi) 始，我們將進(jìn) 入 CGI 程序設(shè) 計(jì) 的學(xué) 習(xí) 過(guò) 程。通過(guò) 前面幾講的學(xué) 習(xí)，您已經(jīng) 掌握了 CGI 程序設(shè) 計(jì) 的基礎(chǔ) 知識(shí)。現(xiàn) 在，您可以坐下來(lái) 編寫(xiě) CGI 程序了！

　

三、CGI 程序設(shè) 計(jì)
　　1、服務(wù) 器端附件 (SSI) 及網(wǎng) 關(guān)
　　2、網(wǎng) 關(guān)：通過(guò) WEB 連接其他協(xié) 議

在編寫(xiě) CGI 程序的過(guò) 程中，最好遵循以下幾個(gè) 應(yīng) 用程序設(shè) 計(jì) 的要點(diǎn)：
　　（1）提出問(wèn) 題 -- 您要解決的問(wèn) 題
　　（2）設(shè) 計(jì) 階段 -- 構(gòu) 想出 CGI 程序的基本框架和功能
　　（3）編碼階段 -- 用行動(dòng) 實(shí) 現(xiàn) 思想
　　（4）程序移植 -- 編寫(xiě) 可移植的代碼
　　（5）精益求精 -- 使程序更上一層樓

1、服務(wù) 器端附件 (SSI) 及網(wǎng) 關(guān)

　　在本節(jié) 將介紹服務(wù) 器端附件 SSI(Server Side Include) 和網(wǎng) 關(guān)。嚴(yán) 格的說(shuō)，SSI 并不是 CGI 程序設(shè) 計(jì) 的內(nèi) 容，但 SSI 可以完成一些簡(jiǎn) 單 CGI 程序所能完成的工作，有時(shí) SSI 甚至是最好的選擇。因此，在這里作簡(jiǎn) 單介紹。

　　 SSI 定義了一組嵌入 HTML 文本的命令，在 HTML 文本送往 HTTP 客戶端前，WEB 服務(wù) 器對(duì) 這些 SSI 命令先作預(yù) 處理，將處理后的 HTML 文本輸出到 HTTP 客戶端的瀏覽器。

　　 SSI 的命令格式是：

　　 < !--# 命令參數(shù) =" 值 " -->

　　 SSI 命令同 java 或 JavaScript 不同，它是在服務(wù) 器端處理的，而不是在客戶端處理的，這一點(diǎn) 同 CGI 程序是相似的。當(dāng) 然，在 SSI 的功能范圍內(nèi)，其優(yōu) 點(diǎn) 同 CGI 程序相同，可以提高服務(wù) 器的資源利用率，而且在客戶端用任何 WEB 瀏覽器都可以瀏覽含有 SSI 的 HTML 文本。

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

　　 include 命令

　　唯一支持的參數(shù) 是 file，這是在當(dāng) 前 HTML 文本中插入 file 參數(shù) 指定的文件的內(nèi) 容。如果您了解 C 語(yǔ) 言，可以看出它和 C 語(yǔ) 言中的“#include”命令的功能是一樣的。例如，有兩個(gè) 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>
　　( 不過(guò)，好象 OmniHTTPD 不支持 include 命令，:< !)

　　echo 命令

　　唯一支持的參數(shù) 是 var，它用于顯示服務(wù) 器提供的變量，例如：
　　DOCUMENT_NAME：當(dāng) 前文件名
　　DOCUMENT_URL：SSI 文本的相對(duì) 路徑
　　DATE_LOCAL：當(dāng) 地日期
　　DATE_GMT：GMT(Creenwich 標(biāo) 準(zhǔn) 時(shí) 間 ) 日期
　　LAST_MODIFIED：包含此 SSI 命令的文件的最近修改日期
　　HTTP_USER_AGENT：瀏覽器名。

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

　　當(dāng) 您用瀏覽器打開(kāi) main.shtml 時(shí) 可以看到最后修改時(shí) 間。( 要注意的是，必須將 main.shtml 存儲(chǔ) 在 OmniHTTPD 的 HtDocs 目錄下，在瀏覽器中用地址 http://localhost/main.shtml 訪問(wèn)。)

　　 exec 命令
　　兩個(gè) 參數(shù) 是 cgi 和 cmd。前者調(diào) 用一個(gè) 可執(zhí) 行文件，如 cgi="/cgi-bin/finger.cgi"；后者調(diào) 用一個(gè) 系統(tǒng) 命令，如 cmd="ls"。遺憾的是，OmniHTTPD 不支持此 SSI 命令 ( 也許現(xiàn) 在的最新版支持 )。

　　 config 命令
　　此命令設(shè) 置服務(wù) 器處理文件和顯示日期的方法。它有兩個(gè) 參數(shù)：
　　（1）timefmt，決定顯示日期的格式。在 UNIX 中用 man strftime 查詢可用的值。
　　（2）sizefmt，決定顯示文件長(zhǎng) 度的格式。值為 bytes 或 addrev。這個(gè) 命令在 OmniHTTPD 中也不支持。

　　 fsize 命令　　
　　此命令顯示給定文件的大小。參數(shù) 是 file，指定文件的路徑及文件名。

　　 flastmod 命令
　　此命令顯示指定文件的最近修改日期。參數(shù) 是 file，指定文件的路徑及文件名。

2、網(wǎng) 關(guān)：通過(guò) WEB 連接其他協(xié) 議
　　 HTTP 協(xié) 議無(wú) 法訪問(wèn) Internet 的所有資源，要訪問(wèn) HTTP 協(xié) 議以外的資源時(shí) ( 例如 POP3 和 SMTP 收發(fā) 電子郵件 )，就需要網(wǎng) 關(guān)。CGI 程序是實(shí) 現(xiàn) 網(wǎng) 關(guān) 的好方法。

　　在許多 UNIX 的 HTTP 服務(wù) 器中提供一些常用的網(wǎng) 關(guān)，例如 finger、wais、archie 等。但在 OmniHTTPD 中，沒(méi) 有提供這些網(wǎng) 關(guān)。但我們可以通過(guò) 編寫(xiě) CGI 程序向 OmniHTTPD 中增加網(wǎng) 關(guān) 功能。

表單及其處理

　　 HTML 表單是 WEB 文檔的一部分，用于將用戶填寫(xiě) 的信息提交給服務(wù) 器。通常，這些信息傳遞給 CGI 程序， CGI 程序依據(jù) 輸入信息進(jìn) 行一系列操作或數(shù) 據(jù) 加工，再生成表示處理結(jié) 果的 HTML 文檔發(fā) 回給客戶瀏覽器。

　　由此可見(jiàn) ， CGI 程序的關(guān) 鍵部分是得到輸入數(shù) 據(jù) 和生成 HTML 文檔，而操作和數(shù) 據(jù) 處理部分同大多數(shù) 應(yīng) 用程序相同。在這一講，我將介紹如何在 Perl 和 Delphi 中得到數(shù) 據(jù) 及輸出 HTML 文檔。

　　首先，我們建立一個(gè) 名為 greeting.html 的 HTML 文檔：

　　 greeting.html 文件 ( 存儲(chǔ) 在 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 文件 ( 存儲(chǔ) 在 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!

　　通過(guò) 瀏覽 http://localhost/greeting.html 測(cè) 試 CGI 程序。

　　在上面的 Perl 程序中，作為 CGI 程序，必須用 require "cgi-lib.pl" 來(lái) 引用 cgi-lib.pl 文件，此文件有許多用于 CGI 編程的函數(shù) 和過(guò) 程。 require 相當(dāng) 于 C 中的 #include ，但要注意的是， require 語(yǔ) 句后必須有分號(hào) 。

　　 ReadParse 過(guò) 程讀取 HTML 表單提交的數(shù) 據(jù) ，參數(shù) 是一個(gè) 數(shù) 組指針。要注意的是，在 Perl 中，函數(shù) 和過(guò) 程的調(diào) 用要在前面加上 & 符號(hào) 。

　　 mFirstName 、 mLastName 和 mFullName 是變量。在 Perl 中，變量名前要有 $ 符號(hào) 。

　　 PrintHeader 函數(shù) 實(shí) 際上返回值是 "Content-type: text/html " ，它告訴瀏覽器下面的數(shù) 據(jù) 是 HTML 文檔。

　　生成 HTML 文檔部分很簡(jiǎn) 單，就是用 print 語(yǔ) 句將 HTML 文檔的內(nèi) 容輸出就可以了。怎么樣，會(huì) 用 Perl 編寫(xiě) CGI 程序了吧？

　　下面，我們來(lái) 編寫(xiě) 一段 Delphi 程序來(lái) 完成相同的功能：

　　先關(guān) 閉 Delphi 中的所有項(xiàng) 目，選擇菜單 File/New ，在對(duì) 話框中選擇 Web Server application 類(lèi) 型，使用 CGI Stand-alone excutable 選項(xiàng) ，則出現(xiàn) 一個(gè) 新項(xiàng) 目，其主窗口名為 WebModule1 。

　　在 WebModule1 的 Actions 屬性上雙擊鼠標(biāo) ，出現(xiàn) Actions 屬性編輯窗口。在窗口中新建一 Action ，名為 WebActionItem1 ，將其 Default 屬性設(shè) 為 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 復(fù) 制到 OmniHTTPD 的 cgi-bin 目錄下，并改名為 greeting.cgi 。同時(shí) ，將前面我們寫(xiě) 的 greeting.html 做如下修改：

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

　　這樣，通過(guò) 瀏覽 http://localhost/greeting.html 就可以測(cè) 試用 Delphi 編寫(xiě) 的 CGI 程序了。

　　從這個(gè) 程序可以看出，在 Delphi 中 CGI 程序一得到一個(gè) 請(qǐng) 求就發(fā) 生 WebActionItem 的 OnAction 事件。在這個(gè) 事件中，數(shù) 據(jù) 輸入和 HTML 文檔生成是這樣做的：

　　通過(guò) Request.ContentFields.Values[HTML 表單元素名 ] 得到表單元素的值。

　　通過(guò) 對(duì) Response.Content 賦值生成 HTML 文檔。

　　下面是 Delphi 程序的三個(gè) 文件內(nèi) 容： -----------------------------------------------------------
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

上一篇：用Delphi編寫(xiě)CGI程序（五）

下一篇：用Delphi編寫(xiě)CGI程序（三）