再次提问加100分。用DELPHI如何编写ISAPI过滤器（IIS）

2002-06-17 09:44:59 169 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Delphi XE中解决Indy HTTPS组件SSL库加载失败的完整指南 SSL/TLS协议是保障网络通信安全的核心技术，它通过加密和身份验证机制，确保数据在传输过程中的机密性与完整性。其实现原理基于非对称加密、对称加密和数字证书等密码学技术，在握手阶段协商加密参数并验证服务器身份。在工程实践中，开发者常使用成熟的第三方库来实现SSL/TLS功能，例如开源的OpenSSL库，它提供了跨平台的加密通信能力。当在Delphi开发环境中使用Indy网络组件库访问HTTPS接口时，TIdHTTP组件需要依赖外部的OpenSSL动态链接库来完成实际的加密操作。这一设计带来了灵活性的同时，也阅读详情

我主要是想对ASp文件加密。请打家多指教。可以多给分

...全文

Python4Delphi：在Delphi应用中嵌入Python解释器的完整指南在软件开发中，脚本语言嵌入是扩展原生应用能力的常见技术方案，其核心原理是通过桥接层在宿主进程中加载并控制外部解释器。这种技术能显著提升开发效率，允许开发者复用成熟的第三方生态库，实现“专业工具做专业事”的架构优势。Python作为当前最流行的胶水语言，拥有丰富的数据科学、机器学习与网络爬虫库，而Delphi则是经典的Windows原生应用开发平台。Python4Delphi（P4D）正是连接这两大生态的桥梁，它通过在Delphi进程中嵌入完整的Python解释器，让开发者能在保持VCL/FireMonkey 阅读详情

xflcx

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

+ 关注 + 加入社区

切换为时间正序

wwyf 2002-07-21

打赏
举报

嗯

yansea 2002-07-04

打赏
举报

真的没用过，帮你up；

anggogo 2002-06-29

打赏
举报

ISAPI FILTER并不是用来加密ASP

如果你想保护ASP代码，并尽量提高速度，还不如用COM/COM+配合ASP，这种做法比较好

xflcx 2002-06-29

打赏
举报

用COM/COM+怎样配合ASP（多提示一些）

xflcx 2002-06-23

打赏
举报

<%%>写的一些程序代码.但ISS不知道怎样编译.需要自己解析,再交给IIS处理

HHBB 2002-06-21

打赏
举报

FILE->NEW->WEB SERVER APPLICATION就可以了

上海老李 2002-06-21

打赏
举报

直接用DELPHI的WEBSNAP得

manboo 2002-06-20

打赏
举报

关心！向旅游！

bcb_fans 2002-06-20

打赏
举报

我没有做过这方面的程序,不过我想知道工作原理,可以说一下吗? 比如<%%>里边是什么东西,你想解码成怎么样的结果,你又从哪里得到这些东西??

xflcx 2002-06-20

打赏
举报

ASp程序已经写好了

xflcx 2002-06-19

打赏
举报

高手出招吧

michaelpeng7799 2002-06-19

打赏
举报

你直接用DELPHI的WEBSNAP得了。这样可以实现ASP的功能。
不过开发比ASP难些。

njbudong 2002-06-17

打赏
举报

---- ISAPI过滤器的开发非常简单，只需要完成三个接口DLL函数即可。它们是GetFilterVersion()、HttpFilterProc()、TerminateFilter()，大家可以查看MSDN了解详细的用法。ISAPI过滤器是DLL文件，一般用C/C++语言开发。为使ISAPI过滤器能够运行，您需要在注册表的HKEY_LOCAL_MACHINE\System\CurrentControlSet\
Services\W3SVC\Parameters下建立一个字符串项，其名称为"Filter Dlls"，值为ISAPI过滤器文件的全路径名称。若这个字符串项已经存在，只需把它的全路径名称加入其中，不同的ISAPI过滤器文件之间用";"分隔，您可以根据执行的优先顺序加在适当的位置。设置好后重新启动IIS服务，您的ISAPI过滤器就发挥作用了。

---- 下面作者举二个具体的应用例子。

一、虚拟主机WWW站点的实现

---- 所谓虚拟主机WWW站点，是指不同的域名占用同一个IP地址，各自拥有自己的主页。这样您可以在同一台机器上为几个甚至几十个公司建立各自的WWW站点。IIS 3.0不提供虚拟主机WWW站点的功能，但是我们可以通过ISAPI过滤器来实现它。其原理是通过URL映射信息处理，将不同的域名重新映射到不同的物理文件。

---- 下面是它的源程序。

fmulti.def：
LIBRARY fmulti
EXPORTS GetFilterVersion
HttpFilterProc
TerminateFilter

fmulti.c：
#include <stdio.h>
#include <string.h>
#include <windows.h>
#include <httpfilt.h>

