這篇文章主要講述如何使DELPHI和因特網(wǎng)配合工作。本文中將詳述兩個專門技術(shù)：
WININET：構(gòu)建 FTP，HTTP 和 Gopher 用戶端程序 ISAPI：擴(kuò)充因特網(wǎng)信息服務(wù)，例如，獲得服務(wù)器上的信息并把它們顯示在瀏覽器上。
現(xiàn)今的計算機(jī)世界中，由于微軟公司的因特網(wǎng)戰(zhàn)略而掀起了一個巨大發(fā)展潮流。那些制作
CGI（公共網(wǎng)關(guān)接口）和第三方工具（即使是最基本的因特網(wǎng)工具）的日子將最終一去不復(fù)返了。對復(fù)雜的第三方工具的需求總是存在的，但現(xiàn)在程序員將會發(fā)現(xiàn)他們所需的大量的嵌入操作系統(tǒng)的因特網(wǎng)工具，簡言之，并不需要進(jìn)一步的投資，你就能夠使用免費的DELPHI資源來：
*開發(fā) WEB 瀏覽器
*運行 FTP，HTTP 和 Gopher ，在兩個DELPHI應(yīng)用軟件之間或DELPHI應(yīng)用軟件和基于TCP
（傳輸控制協(xié)議）的服務(wù)器之間操作TCP
因為DELPHI能夠輕松地調(diào)用Windows API，并且它支持OCX/ActiveX，因此微軟的新戰(zhàn)
略和我們的計劃配合的恰到好處。微軟生產(chǎn)工具，而DELPHI程序員獲得收成！
在本篇中有些什么？
這篇文章中包含了三個大部分和一些小部分，有三個大主題：
*尋找資料：那里能搞到本文中提及的技術(shù)資料，而且包含了關(guān)于您所需的運行文中代碼 的軟硬件的簡短說明。
*ISAPI：怎樣使用ISAPI
*WININET：怎樣使用WININET
在大多數(shù)情況下，本文中的ISAPI和WININET部分是完全獨立的，您可以自由地選擇閱讀時的順序。
查找資料，硬件和軟件的要求
您需要一份Microsoft Windows NT 3.51 Server 或 NT 4.0 Server 的拷貝，其中應(yīng)附有因特網(wǎng)信息服務(wù)文檔，因為您需要甬道其中所提到的技術(shù)。這份文檔應(yīng)隨NT Server4.0 附送，NT 3.51的用戶可從微軟的網(wǎng)址上下載。運行Windows NT，您的機(jī)器的最低配置應(yīng)為486兼容，20兆以上內(nèi)存。
您必須有另一臺計算機(jī)裝有網(wǎng)頁瀏覽器。為使本文中的ISAPI部分能夠順利運行，第二臺
機(jī)器必須能夠運行所有支持網(wǎng)頁瀏覽器的軟件。如果在您的機(jī)器上運行的是Windows 95 或 Windows NT
那么本文中的WININET 代碼片就能運行的最好。任何符合條件的網(wǎng)頁瀏覽器在這種技術(shù)環(huán)境下都能夠使用。
在1996年六月以后發(fā)布的Delphi2.0以上的版本中，有您所需的把Delphi連接到因特網(wǎng)上
的幾乎全部資源。
如果您沒有最新的Delphi版本[注：此處作者指的是2.0版本（譯者）]，那么您需要本文
檔中提到的特殊文件，所有這些幾乎都可以從萬維網(wǎng)上免費獲得[注：如果您正在使用Delphi2.0以上版本，則不許考慮（譯者）]。所有本文中提到的技術(shù)在Delphi2.0環(huán)境下都能順利工作，但在16位Delphi環(huán)境下則不一定能順利工作。
如果您需要從萬維網(wǎng)上下載信息，鏈接為：http://www.borland.com/TechInfo/delphi/i
ndex.html
[注：現(xiàn)在已經(jīng)不存在了！:-(( （譯者）]
Delphi2.0的新版本中附有 WININET.PAS 文檔，如果你的拷貝中不包含它，那么上面那個
萬維網(wǎng)節(jié)點可以為您提供。WININET.PAS包括為擴(kuò)展微軟視窗因特網(wǎng)所設(shè)計的變量清單、函數(shù)、類型和屬性。這意味著您能夠輕而易舉地為您的應(yīng)用程序增添FTP、HTTP和Gopher支持。微軟公司的WININET.DLL是免費發(fā)布的，如果它不在您的Windows/System 或Windows/System32 目錄下的話，您可以從微軟公司那里得到它。下面是可獲得WININET.H這個視窗幫助文件的萬維網(wǎng)節(jié)點：
http://www.microsoft.com/intdev/sdk/docs/wininet/default.htm [注：好象也沒了！: -( （譯者）]
一般來說，微軟因特網(wǎng)開發(fā)者的網(wǎng)上之家是微軟節(jié)點的 INTDEV 部分。
除了WININET和ICP之外，另一個為Delphi支持的關(guān)鍵技術(shù)就是ISAP。正如微軟公司文檔中
所描述的，這項技術(shù)能使您“‘寫入’服務(wù)器端的原本和過濾本，從而擴(kuò)充微軟因特網(wǎng)信息服務(wù)和其他ISAPI萬維網(wǎng)服務(wù)”。
如果您需要找到關(guān)于ISAPI的描述，可以去：
http://www.microsoft.com/intdev/sdk/servapi.htm [注：上帝保佑您！;-) （譯者）]
在本文最后，附加了一個名為HTTPEXT.PAS的關(guān)鍵的ISAPI文檔的拷貝。
微軟公司免費發(fā)布的因特網(wǎng)控制包（ICP）是一個OCX/ActiveX控制集，您可以在Delphi中
把它們拖放到應(yīng)用程序上（Delphi2.0中包含這些控件）。他們提供了創(chuàng)建Delphi應(yīng)用程序的即時支持，他們知道如何瀏覽網(wǎng)頁、 如何應(yīng)用FTP、WINSOCK和其他因特網(wǎng)技術(shù)。如果您的Delphi拷貝中沒有包含這些控件，那么您在使用它們之前您應(yīng)該把這些文檔添加進(jìn)Delphi所在的目錄中的Lib目錄下。這些文檔位于上面提及的鏈接中的Borland的INDEX.HTML站點下。在本文中我沒有提到ICP控件，但是任何對這項技術(shù)有興趣的人應(yīng)該明確確認(rèn)他擁有這些
控件的拷貝。
您可以從我的站點下載我的Pascal應(yīng)用文件，他們的名字是STRBOX.PAS 和 MATHBOX.PAS 。
經(jīng)常察看一下這個站點上的關(guān)于本文提到的信息的更新情況是很有好處的。
在這里我假設(shè)讀者對于Delphi和Object Pascal都很熟悉，并且讀者對于因特網(wǎng)，HTML，
瀏覽器和萬維網(wǎng)服務(wù)器有基本的了解。
ISAPI
ISAPI是一項很容易使用然而功能強(qiáng)大的技術(shù)，它能夠讓您擴(kuò)充因特網(wǎng)信息服務(wù)的功能。
這項技術(shù)隨WindowsNT 4.0附送，讓您在您的服務(wù)器上建立WEB、FTP和GOPHER站點。同時這項技術(shù)與WindowsNT3.51 Server[注：指服務(wù)器版本，另一個版本是工作站版本（譯者）]兼容。
在過去，擴(kuò)充網(wǎng)頁服務(wù)器的最佳辦法是建立CGI應(yīng)用程序。它們是強(qiáng)有力的工具，但是也
被他們的執(zhí)行格式所限制[注：如PERL是解釋執(zhí)行的（譯者）]。當(dāng)您從瀏覽其上發(fā)出一個基于CGI的請求到服務(wù)器上時，這個CGI 應(yīng)用程序?qū)O有可能先被強(qiáng)制裝入內(nèi)存中，這會消耗很多時間。而且，在某些環(huán)境下， CGI技術(shù)顯得稍微難用了一點。
ISAPI是一種通過寫入DLLs[注：動態(tài)鏈結(jié)程序（譯者）]從而替代CGI應(yīng)用的方法。您也可
以通過ISAPI來寫過濾文本，但這項技術(shù)我不會在本篇中提及。同CGI相比，ISAPI更容易使用，而且它更快，同時能更好地利用系統(tǒng)資源。在下面幾點中，我將詳細(xì)地介紹為什么ISAPI DLLs比CGI應(yīng)用要更為出色：
ISAPI DLLs與HTTP服務(wù)位于相同的地址，因此他們能夠從服務(wù)器上直接存取HTTP服務(wù)。與CGI應(yīng)用相比，它們 能更快地裝入內(nèi)存；當(dāng)他們在服務(wù)器上發(fā)出請求時，所需的停懸的時間[注：指發(fā)出請求到接受服務(wù)器應(yīng)答的時間（譯者）]要少的多。這點當(dāng)服務(wù)器的負(fù)荷很重時更加重要。
您可以控制DLLs何時被裝載和卸載。例如：您可以在第一次嘗試請求時預(yù)先裝載DLLs；當(dāng)
它們不被使用時卸載 這個ISAPI應(yīng)用DLLs以便釋放系統(tǒng)資源。
正如前文所述，您可以利用ISAPI寫過濾文本[注：一般指C/S結(jié)構(gòu)中的腳本（譯者）]，更
具微軟的文檔，您可以通過ISAPI過濾文本做下面這些事情：
用戶授權(quán)方案
壓縮
加密
登入
通信分析或其他請求分析（例如，尋找 "....etcpassWord" 中的請求）
在本文中，我會著重介紹如何編寫返回數(shù)據(jù)集的DLLs，或者是如何與運行瀏覽器的用戶進(jìn)
行簡單的聯(lián)系。
ISAPI 基礎(chǔ)
HTTPEXT.PAS文件包含了使用ISAPI的關(guān)鍵聲明。這個文件應(yīng)隨1996年6月以后發(fā)表的
Delphi版本分發(fā)。它也可以在Borland的站點上找到，在本文的ISAPI部分附有這份文檔。因為這是基于NT的技術(shù)， 您必須使用Delphi2.0以上的版本來應(yīng)用這項技術(shù)。您不可能在16位的編輯器上應(yīng)用它。
HTTPEXT.PAS包含了微軟公司創(chuàng)立的ISAPI技術(shù)的接口[注：指Delphi接口，ISAPI由C++編
寫（譯者）]。在編寫Delphi的時候并沒有提供ISAPI的用戶接口，我會僅僅就如何使用微軟公司的現(xiàn)有技術(shù)進(jìn)行描述。不過，ISAPI 太容易使用了，而且對大多數(shù)用戶來說，用戶的Delphi對象的版本并不是必須的。
有三個函數(shù)可作為ISAPI DLLs的入口，前兩個是必須的，第三個時可選的。
GetExtensionVersion: 進(jìn)對最低版本做檢查
HttpExtensionPRoc: 這是DLL的入口，就象是Delphi應(yīng)用程序中的 begin...end 塊
TerminateExtension: 這是個可選的程序，它可以用作清除其他內(nèi)存分配的線程。
當(dāng)您在創(chuàng)建ISAPI DLL的時候，您必須引用上面列出的三個函數(shù)中的頭兩個函數(shù)，執(zhí)行這
兩個函數(shù)是所有ISAPI編程的關(guān)鍵。
這三個語句都包含了“字輸出”，使用這項術(shù)語是因為ISAPI DLLs擴(kuò)充了因特網(wǎng)信息服務(wù)
器。（記住，因特網(wǎng)信息服務(wù)器指的是微軟服務(wù)器。如果您要把一臺NT服務(wù)器作為體格網(wǎng)頁服務(wù)器的話，那么，這正是您所需的工具。ISAPI DLLs隨NT4.0分發(fā)，在安裝操作系統(tǒng)是自動安裝。）
ISAPI提供了一個制作服務(wù)器可遵循的標(biāo)準(zhǔn)。例如，它可以把網(wǎng)景公司的復(fù)雜的NSAPI接口
壓縮至相關(guān)的簡練而優(yōu)美的ISAPI來對NSAPI接口進(jìn)行操作。
下面是這兩個重要函數(shù)的聲明
function GetExtensionVersion(var Ver: THSE_VERSION_INFO): BOOL; stdcall;
function HttpExtensionProc(var ECB: TExtensionControlBlock): DWORD; stdcall;
您只要把GetExtensionVersion粘貼到您的DLLs救行了.當(dāng)ISAPI向公眾發(fā)布新版本時您只需要做輕微的改動。
function GetExtensionVersion(var Ver: THSE_VERSION_INFO):
BOOL; stdcall;
begin
Ver.dwExtensionVersion := $00010000; // 1.0 support
Ver.lpszExtensionDesc := 'Delphi 2.0 ISAPI DLL'; // Description
Result := True;
end;
The parameter passed to this function is declared in HTTPEXT.PAS as follows:
有關(guān)的參數(shù)在HTTPEXT.PAS中聲明如下：
PHSE_VERSION_INFO = ^THSE_VERSION_INFO;
THSE_VERSION_INFO = packed record
dwExtensionVersion: DWORD;
lpszExtensionDesc: array[0..HseMaxExtDLLNameLen-1] of Char;
end;
常量HseMaxExtDllNameLen 在聲明中的值為256。紀(jì)錄中的這兩個變量是“自聲明”的， 前一個包含了ISAPI的版本號[注：即變量dwExtensionVersion （譯者）]，后一個則表示用戶定義的一個用來描述DLLs的字符串。
在您引用GetExtensionVersion語句的同時，您必須在您的DLL程序的DPR文件部分增添輸
出部分。在您寫這段語句時您還應(yīng)該寫下：
exports
GetExtensionVersion
HttpExtensionProc;
這就是您在建立這兩個重要ISAPI DLL的函數(shù)時所要做的。下一步，使用 HttpExtensionProc，稍微復(fù)雜一點，因此我將把它作為一個獨立的部分。
與 HttpExtensionProc 一起工作
HttpExtensionProc語句是DLL的入口。它的作用就好比C語言中的 main() 語句，或者
Delphi 中的begin...end 部分
這里有一個簡單的使用GetExtensionVersion語句的例子
function HttpExtensionProc(var ECB: TExtensionControlBlock):
DWORD; stdcall;
var
ResStr: string;
StrLen: Integer;
begin
ECB.lpszLogData := 'Delphi DLL Log';
ECB.dwHTTPStatusCode := 200;
ResStr := ' +
'
'Hello from ISAPI
' +
';
ResStr := Format(
'HTTP/1.0 200 OK'#13#10+
'Content-Type: text/html'#13#10+
'Content-Length: %d'#13#10+
'Content:'#13#10#13#10'%s'
[Length(ResStr)
ResStr]);
StrLen := Length(ResStr);
ECB.WriteClient(ECB.ConnID
Pointer(ResStr)
StrLen
0);
Result := HSE_STATUS_SUCCESS;
end;
如果您在瀏覽其中向這個DLL發(fā)出請求，那么您會得到一頁這樣的回應(yīng)：
Test Server Results
Hello from ISAPI
函數(shù)體內(nèi)的大部分域提供基本信息的簡單的HTML代碼密切相關(guān)。您還需要填寫TExtensionControlBlock中的一些域，如下所示。
注意到在這個紀(jì)錄里有一個叫做WriteClient的函數(shù)指針，您可以引用這個函數(shù)把信息傳
送回瀏覽器。當(dāng)呼叫這個函數(shù)時，您使用到了下面提到的TExtensionControl塊中的ConnID字段。當(dāng)函數(shù)被呼叫時，ConnID為您自動填充。
在察看函數(shù)的代碼之前，請讓我為您演示所有用到的上文提及的HttpExtensionProc函數(shù)
的ISAPI DLL的完整程序
library Isapi1;
library Isapi1;
uses
Windows
SysUtils
HTTPExt;
function GetExtensionVersion( var Ver: THSE_VERSION_INFO ): BOOL; stdcall;
begin
Ver.dwExtensionVersion := $00010000; // We're expecting version 1.0 support
Ver.lpszExtensionDesc := 'Written in Delphi 2.0';
Result := True;
end;
function HttpExtensionProc( var ECB: TEXTENSION_CONTROL_BLOCK ): DWORD;
stdcall;
var
ResStr: string;
StrLen: Integer;
begin
ECB.lpszLogData := 'Delphi DLL Log';
ECB.dwHTTPStatusCode := 200;
ResStr := '
' +
'
Test server results
' +
'
Isapi says hello to DevRel
';
ResStr := Format(
'HTTP/1.0 200 OK'#13#10+
'Content-Type: text/html'#13#10+
'Content-Length: %d'#13#10+
'Content:'#13#10#13#10'%s'
[Length(ResStr)
ResStr]);
StrLen := Length(ResStr);
ECB.WriteClient(ECB.ConnID
Pointer(ResStr)
StrLen
0);
Result := HSE_STATUS_SUCCESS;
end;
exports
GetExtensionVersion
HttpExtensionProc;
begin
end.
為了運行這個DLL程序，您應(yīng)該把它復(fù)制到您的NT服務(wù)器下的腳本目錄中去。在我的NT4.0 機(jī)器中
它就像這樣：
c:winntsystem32inetsrvscriptsmystuffisapi1.dll
在這個例子中，我已經(jīng)創(chuàng)建了我的名為“mystuff”的目錄
它只不過是用來存儲我創(chuàng)建的
ISAPI DLLs。您的目錄，當(dāng)然和我的機(jī)器上的不完全一樣，取決于您的“inetsrv”目錄位置和其它因素。
為成功調(diào)用這個DLL，您應(yīng)該在您的HTML頁上增添這個超鏈接：
當(dāng)用戶點擊這個超鏈接時，ISAPI1 Dll會被呼叫，然后字符串“Hello from ISAPI”會顯
示在用戶的瀏覽器上。如果您并不是把 ISAPI.DLL放在 mystuff 目錄下，那么您應(yīng)該修改上面的HTML代碼來使之與您的情況適應(yīng)。注意，您的目錄必須與目錄 inetsrv 有關(guān)，不應(yīng)，也不能包含您的整個DLL所在的目錄。
下面是呼叫的完整的HTML腳本：
This is the home page for my home computer.
注意，如果您多次把程序ISAPI1.DLL復(fù)制到 mystuff 目錄下，在每一次復(fù)制之前您應(yīng)該
關(guān)掉網(wǎng)絡(luò)服務(wù)器的萬維網(wǎng)端口。這是因為，在第一次復(fù)制這個DLL時，您可以不受限制，但在此之后，它就屬于服務(wù)器了。因此，在您復(fù)制第一次拷貝的更新版本時，因當(dāng)關(guān)掉萬維網(wǎng)服務(wù)。您可以使用網(wǎng)絡(luò)管理程序來關(guān)掉萬維網(wǎng)服務(wù)。這個程序應(yīng)該在微軟網(wǎng)絡(luò)管理程序組（Microsoft Internet Server group）下面，在安裝網(wǎng)絡(luò)信息服務(wù)時被安裝到程序管理器（Explorer/Program Manager）下。
與 TExtensionControlBlock 一起工作
通過本文中的這一要點，您能夠建立您的第一個ISAPI DLL，并且能在第二臺機(jī)器上的網(wǎng)
頁瀏覽器調(diào)用它。
在本文中接下來的ISAPI的其余部分將會更加深入。
這里是HttpExtensionProc參數(shù)中比較復(fù)雜的部分
PExtensionControlBlock = ^TExtensionControlBlock;
TExtensionControlBlock = packed record
cbSize: DWORD; // = sizeof(TExtensionControlBlock)
dwVersion: DWORD; // version info of this spec
ConnID: HCONN; // Context Do not modify!
dwHttpStatusCode: DWORD; // HTTP Status code
// null terminated log info specific to this Extension DLL
lpszLogData: array [0..HSE_LOG_BUFFER_LEN-1] of Char;
lpszMethod: PChar; // REQUEST_METHOD
lpszQueryString: PChar; // QUERY_STRING
lpszPathInfo: PChar; // PATH_INFO
lpszPathTranslated: PChar; // PATH_TRANSLATED
cbTotalBytes: DWORD; // Total bytes from client
cbAvailable: DWORD; // Available number of bytes
lpbData: Pointer; // pointer to cbAvailable bytes
lpszContentType: PChar; // Content type of client data
GetServerVariable: TGetServerVariableProc;
WriteClient: TWriteClientProc;
ReadClient: TReadClientProc;
ServerSupportFunction: TServerSupportFunctionProc;
end;
注意到這個紀(jì)錄中包含了上面提到過的ConnID字段，并且向 WriteClient 傳送第一個參數(shù)。
這個紀(jì)錄中的第一個參數(shù)是為版本控制而設(shè)的。它應(yīng)該是TExtensionControlBlock的大小的規(guī)定。如果微軟公司改變了它的結(jié)構(gòu)，那么它們能夠通過檢查紀(jì)錄的大小來判斷它們正在處理的結(jié)構(gòu)版本。 您永遠(yuǎn)也不要這個紀(jì)錄中的前三個字段，它們早已被ISAPI填充，在您的程序中，它們只能被訪問，而不能被改變。
這個紀(jì)錄中最重要的字段可能就是lpszQueryString了，它包含了從服務(wù)器上傳來的請求
的信息。例如，假設(shè)您已經(jīng)創(chuàng)建了一個名叫 ISAPI1.Dll。為了調(diào)用這個DLL，您就要在您的瀏覽器的一頁上創(chuàng)建一個像這樣的HREF [注：HTML語言中的一種格式（譯者）] ：
如果您希望響應(yīng)這個DLL，您就要對上面那行做這樣的改動：
假如HTML代碼段中有像上面兩行中的第二行，那么，您的DLL就會在lpszQueryString參數(shù)
中得到“MyQuery” 的字符串，特別要注意跟在請求字符串后的請求標(biāo)志的使用。
當(dāng)然，您可以隨心所欲地改變請求字符串。例如，您可以這樣寫：
在這個請求中，這個DLL會回答服務(wù)器的名稱。您在傳遞這個參數(shù)時，不受任何限制。您
可以傳遞任何您想要的東西，而且，如何分析DLL中的信息也由您的喜好決定。
當(dāng)您從服務(wù)器返回信息至瀏覽器時，您使用到了這個紀(jì)錄中的“WriteClient”函數(shù)指針
。在初始化這個指針時您不需做任何事；它已經(jīng)自動地有網(wǎng)絡(luò)信息服務(wù)器傳遞給您了。
CGI應(yīng)用程序的作者會注意到傳送請求字符串的語法十分熟悉。事實上，ISAPI跟隨了CGI
的大多數(shù)習(xí)慣，在TExtensionControlBlock中的多數(shù)字段可以簡單地被CGI技術(shù)借用。
在TExtensionControlBlock中的另一個關(guān)鍵字段是 lpbData ，它包含了從瀏覽起上傳給您的附加信息。
例如，您有一個伴隨幾個字段的HTML窗體，這些自斷中包含的信息就會被一個叫做“
lpData”的指針傳遞。本文中的下一個主題，“從‘確認(rèn)’按鈕中獲得信息”，將會著重講述怎樣處理這種情況。
到現(xiàn)在為止我已經(jīng)介紹了TExtensionControlBlock中的四個關(guān)鍵字段:
WriteClient: 一個能夠讓您傳遞格式化的HTML數(shù)據(jù)到瀏覽器上的指針。這個函數(shù)用到了
TExtensionControlBlock的ConnID字段。
lpszQueryString: 從瀏覽騎上傳來的請求。
lpbData: 從瀏覽器上傳給你的人一的附加數(shù)據(jù)。通常是一個HTML窗體的任意字段的內(nèi)容
。我將在“確認(rèn) 按鈕”這部分進(jìn)一步討論。
要獲得其他TExtensionControlBlock中的字段是如何工作的感覺，最好的辦法就是親自在
瀏覽其中將他們做對照。換句話說，您會希望創(chuàng)建一個HTML頁，使得用能夠調(diào)用客戶端的ISAPI DLL。這個ISAPI DLL的目的僅僅是在HTML中格式話TExtensionControlBlock中的每一個字段，然后把它們傳回瀏覽器。這樣就把您的瀏覽器變成了一個有點可怕的調(diào)試器，來顯示TExtensionControlBlock中的所有字段。
這里有一個程序，由Borland公司的 Danny Thorpe 編寫，他會執(zhí)行這個任務(wù)：
library test1;
uses
Windows
SysUtils
HTTPExt;
function GetExtensionVersion( var Ver: THSE_VERSION_INFO ): BOOL; stdcall;
begin
Ver.dwExtensionVersion := $00010000; // 1.0 support
Ver.lpszExtensionDesc := 'A test DLL written in Delphi 2.0';
Result := True;
end;
function HttpExtensionProc( var ECB: TEXTENSION_CONTROL_BLOCK ):
DWORD; stdcall;
var
ResStr: string;
StrLen: Integer;
Buf: array [0..1024] of Char;
begin
ECB.lpszLogData := 'Delphi DLL Log';
ECB.dwHTTPStatusCode := 200;
ResStr := Format(
' +
'
'Size = %d
'+
'Version = %.8x
'+
'ConnID = %.8x
'+
'Method = %s
' +
'Query = %s
' +
'PathInfo = %s
'+
'PathTranslated = %s
'+
'TotalBytes = %d
'+
'AvailableBytes = %d
'+
'ContentType = %s
'+
'
[ECB.cbSize
ECB.dwVersion
ECB.ConnID
ECB.lpszMethod
ECB.lpszQueryString
ECB.lpszPathInfo
ECB.lpszPathTranslated
ECB.cbTotalBytes
ECB.cbAvailable
ECB.lpszContentType]);
with ECB do
begin
StrLen := Sizeof(Buf);
GetServerVariable(ConnID
'REMOTE_ADDR'
@Buf
StrLen);
ResStr := ResStr + 'REMOTE_ADDR = '+Buf+'
';
StrLen := SizeOf(Buf);
GetServerVariable(ConnID
'REMOTE_HOST'
@Buf
StrLen);
ResStr := ResStr + 'Remote_Host = '+Buf+'
';
StrLen := SizeOf(Buf);
GetServerVariable(ConnID
'REMOTE_USER'
@Buf
StrLen);
ResStr := ResStr + 'Remote_User = '+Buf+'
';
StrLen := SizeOf(Buf);
GetServerVariable(ConnID
'SERVER_NAME'
@Buf
StrLen);
ResStr := ResStr + 'SERVER_NAME = '+Buf+'
';
StrLen := SizeOf(Buf);
GetServerVariable(ConnID
'SERVER_PORT'
@Buf
StrLen);
ResStr := ResStr + 'SERVER_PORT = '+Buf+'
';
StrLen := SizeOf(Buf);
GetServerVariable(ConnID
'SERVER_PROTOCOL'
@Buf
StrLen);
ResStr := ResStr + 'SERVER_PROTOCOL = '+Buf+'
';
StrLen := SizeOf(Buf);
GetServerVariable(ConnID
'SERVER_SOFTWARE'
@Buf
StrLen);
ResStr := Format('%sSERVER_SOFTWARE = %s
'+
'ThreadID = %.8x
'
[ResStr
Buf
GetCurrentThreadID]);
end;
ResStr := ResStr + ';
ResStr := Format(
'HTTP/1.0 200 OK'#13#10+
'Content-Type: text/html'#13#10+
'Content-Length: %d'#13#10+
'Content:'#13#10#13#10'%s'
[Length(ResStr)
ResStr]);
StrLen := Length(ResStr);
ECB.WriteClient(ECB.ConnID
Pointer(ResStr)
StrLen
0);
Result := HSE_STATUS_SUCCESS;
end;
xports
GetExtensionVersion
HttpExtensionProc;
egin
end.
為了調(diào)用這個DLL，您應(yīng)該建立一個包括下面這行的 HRML 腳本
從“確認(rèn)”按鈕獲得信息
通常向您發(fā)送信息的HTML窗體中都有一個確認(rèn)按鈕。只要信息量小于49KB，您就可以
認(rèn)為TExetensionControlBlock中的 lpbData 字段是可用的。這里顯示了您可以如何在大
多數(shù)情況下獲得由這個字段的指針發(fā)來的信息：
var
S: string;
begin
…
S := PChar(ECB.lpbData);
…
end;
如果從這個字段傳來的信息大于48KB，那么您必須呼叫 ReadClient 來獲得其余的信息。
如果您想要確切地知道在 lpbData 字段中哪些信息是可用的，您可以使用下面兩個函數(shù)把數(shù)據(jù)傳回到您的網(wǎng)頁瀏覽器中：
function SetUpResString: string;
begin
Result := ' +
' +
'
'lpbData = %s ' +
';
end;
function HttpExtensionProc(var ECB: TExtensionControlBlock):
DWORD; stdcall;
var
ResStr: string;
StrLen: Integer;
S
S1: string;
begin
ECB.lpszLogData := 'Delphi DLL Log';
ECB.dwHTTPStatusCode := 200;
ResStr := SetUpResString;
S := PChar(ECB.lpbData);
ResStr := Format(ResStr
[S]);
StrLen := Length(ResStr);
ECB.WriteClient(ECB.ConnID
Pointer(ResStr)
StrLen
0);
Result := HSE_STATUS_SUCCESS;
end;
假設(shè)您已經(jīng)有了附有下面代碼的HTML窗體：
這段代碼會產(chǎn)生一個包含一個供您輸入數(shù)字的文本區(qū)和一個叫做“submit”按鈕的窗體，按鈕的名字叫做“GetSquare”。如果有了這個窗體，接著您可以預(yù)計上面的兩段程序會返回如下的字符串，假設(shè)用戶在窗體中的文本區(qū)輸入了數(shù)字23：
lpbData = GetSquare=23&GetSquare=Submit
為了理解這時究竟發(fā)生了什么，注意一下從上面函數(shù)中摘錄HTML語句中的主體部分， 這部分語句駐留在服務(wù)器上，反映如下：
'lpbData = %s ' +
如果您研究過上面 HttpExtensionProc 函數(shù)中的代碼，您會發(fā)現(xiàn)就在這句之前，它使用了 Format 語句中的 %s 參數(shù)來代替了 ECB.lpbData 中的值。（如果您不清楚語句Format 是怎樣工作的，請參閱有關(guān)的 Delphi 文檔）[注：在作者所著的 Delphi2 編程大全（Delphi2
Unleashed）中的第三章《字符串與文本文件》中有詳細(xì)說明（譯者）]
假設(shè)上面所示的窗體中，當(dāng)用戶按下“確認(rèn)”按鈕時，lpbData 傳遞給ISAPI DLL的值是：
GetSquare=23&GetSquare=Submit
為了讓您有清晰的概念，讓我重復(fù)一下上面兩個語句傳回給瀏覽器的信息是下面的字符串，您已經(jīng)看過了：
lpbData = GetSquare=23&GetSquare=Submit
觀看這個過程的最好辦法試運行下面列出的 ISAPI2 程序。 ISAPI2 和ISAPI1 差不多，但他包含了上面顯示的新的 HttpExtensionProc 函數(shù)，并且它還包含了SetUpResString 這個實用函數(shù)。
library Isapi2;
uses
Windows
SysUtils
HTTPExt;
function GetExtensionVersion( var Ver: THSE_VERSION_INFO ):
BOOL; stdcall;
begin
Ver.dwExtensionVersion := $00010000; // 1.0 support
Ver.lpszExtensionDesc := 'DLL written in Delphi 2.0';
Result := True;
end;
function SetUpResString: string;
begin
Result := ' +
' +
'
'lpbData = %s ' +
';
end;
function HttpExtensionProc( var ECB: TEXTENSION_CONTROL_BLOCK ):
DWORD; stdcall;
var
ResStr: string;
StrLen: Integer;
S
S1: string;
Len: Integer;
begin
ECB.lpszLogData := 'Delphi DLL Log';
ECB.dwHTTPStatusCode := 200;
ResStr := SetUpResString;
S := PChar(ECB.lpbData);
ResStr := Format(ResStr
[S]);
StrLen := Length(ResStr);
ECB.WriteClient(ECB.ConnID
Pointer(ResStr)
StrLen
0);
Result := HSE_STATUS_SUCCESS;
end;
exports
GetExtensionVersion
HttpExtensionProc;
begin
end.
一旦您從窗體中獲得了由 lpbData 變量傳來的信息，您就能分析這些信息或者把它們返回給用戶。比如說，您可以從上面例子中把數(shù)字23抽出來，做平方后返回用戶。通過這樣做可以使您從用戶中獲得信息，在這里是數(shù)字，對數(shù)字進(jìn)行一些數(shù)學(xué)運算，最后把結(jié)果返回給用戶。這意味著您可以在電波中創(chuàng)建互動的網(wǎng)頁，這可是現(xiàn)在因特網(wǎng)編程中最流行的哦！
以下是一個通過網(wǎng)絡(luò)提交數(shù)字平方給瀏覽器的完整的程序代碼：
library Isapi3;
{ This code shows how to take input from the user via a browser
parse that information
and then return an answer to the user. In particular
the user submits a number
this code squares it
and then sends the result back to user. Here is the form from the browser that submits the information for parsing:
}
uses
Windows
SysUtils
HTTPExt
StrBox;
function GetExtensionVersion( var Ver: THSE_VERSION_INFO ):
BOOL; stdcall;
begin
Ver.dwExtensionVersion := $00010000; // version 1.0 support
Ver.lpszExtensionDesc := 'ISAPI3.DLL';
Result := True;
end;
// Parse lpbData and retrieve the number the user passed to us.
function ParseData(S: string): Integer;
begin
S := StripLastToken(S
'&');
S := StripFirstToken(S
'=');
Result := StrToInt(S);
end;
function SetUpResString: string;
begin
Result := ' +
' +
'
'Answer = %d ' +
';
end;
function HttpExtensionProc( var ECB: TEXTENSION_CONTROL_BLOCK ):
DWORD; stdcall;
var
ResStr: string;
StrLen: Integer;
S
S1: string;
Num: Integer;
begin
ECB.lpszLogData := 'Delphi DLL Log';
ECB.dwHTTPStatusCode := 200;
ResStr := SetUpResString;
S := PChar(ECB.lpbData);
Num := ParseData(S);
Num := Sqr(Num);
ResStr := Format(ResStr
[Num]);
StrLen := Length(ResStr);
ECB.WriteClient(ECB.ConnID
Pointer(ResStr)
StrLen
0);
Result := HSE_STATUS_SUCCESS;
end;
exports
GetExtensionVersion
HttpExtensionProc;
begin
end.
這段代碼從按下確認(rèn)按鈕的用戶那里接受下面的字符串，用戶要求平方后的數(shù)字：
GetSquare=5&GetSquare=Submit
假設(shè)這樣輸入，這段代碼會通過因特網(wǎng)返回用戶下面的字符串：
Answer = 25
一句話，用戶輸入數(shù)字5，你返回用戶數(shù)字25。如果用戶提交數(shù)字10，那么您返回數(shù)字100。這看起來微不足道，但在這里重要的是因特網(wǎng)上發(fā)生的行為[注：指互動網(wǎng)頁（譯
者）]
分析用戶傳來的函數(shù)像這樣：
// Parse lpbData and retrieve the number the user passed to us.
function ParseData(S: string): Integer;
begin
S := StripLastToken(S
'&');
S := StripFirstToken(S
'=');
Result := StrToInt(S);
end;
這兩個語句在單元中，在本文開頭提到過，也包含在我的站點上。［注:這個文件在網(wǎng)絡(luò)上幾乎到處可見
您也可以向譯者索取(譯者)］[ 在本篇文章中
關(guān)于ISAPI我只想談這么多了。這些內(nèi)容對于啟發(fā)您利用這項優(yōu)越的技術(shù)并獲得樂趣來說應(yīng)該是夠用的了。接下來我要談一下 GetServerVariable 、 ReadClient 這兩個語句，在這方面我只進(jìn)行了極其有限的試驗。在本文中，我附加了HTTPEXT.PAS 文件，因為除了這分關(guān)鍵文檔，在其他地方您不會找到它。
GetServerVariable 和 ReadClient 語句
正如您的CGI應(yīng)用程序中的請求信息一樣，您可以使用語句來從服務(wù)器上獲得信息。 下面是呼叫這個語句的例子：
Len := HseMaxExtDllNameLen;
SetLength(S1
Len);
Dec(Len);
ECB.GetServerVariable(ECB.ConnID
'CONTENT_LENGTH'
PChar(S1)
Len);
首先，這段代碼設(shè)定了保留從服務(wù)器上取得的信息的緩沖區(qū)的長度。接著它呼叫服務(wù) 器并發(fā)出請求，在本例中，它要求獲得服務(wù)器傳來的信息的"CONTENT_LENGTH"。
微軟公司的文獻(xiàn)告訴我們，您可以通過 GetServerVariable 的第二個參數(shù)來傳遞跟 著的字符串：
AUTH_TYPE 它包含了使用授權(quán)的類型。比如，如果使用的是基本（basic）授權(quán)，那么
字符串就是"basic"；如果是 NT challenge 回應(yīng)，字符串就是"NTLM"。其他的授權(quán)屬尤其對應(yīng)的字符串。因為不斷有新的授權(quán)類型被增添到服務(wù)器上，列出所有可能的字符串是不可行的。如果字符串為空，那么并沒有使用任何授權(quán)。
CONTENT_LENGTH 腳本預(yù)計從客戶端回收到的字節(jié)數(shù)。
CONTENT_TYPE 由請求布告的主體部分提供的信息的內(nèi)容類型。[注：小弟才疏學(xué)淺，a
POST request 暫譯作"請求布告"，望方家指正（譯者）]
PATH_INFO 附加的路由信息，由客戶機(jī)提供。它包含了跟在腳本名字之后的URL的漫游路
由。如果有的話，它在請求字符串的前面。
PATH_TRANSLATED 它是 PATH_INFO 的值，但包含了擴(kuò)充到一個路徑標(biāo)志的所有虛擬路由的名字。
QUERY_STRING 跟在參考這個腳本的URL中的"？"后面的信息。
REMOTE_ADDR 發(fā)出請求的客戶機(jī)或其代理商（例如，網(wǎng)關(guān)或防火墻）的IP地址。
REMOTE_HOST 發(fā)出請求的客戶機(jī)或其代理商（例如，網(wǎng)關(guān)或防火墻）的主機(jī)名。
REMOTE_USER 它包含了由客戶機(jī)提供并且由服務(wù)器授權(quán)的用戶名。如果返回空串那么用戶
使你名的（但是經(jīng)過授權(quán)）。
UNMAPPED_REMOTE_USER 它是有如下特征的用戶的名稱：該用戶向NT用戶帳目發(fā)出請求（這是他以身份出現(xiàn)），在此之前ISAPI應(yīng)用程序過濾起映射了該用戶。
REQUEST_METHOD 是 HTTP 請求方法。
SCRIPT_NAME 執(zhí)行的腳本程序名稱。
SERVER_NAME 當(dāng)它以自參考URLs形式出現(xiàn)時的主機(jī)名或IP地址。
SERVER_PORT 接受請求的TCP/IP的端口。
SERVER_PORT_SECURE 一個非0即1的字符串。當(dāng)請求由安全端口處理時，它是1；否則是0 。
SERVER_PROTOCOL 接受與這個請求相關(guān)的協(xié)議的信息的名稱和版本。他通常是 HTTP/1.0 。
SERVER_SOFTWARE 是ISAPI應(yīng)用DLL程序運行時所在的網(wǎng)頁服務(wù)器的名稱和版本。 ALL_HTTP 先前的變量并沒有分析全部的HTTP字段頭。這些變量從HTTP_<字段頭名>中得出 。字段頭（由行標(biāo)分離）包含了各自的字符串，這些字符串并不會終止。
HTTP_ACCEPT HTTP字段頭的特例。接受的值是：字段由逗號（，）分離。例如：如果下
面的幾行是HTTP頭的一部分：
接受：*/*，q=0.1
則URL（2.0新版本的特性）給出它的基礎(chǔ)部分。
要注意的是，上面給出的信息片是由 TExtensionControlBlock 紀(jì)錄自動傳遞的。因
此您不需要調(diào)用GetServerVariable。不過，如果您確有需要，特別是您要從ReadClient 中獲得信息和需要知道要讀入多少信息時，您可以調(diào)用它。
在很多時候，您不需要調(diào)用 ReadClient 。但是，您瀏覽器發(fā)出的信息量大于48KB
的時候，您需要調(diào)用 ReadClient 來獲取其余的信息。
新聞熱點
疑難解答
圖片精選
