任
任远
Unregistered / Unconfirmed
GUEST, unregistred user!
library gb2bigfiler;
uses
SysUtils, math, Classes, windows,
ISAPI2, //delphi中ISAPI过滤器单元
CovertCode; //内码转换过程
function HttpFilterProc(var pfc: THTTP_FILTER_CONTEXT; Notificationtype: DWORD; pvNotification: Pointer): DWORD; stdcall;
begin
{
内码转换函数有了,描述如:function Gb2Big5(GBStr: string): AnsiString;
此处应该如何写?哪个变量包括网页的实体数据?是什么格式的?
}
end;
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;
exports
HttpFilterProc index 1, GetFilterVersion index 2;
begin
end.
uses
SysUtils, math, Classes, windows,
ISAPI2, //delphi中ISAPI过滤器单元
CovertCode; //内码转换过程
function HttpFilterProc(var pfc: THTTP_FILTER_CONTEXT; Notificationtype: DWORD; pvNotification: Pointer): DWORD; stdcall;
begin
{
内码转换函数有了,描述如:function Gb2Big5(GBStr: string): AnsiString;
此处应该如何写?哪个变量包括网页的实体数据?是什么格式的?
}
end;
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;
exports
HttpFilterProc index 1, GetFilterVersion index 2;
begin
end.