#define baseroot "C:\\InetPub\\wwwroot\\"

BOOL WINAPI GetFilterVersion(HTTP_FILTER_VERSION *pVer)
{
pVer->dwFilterVersion = HTTP_FILTER_REVISION;
strcpy(pVer->lpszFilterDesc, "fmulti");
pVer->dwFlags = SF_NOTIFY_URL_MAP |
SF_NOTIFY_ORDER_HIGH;
/* 过滤的内容 */
return TRUE;
}

DWORD WINAPI HttpFilterProc
(HTTP_FILTER_CONTEXT *pfc,
DWORD noteType, VOID *pvNote)
{
DWORD namelen = 256;
char svrname[256];
char phyfile[280];

*svrname = 0;
(pfc->GetServerVariable)(pfc, "SERVER_NAME",
svrname, &namelen);
_strlwr(svrname);
strcpy(phyfile, ((PHTTP_FILTER_URL_MAP)pvNote)->
pszPhysicalPath + strlen(baseroot));
/* 以下根据域名设置需访问的物理文件 */
if (strcmp(svrname, "ca.best.net")==0) {
sprintf(((PHTTP_FILTER_URL_MAP)pvNote)->
pszPhysicalPath, "C:\\InetPub\\caroot\\%s",
phyfile);
}
else if (strcmp(svrname, "cb.best.net")==0) {
sprintf(((PHTTP_FILTER_URL_MAP)pvNote)->
pszPhysicalPath, "C:\\InetPub\\cbroot\\%s",
phyfile);
}
return SF_STATUS_REQ_NEXT_NOTIFICATION;
}

BOOL WINAPI TerminateFilter(DWORD dwFlags)
{
return TRUE;
}

二、对访问内容进行统计分析
---- 通常我们在需要计数的页面内放一个计数器，或者使用ASP文件来实现计数功能。这种方法不能适用于如README.TXT等其他非HTML格式的文件。如果使用IIS的日志功能又太占用空间而不方便。作者通过定制URL映射信息处理来跟踪感兴趣的几个文件的计数统计，将结果记录在一个文件中。

---- 下面是它的源程序。

fcount.def：
LIBRARY fcount
EXPORTS GetFilterVersion
HttpFilterProc
TerminateFilter

fcount.c：
#include <stdio.h>
#include <string.h>
#include <windows.h>
#include <httpfilt.h>

#define logfile "C:\\InetPub\\fcount.log"
#define pages 5
char* urls[] = {
"/default.htm",
"/banner.gif",
"/product/readme.txt",
"/product/product1.htm",
"/product/product2.htm"
};
int counts[pages];

BOOL WINAPI GetFilterVersion
(HTTP_FILTER_VERSION *pVer)
{
int i;

pVer->dwFilterVersion = HTTP_FILTER_REVISION;
strcpy(pVer->lpszFilterDesc, "fcount");
pVer->dwFlags = SF_NOTIFY_URL_MAP; /* 过滤的内容 */

for (i=0; i<pages; i++) { /* 从文件读入初始计数值 */
counts[i] = GetPrivateProfileInt("VisitCounter",
urls[i],
0, logfile);
}

return TRUE;
}

DWORD WINAPI HttpFilterProc
(HTTP_FILTER_CONTEXT *pfc,
DWORD noteType, VOID *pvNote)
{
int i;
char lurl[512];
char buf[16];

strcpy(lurl, ((PHTTP_FILTER_URL_MAP)pvNote)
->pszURL);
_strlwr(lurl);
for (i=0; i<pages; i++) {
if (strcmp(lurl, urls[i])==0) {
counts[i] ++; /* 计数值增加 */
if (counts[i]%10==0) {
/* 当计数值满10时记入文件,
以免系统突然死掉时数据全部丢失 */
_itoa(counts[i], buf, 10);
WritePrivateProfileString("VisitCounter",
urls[i], buf, logfile);
}
break;
}
}
return SF_STATUS_REQ_NEXT_NOTIFICATION;
}

BOOL WINAPI TerminateFilter(DWORD dwFlags)
{
int i;
char buf[16];

for (i=0; i<pages; i++) {
/* 系统停止时将计数值写入文件 */
_itoa(counts[i], buf, 10);
WritePrivateProfileString("VisitCounter",
urls[i], buf, logfile);
}
return TRUE;

milpas 2002-06-17

打赏
举报

Delphi有生成ISAPI的专家

xflcx 2002-06-17

打赏
举报

给出delphi 实现方法。出现金收购。对ASp文件中的<%%>内容进行解码编码。
高手可以和我邮件联系XFLCX@263.net

xflcx 2002-06-17

打赏
举报

我要Delphi实现

再次提问加100分。用DELPHI如何编写ISAPI过滤器（IIS）

相关推荐