个 事 件 和 其 他 一 些 标 志。

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:=#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
----
下 面 是 完 整 的 程 序 文 件（gb2bigfiler.dpr）， 其 中 的u_gb2big_tab 单 元 完 成GB 码 到BIG5， 码 的 转 换， 这 里 不 再 细 述， 有 兴 趣 的 读 者 可 以 到 后 文 提 到 的 笔 者 的 站 点 去 下 载 源 码。

library gb2bigfiler;
uses
SysUtils,math, Classes, windows,
isapi2, //delphi中ISAPI过滤器单元
u_gb2big_tab; //包含将GB码转换成BIG5码的过程gb2big

//下面两个函数的定义见上文