這篇文章主要講述如何使DELPHI和因特網配合工作。本文中將詳述兩個專門技術：
WININET：構建 FTP，HTTP 和 Gopher 用戶端程序 ISAPI：擴充因特網信息服務，例如，獲得服務器上的信息并把它們顯示在瀏覽器上。
現今的計算機世界中，由于微軟公司的因特網戰略而掀起了一個巨大發展潮流。那些制作
CGI（公共網關接口）和第三方工具（即使是最基本的因特網工具）的日子將最終一去不復返了。對復雜的第三方工具的需求總是存在的，但現在程序員將會發現他們所需的大量的嵌入操作系統的因特網工具，簡言之，并不需要進一步的投資，你就能夠使用免費的DELPHI資源來：
*開發 WEB 瀏覽器
*運行 FTP，HTTP 和 Gopher ，在兩個DELPHI應用軟件之間或DELPHI應用軟件和基于TCP
（傳輸控制協議）的服務器之間操作TCP
因為DELPHI能夠輕松地調用Windows API，并且它支持OCX/ActiveX，因此微軟的新戰
略和我們的計劃配合的恰到好處。微軟生產工具，而DELPHI程序員獲得收成！
在本篇中有些什么？
這篇文章中包含了三個大部分和一些小部分，有三個大主題：
*尋找資料：那里能搞到本文中提及的技術資料，而且包含了關于您所需的運行文中代碼 的軟硬件的簡短說明。
*ISAPI：怎樣使用ISAPI
*WININET：怎樣使用WININET
在大多數情況下，本文中的ISAPI和WININET部分是完全獨立的，您可以自由地選擇閱讀時的順序。
查找資料，硬件和軟件的要求
您需要一份Microsoft Windows NT 3.51 Server 或 NT 4.0 Server 的拷貝，其中應附有因特網信息服務文檔，因為您需要甬道其中所提到的技術。這份文檔應隨NT Server4.0 附送，NT 3.51的用戶可從微軟的網址上下載。運行Windows NT，您的機器的最低配置應為486兼容，20兆以上內存。
您必須有另一臺計算機裝有網頁瀏覽器。為使本文中的ISAPI部分能夠順利運行，第二臺
機器必須能夠運行所有支持網頁瀏覽器的軟件。如果在您的機器上運行的是Windows 95 或 Windows NT
那么本文中的WININET 代碼片就能運行的最好。任何符合條件的網頁瀏覽器在這種技術環境下都能夠使用。
在1996年六月以后發布的Delphi2.0以上的版本中，有您所需的把Delphi連接到因特網上
的幾乎全部資源。
如果您沒有最新的Delphi版本[注：此處作者指的是2.0版本（譯者）]，那么您需要本文
檔中提到的特殊文件，所有這些幾乎都可以從萬維網上免費獲得[注：如果您正在使用Delphi2.0以上版本，則不許考慮（譯者）]。所有本文中提到的技術在Delphi2.0環境下都能順利工作，但在16位Delphi環境下則不一定能順利工作。
如果您需要從萬維網上下載信息，鏈接為：http://www.borland.com/TechInfo/delphi/i
ndex.html
[注：現在已經不存在了！:-(( （譯者）]
Delphi2.0的新版本中附有 WININET.PAS 文檔，如果你的拷貝中不包含它，那么上面那個
萬維網節點可以為您提供。WININET.PAS包括為擴展微軟視窗因特網所設計的變量清單、函數、類型和屬性。這意味著您能夠輕而易舉地為您的應用程序增添FTP、HTTP和Gopher支持。微軟公司的WININET.DLL是免費發布的，如果它不在您的Windows/System 或Windows/System32 目錄下的話，您可以從微軟公司那里得到它。下面是可獲得WININET.H這個視窗幫助文件的萬維網節點：
http://www.microsoft.com/intdev/sdk/docs/wininet/default.htm [注：好象也沒了！: -( （譯者）]
一般來說，微軟因特網開發者的網上之家是微軟節點的 INTDEV 部分。
除了WININET和ICP之外，另一個為Delphi支持的關鍵技術就是ISAP。正如微軟公司文檔中
所描述的，這項技術能使您“‘寫入’服務器端的原本和過濾本，從而擴充微軟因特網信息服務和其他ISAPI萬維網服務”。
如果您需要找到關于ISAPI的描述，可以去：
http://www.microsoft.com/intdev/sdk/servapi.htm [注：上帝保佑您！;-) （譯者）]
在本文最后，附加了一個名為HTTPEXT.PAS的關鍵的ISAPI文檔的拷貝。
微軟公司免費發布的因特網控制包（ICP）是一個OCX/ActiveX控制集，您可以在Delphi中
把它們拖放到應用程序上（Delphi2.0中包含這些控件）。他們提供了創建Delphi應用程序的即時支持，他們知道如何瀏覽網頁、 如何應用FTP、WINSOCK和其他因特網技術。如果您的Delphi拷貝中沒有包含這些控件，那么您在使用它們之前您應該把這些文檔添加進Delphi所在的目錄中的Lib目錄下。這些文檔位于上面提及的鏈接中的Borland的INDEX.HTML站點下。在本文中我沒有提到ICP控件，但是任何對這項技術有興趣的人應該明確確認他擁有這些
控件的拷貝。
您可以從我的站點下載我的Pascal應用文件，他們的名字是STRBOX.PAS 和 MATHBOX.PAS 。
經常察看一下這個站點上的關于本文提到的信息的更新情況是很有好處的。
在這里我假設讀者對于Delphi和Object Pascal都很熟悉，并且讀者對于因特網，HTML，
瀏覽器和萬維網服務器有基本的了解。
ISAPI
ISAPI是一項很容易使用然而功能強大的技術，它能夠讓您擴充因特網信息服務的功能。
這項技術隨WindowsNT 4.0附送，讓您在您的服務器上建立WEB、FTP和GOPHER站點。同時這項技術與WindowsNT3.51 Server[注：指服務器版本，另一個版本是工作站版本（譯者）]兼容。
在過去，擴充網頁服務器的最佳辦法是建立CGI應用程序。它們是強有力的工具，但是也
被他們的執行格式所限制[注：如PERL是解釋執行的（譯者）]。當您從瀏覽其上發出一個基于CGI的請求到服務器上時，這個CGI 應用程序將極有可能先被強制裝入內存中，這會消耗很多時間。而且，在某些環境下， CGI技術顯得稍微難用了一點。
ISAPI是一種通過寫入DLLs[注：動態鏈結程序（譯者）]從而替代CGI應用的方法。您也可
以通過ISAPI來寫過濾文本，但這項技術我不會在本篇中提及。同CGI相比，ISAPI更容易使用，而且它更快，同時能更好地利用系統資源。在下面幾點中，我將詳細地介紹為什么ISAPI DLLs比CGI應用要更為出色：
ISAPI DLLs與HTTP服務位于相同的地址，因此他們能夠從服務器上直接存取HTTP服務。與CGI應用相比，它們 能更快地裝入內存；當他們在服務器上發出請求時，所需的停懸的時間[注：指發出請求到接受服務器應答的時間（譯者）]要少的多。這點當服務器的負荷很重時更加重要。
您可以控制DLLs何時被裝載和卸載。例如：您可以在第一次嘗試請求時預先裝載DLLs；當
它們不被使用時卸載 這個ISAPI應用DLLs以便釋放系統資源。
正如前文所述，您可以利用ISAPI寫過濾文本[注：一般指C/S結構中的腳本（譯者）]，更
具微軟的文檔，您可以通過ISAPI過濾文本做下面這些事情：
用戶授權方案
壓縮
加密
登入
通信分析或其他請求分析（例如，尋找 "....etcpassWord" 中的請求）
在本文中，我會著重介紹如何編寫返回數據集的DLLs，或者是如何與運行瀏覽器的用戶進
行簡單的聯系。
ISAPI 基礎
HTTPEXT.PAS文件包含了使用ISAPI的關鍵聲明。這個文件應隨1996年6月以后發表的
Delphi版本分發。它也可以在Borland的站點上找到，在本文的ISAPI部分附有這份文檔。因為這是基于NT的技術， 您必須使用Delphi2.0以上的版本來應用這項技術。您不可能在16位的編輯器上應用它。
HTTPEXT.PAS包含了微軟公司創立的ISAPI技術的接口[注：指Delphi接口，ISAPI由C++編
寫（譯者）]。在編寫Delphi的時候并沒有提供ISAPI的用戶接口，我會僅僅就如何使用微軟公司的現有技術進行描述。不過，ISAPI 太容易使用了，而且對大多數用戶來說，用戶的Delphi對象的版本并不是必須的。
有三個函數可作為ISAPI DLLs的入口，前兩個是必須的，第三個時可選的。
GetExtensionVersion: 進對最低版本做檢查
HttpExtensionPRoc: 這是DLL的入口，就象是Delphi應用程序中的 begin...end 塊
TerminateExtension: 這是個可選的程序，它可以用作清除其他內存分配的線程。
當您在創建ISAPI DLL的時候，您必須引用上面列出的三個函數中的頭兩個函數，執行這
兩個函數是所有ISAPI編程的關鍵。
這三個語句都包含了“字輸出”，使用這項術語是因為ISAPI DLLs擴充了因特網信息服務
器。（記住，因特網信息服務器指的是微軟服務器。如果您要把一臺NT服務器作為體格網頁服務器的話，那么，這正是您所需的工具。ISAPI DLLs隨NT4.0分發，在安裝操作系統是自動安裝。）
ISAPI提供了一個制作服務器可遵循的標準。例如，它可以把網景公司的復雜的NSAPI接口
壓縮至相關的簡練而優美的ISAPI來對NSAPI接口進行操作。
下面是這兩個重要函數的聲明
function GetExtensionVersion(var Ver: THSE_VERSION_INFO): BOOL; stdcall;
function HttpExtensionProc(var ECB: TExtensionControlBlock): DWORD; stdcall;
您只要把GetExtensionVersion粘貼到您的DLLs救行了.當ISAPI向公眾發布新版本時您只需要做輕微的改動。
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:
有關的參數在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。紀錄中的這兩個變量是“自聲明”的， 前一個包含了ISAPI的版本號[注：即變量dwExtensionVersion （譯者）]，后一個則表示用戶定義的一個用來描述DLLs的字符串。
在您引用GetExtensionVersion語句的同時，您必須在您的DLL程序的DPR文件部分增添輸
出部分。在您寫這段語句時您還應該寫下：
exports
GetExtensionVersion
HttpExtensionProc;
這就是您在建立這兩個重要ISAPI DLL的函數時所要做的。下一步，使用 HttpExtensionProc，稍微復雜一點，因此我將把它作為一個獨立的部分。
與 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發出請求，那么您會得到一頁這樣的回應：
Test Server Results
Hello from ISAPI
函數體內的大部分域提供基本信息的簡單的HTML代碼密切相關。您還需要填寫TExtensionControlBlock中的一些域，如下所示。
注意到在這個紀錄里有一個叫做WriteClient的函數指針，您可以引用這個函數把信息傳
送回瀏覽器。當呼叫這個函數時，您使用到了下面提到的TExtensionControl塊中的ConnID字段。當函數被呼叫時，ConnID為您自動填充。
在察看函數的代碼之前，請讓我為您演示所有用到的上文提及的HttpExtensionProc函數
的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程序，您應該把它復制到您的NT服務器下的腳本目錄中去。在我的NT4.0 機器中
它就像這樣：
c:winntsystem32inetsrvscriptsmystuffisapi1.dll
在這個例子中，我已經創建了我的名為“mystuff”的目錄
它只不過是用來存儲我創建的
ISAPI DLLs。您的目錄，當然和我的機器上的不完全一樣，取決于您的“inetsrv”目錄位置和其它因素。
為成功調用這個DLL，您應該在您的HTML頁上增添這個超鏈接：
當用戶點擊這個超鏈接時，ISAPI1 Dll會被呼叫，然后字符串“Hello from ISAPI”會顯
示在用戶的瀏覽器上。如果您并不是把 ISAPI.DLL放在 mystuff 目錄下，那么您應該修改上面的HTML代碼來使之與您的情況適應。注意，您的目錄必須與目錄 inetsrv 有關，不應，也不能包含您的整個DLL所在的目錄。
下面是呼叫的完整的HTML腳本：
This is the home page for my home computer.
注意，如果您多次把程序ISAPI1.DLL復制到 mystuff 目錄下，在每一次復制之前您應該
關掉網絡服務器的萬維網端口。這是因為，在第一次復制這個DLL時，您可以不受限制，但在此之后，它就屬于服務器了。因此，在您復制第一次拷貝的更新版本時，因當關掉萬維網服務。您可以使用網絡管理程序來關掉萬維網服務。這個程序應該在微軟網絡管理程序組（Microsoft Internet Server group）下面，在安裝網絡信息服務時被安裝到程序管理器（Explorer/Program Manager）下。
與 TExtensionControlBlock 一起工作
通過本文中的這一要點，您能夠建立您的第一個ISAPI DLL，并且能在第二臺機器上的網
頁瀏覽器調用它。
在本文中接下來的ISAPI的其余部分將會更加深入。
這里是HttpExtensionProc參數中比較復雜的部分
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;
注意到這個紀錄中包含了上面提到過的ConnID字段，并且向 WriteClient 傳送第一個參數。
這個紀錄中的第一個參數是為版本控制而設的。它應該是TExtensionControlBlock的大小的規定。如果微軟公司改變了它的結構，那么它們能夠通過檢查紀錄的大小來判斷它們正在處理的結構版本。 您永遠也不要這個紀錄中的前三個字段，它們早已被ISAPI填充，在您的程序中，它們只能被訪問，而不能被改變。
這個紀錄中最重要的字段可能就是lpszQueryString了，它包含了從服務器上傳來的請求
的信息。例如，假設您已經創建了一個名叫 ISAPI1.Dll。為了調用這個DLL，您就要在您的瀏覽器的一頁上創建一個像這樣的HREF [注：HTML語言中的一種格式（譯者）] ：
如果您希望響應這個DLL，您就要對上面那行做這樣的改動：
假如HTML代碼段中有像上面兩行中的第二行，那么，您的DLL就會在lpszQueryString參數
中得到“MyQuery” 的字符串，特別要注意跟在請求字符串后的請求標志的使用。
當然，您可以隨心所欲地改變請求字符串。例如，您可以這樣寫：
在這個請求中，這個DLL會回答服務器的名稱。您在傳遞這個參數時，不受任何限制。您
可以傳遞任何您想要的東西，而且，如何分析DLL中的信息也由您的喜好決定。
當您從服務器返回信息至瀏覽器時，您使用到了這個紀錄中的“WriteClient”函數指針
。在初始化這個指針時您不需做任何事；它已經自動地有網絡信息服務器傳遞給您了。
CGI應用程序的作者會注意到傳送請求字符串的語法十分熟悉。事實上，ISAPI跟隨了CGI
的大多數習慣，在TExtensionControlBlock中的多數字段可以簡單地被CGI技術借用。
在TExtensionControlBlock中的另一個關鍵字段是 lpbData ，它包含了從瀏覽起上傳給您的附加信息。
例如，您有一個伴隨幾個字段的HTML窗體，這些自斷中包含的信息就會被一個叫做“
lpData”的指針傳遞。本文中的下一個主題，“從‘確認’按鈕中獲得信息”，將會著重講述怎樣處理這種情況。
到現在為止我已經介紹了TExtensionControlBlock中的四個關鍵字段:
WriteClient: 一個能夠讓您傳遞格式化的HTML數據到瀏覽器上的指針。這個函數用到了
TExtensionControlBlock的ConnID字段。
lpszQueryString: 從瀏覽騎上傳來的請求。
lpbData: 從瀏覽器上傳給你的人一的附加數據。通常是一個HTML窗體的任意字段的內容
。我將在“確認 按鈕”這部分進一步討論。
要獲得其他TExtensionControlBlock中的字段是如何工作的感覺，最好的辦法就是親自在
瀏覽其中將他們做對照。換句話說，您會希望創建一個HTML頁，使得用能夠調用客戶端的ISAPI DLL。這個ISAPI DLL的目的僅僅是在HTML中格式話TExtensionControlBlock中的每一個字段，然后把它們傳回瀏覽器。這樣就把您的瀏覽器變成了一個有點可怕的調試器，來顯示TExtensionControlBlock中的所有字段。
這里有一個程序，由Borland公司的 Danny Thorpe 編寫，他會執行這個任務：
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.
為了調用這個DLL，您應該建立一個包括下面這行的 HRML 腳本
從“確認”按鈕獲得信息
通常向您發送信息的HTML窗體中都有一個確認按鈕。只要信息量小于49KB，您就可以
認為TExetensionControlBlock中的 lpbData 字段是可用的。這里顯示了您可以如何在大
多數情況下獲得由這個字段的指針發來的信息：
var
S: string;
begin
…
S := PChar(ECB.lpbData);
…
end;
如果從這個字段傳來的信息大于48KB，那么您必須呼叫 ReadClient 來獲得其余的信息。
如果您想要確切地知道在 lpbData 字段中哪些信息是可用的，您可以使用下面兩個函數把數據傳回到您的網頁瀏覽器中：
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;
假設您已經有了附有下面代碼的HTML窗體：
這段代碼會產生一個包含一個供您輸入數字的文本區和一個叫做“submit”按鈕的窗體，按鈕的名字叫做“GetSquare”。如果有了這個窗體，接著您可以預計上面的兩段程序會返回如下的字符串，假設用戶在窗體中的文本區輸入了數字23：
lpbData = GetSquare=23&GetSquare=Submit
為了理解這時究竟發生了什么，注意一下從上面函數中摘錄HTML語句中的主體部分， 這部分語句駐留在服務器上，反映如下：
'lpbData = %s ' +
如果您研究過上面 HttpExtensionProc 函數中的代碼，您會發現就在這句之前，它使用了 Format 語句中的 %s 參數來代替了 ECB.lpbData 中的值。（如果您不清楚語句Format 是怎樣工作的，請參閱有關的 Delphi 文檔）[注：在作者所著的 Delphi2 編程大全（Delphi2
Unleashed）中的第三章《字符串與文本文件》中有詳細說明（譯者）]
假設上面所示的窗體中，當用戶按下“確認”按鈕時，lpbData 傳遞給ISAPI DLL的值是：
GetSquare=23&GetSquare=Submit
為了讓您有清晰的概念，讓我重復一下上面兩個語句傳回給瀏覽器的信息是下面的字符串，您已經看過了：
lpbData = GetSquare=23&GetSquare=Submit
觀看這個過程的最好辦法試運行下面列出的 ISAPI2 程序。 ISAPI2 和ISAPI1 差不多，但他包含了上面顯示的新的 HttpExtensionProc 函數，并且它還包含了SetUpResString 這個實用函數。
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 變量傳來的信息，您就能分析這些信息或者把它們返回給用戶。比如說，您可以從上面例子中把數字23抽出來，做平方后返回用戶。通過這樣做可以使您從用戶中獲得信息，在這里是數字，對數字進行一些數學運算，最后把結果返回給用戶。這意味著您可以在電波中創建互動的網頁，這可是現在因特網編程中最流行的哦！
以下是一個通過網絡提交數字平方給瀏覽器的完整的程序代碼：
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.
這段代碼從按下確認按鈕的用戶那里接受下面的字符串，用戶要求平方后的數字：
GetSquare=5&GetSquare=Submit
假設這樣輸入，這段代碼會通過因特網返回用戶下面的字符串：
Answer = 25
一句話，用戶輸入數字5，你返回用戶數字25。如果用戶提交數字10，那么您返回數字100。這看起來微不足道，但在這里重要的是因特網上發生的行為[注：指互動網頁（譯
者）]
分析用戶傳來的函數像這樣：
// 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;
這兩個語句在單元中，在本文開頭提到過，也包含在我的站點上。［注:這個文件在網絡上幾乎到處可見
您也可以向譯者索取(譯者)］[ 在本篇文章中
關于ISAPI我只想談這么多了。這些內容對于啟發您利用這項優越的技術并獲得樂趣來說應該是夠用的了。接下來我要談一下 GetServerVariable 、 ReadClient 這兩個語句，在這方面我只進行了極其有限的試驗。在本文中，我附加了HTTPEXT.PAS 文件，因為除了這分關鍵文檔，在其他地方您不會找到它。
GetServerVariable 和 ReadClient 語句
正如您的CGI應用程序中的請求信息一樣，您可以使用語句來從服務器上獲得信息。 下面是呼叫這個語句的例子：
Len := HseMaxExtDllNameLen;
SetLength(S1
Len);
Dec(Len);
ECB.GetServerVariable(ECB.ConnID
'CONTENT_LENGTH'
PChar(S1)
Len);
首先，這段代碼設定了保留從服務器上取得的信息的緩沖區的長度。接著它呼叫服務 器并發出請求，在本例中，它要求獲得服務器傳來的信息的"CONTENT_LENGTH"。
微軟公司的文獻告訴我們，您可以通過 GetServerVariable 的第二個參數來傳遞跟 著的字符串：
AUTH_TYPE 它包含了使用授權的類型。比如，如果使用的是基本（basic）授權，那么
字符串就是"basic"；如果是 NT challenge 回應，字符串就是"NTLM"。其他的授權屬尤其對應的字符串。因為不斷有新的授權類型被增添到服務器上，列出所有可能的字符串是不可行的。如果字符串為空，那么并沒有使用任何授權。
CONTENT_LENGTH 腳本預計從客戶端回收到的字節數。
CONTENT_TYPE 由請求布告的主體部分提供的信息的內容類型。[注：小弟才疏學淺，a
POST request 暫譯作"請求布告"，望方家指正（譯者）]
PATH_INFO 附加的路由信息，由客戶機提供。它包含了跟在腳本名字之后的URL的漫游路
由。如果有的話，它在請求字符串的前面。
PATH_TRANSLATED 它是 PATH_INFO 的值，但包含了擴充到一個路徑標志的所有虛擬路由的名字。
QUERY_STRING 跟在參考這個腳本的URL中的"？"后面的信息。
REMOTE_ADDR 發出請求的客戶機或其代理商（例如，網關或防火墻）的IP地址。
REMOTE_HOST 發出請求的客戶機或其代理商（例如，網關或防火墻）的主機名。
REMOTE_USER 它包含了由客戶機提供并且由服務器授權的用戶名。如果返回空串那么用戶
使你名的（但是經過授權）。
UNMAPPED_REMOTE_USER 它是有如下特征的用戶的名稱：該用戶向NT用戶帳目發出請求（這是他以身份出現），在此之前ISAPI應用程序過濾起映射了該用戶。
REQUEST_METHOD 是 HTTP 請求方法。
SCRIPT_NAME 執行的腳本程序名稱。
SERVER_NAME 當它以自參考URLs形式出現時的主機名或IP地址。
SERVER_PORT 接受請求的TCP/IP的端口。
SERVER_PORT_SECURE 一個非0即1的字符串。當請求由安全端口處理時，它是1；否則是0 。
SERVER_PROTOCOL 接受與這個請求相關的協議的信息的名稱和版本。他通常是 HTTP/1.0 。
SERVER_SOFTWARE 是ISAPI應用DLL程序運行時所在的網頁服務器的名稱和版本。 ALL_HTTP 先前的變量并沒有分析全部的HTTP字段頭。這些變量從HTTP_<字段頭名>中得出 。字段頭（由行標分離）包含了各自的字符串，這些字符串并不會終止。
HTTP_ACCEPT HTTP字段頭的特例。接受的值是：字段由逗號（，）分離。例如：如果下
面的幾行是HTTP頭的一部分：
接受：*/*，q=0.1
則URL（2.0新版本的特性）給出它的基礎部分。
要注意的是，上面給出的信息片是由 TExtensionControlBlock 紀錄自動傳遞的。因
此您不需要調用GetServerVariable。不過，如果您確有需要，特別是您要從ReadClient 中獲得信息和需要知道要讀入多少信息時，您可以調用它。
在很多時候，您不需要調用 ReadClient 。但是，您瀏覽器發出的信息量大于48KB
的時候，您需要調用 ReadClient 來獲取其余的信息。
新聞熱點
疑難解答
圖片精選
