ELPHI编写的ISAPI过滤器(对iis读入的文件内容进行修改)(100分)

[red][/red]请各位大虾指教

以前用vc写过--有了delphi的例子别忘了也告诉我一声。

高手？？？？

帮你UP，我也在找这方面的资料，有空可以交流~

请看一下Delphi帮助中的MS－help isapi filter sdk
主要实现GetFilterVersion
GetFilterProc和Terminate...三个函数就可以了

function GetFilterVersion(var pVer: THTTP_FILTER_VERSION):BOOL;
var
ini:TIniFile;
begin
try
pVer.dwFilterVersion:=MakeLong(HSE_VERSION_MINOR, HSE_VERSION_MAJOR);
StrCopy(pVer.lpszFilterDesc,'Virtul Host By Icelake');
pVer.dwFlags:= SF_NOTIFY_ORDER_Low or SF_NOTIFY_MASK ;

result:=true;
except
Result := false;
end;
end;

function HttpFilterProc(var pfc: THTTP_FILTER_CONTEXT;Notificationtype: DWORD; pvNotification: Pointer): DWORD stdcall;
begin
case Notificationtype of
SF_NOTIFY_URL_MAP :result:=OnUrlMap(pfc,pvNotification);
end;
end;
function OnUrlMap(var pfc:THTTP_FILTER_CONTEXT;pvNotification: Pointer):Cardinal;
begin
...
result:=SF_STATUS_REQ_NEXT_NOTIFICATION;
end;