|
DELPHI与INTERNET2
这篇文章主要讲述如何使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过滤文本做下面这些事情：
用户授权方案
压缩
加密
登入
通信分析或其他请求分析（例如，寻找 "..\..\etc\password" 中的请求）
在本文中，我会着重介绍如何编写返回数据集的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 := '''''''' +
''''
Test server results'''' +
''''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:\winnt\system32\inetsrv\scripts\mystuff\isapi1.dll
在这个例子中，我已经创建了我的名为“mystuff”的目录
它只不过是用来存储我创建的
ISAPI DLLs。您的目录，当然和我的机器上的不完全一样，取决于您的“inetsrv”目录位置和其它因素。
为成功调用这个DLL，您应该在您的HTML页上增添这个超链接：
ISAPI One
当用户点击这个超链接时，ISAPI1 Dll会被呼叫，然后字符串“Hello from ISAPI”会显
示在用户的浏览器上。如果您并不是把 ISAPI.DLL放在 mystuff 目录下，那么您应该修改上面的HTML代码来使之与您的情况适应。注意，您的目录必须与目录 inetsrv 有关，不应，也不能包含您的整个DLL所在的目录。
下面是呼叫的完整的HTML脚本：
My Home Page
This is the home page for my home computer.
ISAPI One
注意，如果您多次把程序ISAPI1.DLL复制到 mystuff 目录下，在每一次复制之前您应该
关掉网络服务器的万维网端口。这是因为，在第一次复制这个DLL时，您可以不受限制，但在此之后，它就属于服务器了。因此，在您复制第一次拷贝的更新版本时，因当关掉万维网服务。您可以使用网络管理程序来关掉万维网服务。这个程序应该在微软网络管理程序组（Microsoft Internet Server group）下面，在安装网络信息服务时被安装到程序管理器（Explorer/Program Manager）下。
与 TExtensionControlBlock 一起工作
通过本文中的这一要点，您能够建立您的第一个ISAPI DLL [1] [2] [3] 下一页
[聊天工具]用Windows98第二版直接共享Internet [系统软件]Internet Explorer 编程简述（繁体版）
[系统软件]单击链接后无法打开新的 Internet Explorer 窗口或… [系统软件]OLE with the internet explorer
[常用软件]Internet Explorer 6 Public Preview 最新出击！！ [常用软件]Internet Explorer中的潘多拉魔盒 作者：江海
[常用软件][网络]Becky Internet Mail 软件评测 [VB.NET程序]VB自动登陆网络站点详解（三）：Internet Explore…
[Delphi程序]谈Delphi 下Internet 编程技巧(二) [Delphi程序]谈Delphi下Internet的编程技巧(一)
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
