高分求教（加上下面两贴共220分）Delphi怎样编写ISAPI过滤器

2002-06-18 07:31:17 184 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

xflcx 墨衍会员 · AI 创作全网分发关注 + 加入社区

topgrid220.zip topgrid220.zip是一个DELPHI6下表格控件立即下载

对iis读入的文件内容进行修改

...全文

SUIPack.v6.2.Full.Source.Delphi-google220.rar SUIPack.v6.2.Full.Source.Delphi-google220.rar 立即下载

xflcx

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

xflcx 2002-07-06

打赏
举报

设置 SF_NOTIFY_READ_RAW_DATA 时编译通过但一放到IIS上就使iis盆亏。不能加载。程序中没有任何恶义代码

kds 2002-07-04

打赏
举报

看你很着急，其实我不会，帮你up
祝你好运

ly_liuyang 2002-07-04

打赏
举报

ISAPI过滤器可以定制以下的处理：接收HTTP协议头预处理、发送HTTP协议头预处理、发送生数据预处理、获得生数据预处理、HTTP会话结束信息处理、自定义的安全认证机制、URL映射信息处理、日志记录处理等。灵活利用这些定制处理，您可以完成许多看似难以实现的功能，得到意想不到的效果。但是ISAPI过滤器使用不当也会影响服务器的性能。
---- ISAPI过滤器的开发非常简单，只需要完成三个接口DLL函数即可。它们是GetFilterVersion()、HttpFilterProc()、TerminateFilter()，大家可以查看MSDN了解详细的用法。ISAPI过滤器是DLL文件。为使ISAPI过滤器能够运行，您需要在注册表的HKEY_LOCAL_MACHINE\System\CurrentControlSet\
Services\W3SVC\Parameters下建立一个字符串项，其名称为"Filter Dlls"，值为ISAPI过滤器文件的全路径名称。若这个字符串项已经存在，只需把它的全路径名称加入其中，不同的ISAPI过滤器文件之间用";"分隔，您可以根据执行的优先顺序加在适当的位置。设置好后重新启动IIS服务，您的ISAPI过滤器就发挥作用了。
IIS 预定义的事件如下：

SF_NOTIFY_READ_RAW_DATA

---- 当IIS 要从用户读入数据时发生。过滤器可以在IIS 处理他们之前检查甚至修改用户输入的原始数据。

---- SF_NOTIFY_PREPROC_HEADERS

---- IIS 预处理HTTP 请求包头后发生。过滤器可以检查修改增加包头。

---- SF_NOTIFY_AUTHENTICATION

---- IIS 试图验证用户身份时发生。过滤器可以实现自己的验证方案。

---- SF_NOTIFY_URL_MAP

---- IIS 试图将URL 解释为物理文件时。过滤器可以将请求重定向到其他的文件。

---- SF_NOTIFY_ACCESS_DENIED
---- 当身份验证失败时发生。
---- SF_NOTIFY_SEND_RAW_DATA

---- 当其他程序处理完，IIS 准备将数据发回给用户时发生。我们的过滤器就通过此事件，转换内码。

---- SF_NOTIFY_LOG

---- 当IIS 写记录到LOG 文件时。过滤器可以搜集更多的信息写入记录文件中。

---- SF_NOTIFY_END_OF_REQUEST

---- 当一个HTTP 请求结束时发生。过滤器可以实现基于请求的处理。由于这是在IIS 3.0 中新增的，Delphi 中的ISAPI2.pass 单元中没有相应的定义可以手工加入SF_NOTIFY_END_OF_REQUEST=$80

---- SF_NOTIFY_END_OF_NET_SESSION

---- 连接结束时。注意如果浏览器支持"keep-alive"，一次连接可能包含几个HTTP 请求。过滤器可以用他来释放一些用户的资源。
具体程序有两个问题需要注意：

过滤器只能处理返回是HTML 格式的，其他图片等二进制请求无须也不允许转换。

对于返回的HTML，只处理实际数据，其他HTTP 协议的包不应该处理。

---- 每个ISAPI 过滤器DLL 必须输出两个供IIS 使用的函数：

---- GetFilterVersion() 和HttpFilterProc()。下面分别讲述。

---- GetFilterVersion()

