用Delphi編寫CGI程序（四）

2019-11-18 18:49:01

字體：大中小

來源：轉載

供稿：網友

從這一講開始，我們將進入 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

上一篇：用Delphi編寫CGI程序（五）

下一篇：用Delphi編寫CGI程序（三）