---- 用于初始化和处理事件的登记。例程没有初始工作要做，只是简单的登记了要处理的两个事件和其他一些标志。

function GetFilterVersion(var pVer:
THTTP_FILTER_VERSION): BOOL; stdcall;
begin
//过滤器要处理的事件和其他一些标志
pVer.dwFlags := (
SF_NOTIFY_NONSECURE_PORT
//过滤器只在一般端口上使用
or SF_NOTIFY_SEND_RAW_DATA
//处理发送数据事件
or $80 // SF_NOTIFY_END_OF_REQUEST
处理请求结束事件
or SF_NOTIFY_ORDER_DEFAULT
//过滤器使用缺省优先级
);
//过滤器使用的版本HTTP_FILTER_REVISION
返回当前版本
pVer.dwFilterVersion := HTTP_FILTER_REVISION;
//过滤器的描述
pVer.lpszFilterDesc[0]:='A'; pVer.lpszFilterDesc[1]:=#0;
result:=true; //初始化成功
end;

HttpFilterProc()

---- 由IIS 回调，是过滤器的实际处理部分。
---- 其中参数Notificationtype 是该调用的事件类型，如果过滤器处理多个事件，可以检查该值来区分事件。
---- PvNotification 是一个根据事件类型可变结构的参数。对于SF_NOTIFY_SEND_RAW_DATA，他的结构如下：

THTTP_FILTER_RAW_DATA = record
pvInData: Pointer; //指向数据区
cbInData: DWORD; //数据大小
cbInBuffer: DWORD; //缓冲的大小
dwReserved: DWORD; //保留
end;

---- 其中的pvInData 就是要发送的数据指针。其他的结构请参看有关资料这里不再详述。

---- 第一个参数var pfc: THTTP_FILTER_CONTEXT 是过滤器的环境指针，其中的pFilterContext 是一个用户使用的指针，用来保存和一个HTTP 连接相关的信息，这样过滤器可以区分出正在处理的是否是以前曾处理过的连接。因为一个请求将会产生多个SF_NOTIFY_SEND_RAW_DATA 事件，过滤器必须能够区分他们。

---- 程序的流程是：当连接建立后，pFilterContext 被IIS 初始化为NIL(0)，第一次SF_NOTIFY_SEND_RAW_DATA 调用时，过滤器要检查返回的MIME，如果不是HTML 则将pFilterContext 置为pointer(2)（将指针当作变量用，因为我们只要一个标志），随后的发送事件调用将直接返回。请求结束后，发生SF_NOTIFY_END_OF_REQUEST 事件，过滤程序将pFilterContext 复位为nil。

---- 如果是HTML，则将pFilterContext 置为pointer(1)，随后的调用就将对数据进行内码的转换，然后将pFilterContext 置为pointer(3)。如果还有后续的调用，则再将pFilterContext 置为pointer(1)，直到全部数据发送完成。

function HttpFilterProc(var pfc: THTTP_FILTER_CONTEXT;
Notificationtype: DWORD; pvNotification: Pointer): DWORD; stdcall;
var
p:PHTTP_FILTER_RAW_DATA;
i:integer;
pc:pchar;
begin
if Notificationtype=$80 then
//是SF_NOTIFY_END_OF_REQUEST将pFilterContext复位
begin
pfc.pFilterContext:=nil;
end
else
begin
p:=PHTTP_FILTER_RAW_DATA(pvNotification);
pc:=p^.pvInData;
case integer(pfc.pFilterContext) of
0: //第一次调用，要检查MIME
begin
pfc.pFilterContext:=pointer(2);
i:=0;
while i
----

library p1；
uses
SysUtils,math, Classes, windows,
isapi2, //delphi中ISAPI过滤器单元
。。。

//下面两个函数的定义见上文
function HttpFilterProc(...); begin ... end;
function GetFilterVersion(...); begin ... end;
exports
HttpFilterProc index 1, GetFilterVersion index 2;
Begin end.

xflcx 2002-06-29

打赏
举报

220分全给你

xflcx 2002-06-27

打赏
举报

快来吧

xflcx 2002-06-23

打赏
举报

高手指教

高分求教（加上下面两贴共220分）Delphi怎样编写ISAPI过滤器

相关推荐