IE浏览器 自定义地址协议的实现

IE浏览器自定义地址协议的实现

https://www.360docs.net/doc/938246032.html,/widebright/item/b77c3619d99cdb17e2f98651

IE浏览器自定义地址协议的实现

by widebright

关键字:IE插件,shell接口编程,自定义IE协议,VC2003 ATL 实现COM

浏览QQ空间的时候发现,只要在IE地址中输入象一下这种形式的地址,

tencent://Message/?Uin=251464630&websiteName=https://www.360docs.net/doc/938246032.html,&Menu=yes

就会弹出给251464630 发送信息的对话框,也就是说QQ对IE地址栏的东西做了监控。而且可以发现输入地址确定之后他就启动了timwp.exe这

个程序。在PPlive 也有实现类似的功能,只要你电脑上安装了PPlive 这个程序,在IE地址栏中输入

synacast://09jN1+TK3K3nodzJoaLOmqeS1KGhoKOZoqGcltid1qeZy9ec1dbRy9ue1aKe5pzI2dSpna+ VpJbayuPKrbOvvcySpRMUHl01NaScmcEIGRMUNh4vQz

NmNR8IGaqemauXq7OvvcySpZiekrCWoKOfj+LU162emaiToaGgl6eToaalo66VoKCmoaaVoJbX2LPa1 ODgo6WU057TmtqT3tXgo66VoKCn3trV5KqbmNuT16HQl+T

K5KqkmaaVq+XQ2eqfn5/Nl92W1J7azuqfqKCcmbHZ0+Dgo6WU1J7TmtqT3tXgo66Vq+TP2eqfn5/Ol 92W1J7azuqfqKCn3dnV5KqbmNyT16HQl+TK5KqkmZzZ2NXZ

zrPN5ePg3N7G4tWSwtvR3N/judfM1bnQpqeXpZavyurG3N/Tstqip6k=

然后确定,就会弹出播放CCTV5的窗口。很有意思的一种功能,竟然这么多程序都用到了,我也就找了一下,找到了一下实现方法。

方法一:也就是QQ和PPlive所采用的方法,在注册表里面添加两种类型的注册。

QQ的:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\TENCENT]

@="TencentProtocol"

"URL Protocol"="C:\\Program Files\\Tencent\\QQ\\Timwp.exe"

[HKEY_CLASSES_ROOT\TENCENT\DefaultIcon]

@="C:\\Program Files\\Tencent\\QQ\\Timwp.exe,1"

[HKEY_CLASSES_ROOT\TENCENT\shell]

[HKEY_CLASSES_ROOT\TENCENT\shell\open]

[HKEY_CLASSES_ROOT\TENCENT\shell\open\command]

@="\"C:\\Program Files\\Tencent\\QQ\\Timwp.exe\" \"%1\""

PPlive的:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Synacast]

@=" Protocol"

"Version"="1.5.38"

"URL Protocol"=""

[HKEY_CLASSES_ROOT\Synacast\DefaultIcon]

@="C:\\Program Files\\PPLive\\PPLive.exe"

[HKEY_CLASSES_ROOT\Synacast\Shell]

[HKEY_CLASSES_ROOT\Synacast\Shell\Open]

[HKEY_CLASSES_ROOT\Synacast\Shell\Open\Command]

@="C:\\Program Files\\PPLive\\PPLive.exe \"%1\""

通过多方查找终于发现是注册表这两项在起作用,原来只要在注册表里象添加文件扩展名一样,添加两个Synacast和TENCENT扩展名来,IE就会

自动查找到这里来调用相应的程序。IE果然和windows系统内核整合起来了!原来注册表扩展名项还有这种作用,自己见识太少了,这种方法实

现IE地址的自定义估计是最简单的了。

(这种方法,原来在MSDN中有记载的:详见“Registering an Application to a URL

Protocol”https://www.360docs.net/doc/938246032.html,/en-us/library/aa767914.aspx)widebright 2008-03-21

方法二:一开始不知道方法一的时候,在网上找了很多可以实现这种功能的代码,采用BHO(Browser Helper Object,浏览器辅助对象)或者

IURLSearchHook接口来做到。也就是通常所说的IE插件了,我这里统称为方法二。如果不知道什么叫做BHO和IURLSearchHook的就去搜索一下

吧,最近流氓插件很火,所以这个技术也有多人提到,借助IURLSearchHook还可以实现中文实名上网等功能,不过那些臭名昭著的流氓软件可

都不是这样子坐的他更多的精力是放到防止别人卸载那边去了。

因为我没有编写过ATL或者COM方面的程序,所以也就借着这个机会写了个IURLSearchHook 的实现,以后碰到IE插件编程,ATL编程,COM编

程,Shell接口编程的时候也好能够玩一玩,好像shell接口编程还是有很多有意思东西的。

这个是MSDN上IURLSearchHook接口的说明:

https://www.360docs.net/doc/938246032.html,/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/i faces/iurlsearchhook/iurlsearchhook.asp

下面这个是MSDN上shell接口编程的说明:

https://www.360docs.net/doc/938246032.html,/en-us/library/ms631201.aspx

这个是ATL编程的https://www.360docs.net/doc/938246032.html,/zh-cn/library/65t81w8a(vs.80).aspx

有一片不错的来之VCbase的文章说得是“ATL 实现定制的IE 浏览器栏、工具栏和桌面工具栏”https://www.360docs.net/doc/938246032.html,/document/viewdoc/?id=1457

简单的说,IURLSearchHook被浏览器用来转换一个未知的URL协议地址,当浏览器企图去打开一个未知协议的URL地址时,浏览器首先尝试从这个地址得到当前的协议,如果不成功,浏览器将寻找系统里所有注册为“URL Search Hook”(资源搜索钩子,USH)的对象并把这个IE不能理解的地址发送过去,如果某个USH对象“认识”这个地址,它就返回一个特定的标识告诉IE它知道怎么打开这个地址,然后IE就根据约定的方法调用它,最终打开这个地址。其实USH对象并不陌生,我们一些偷懒的用户就经常为了省事而不输入“http://”,但是IE最终还是能认出并打开某个地址,就是USH

的功劳。当然通过BHO的GetSite方法也可以做到同样的事情,不过IURLSearchHook简单一些,只有一个Translate方法,我技术不行所以专挑简单的^_^

以下是实现代码:

使用VC2003新建一个名字为UrlSearchHook的ATL工程

进入工程之后在类视图中右击工程名字-》添加类—》添加一个叫WidebrightBlog的“ATL简单对象”

还是类视图中右击WidebrightBlog 类——》添加->实现接口,利用向导找到shell接口中的IURLSearchHook 后添加实现。

向导里面列了很多,不过我是没找到啦,所以之后手工添加接口实现了,以下全部代码,红色的是自己写的。

// WidebrightBlog.h : CWidebrightBlog 的声明

#pragma once

#include "resource.h" // 主符号

#include

#include

// IWidebrightBlog

[

object,

uuid("1F0B2F61-221A-456C-A8E1-E0E01796E482"),

dual, helpstring("IWidebrightBlog 接口"),

pointer_default(unique)

]

__interface IWidebrightBlog : IDispatch

{

};

// CWidebrightBlog

[

coclass,

threading("apartment"),

vi_progid("UrlSearchHook.WidebrightBlog"),

progid("UrlSearchHook.WidebrightBlog.1"),

version(1.0),

uuid("44AA49F1-7E20-472E-A5A4-08D3233D9132"),

helpstring("WidebrightBlog Class")

]

class ATL_NO_VTABLE CWidebrightBlog :

public IWidebrightBlog,

public IURLSearchHook

{

public:

CWidebrightBlog()

{

// MessageBox(NULL,"在CWidebrightBlog()","widebright ",MB_OK);

}

DECLARE_PROTECT_FINAL_CONSTRUCT()

//组件接口映射部分,该部分映射主要是告诉QueryInterface能返回哪些接口给外部BEGIN_COM_MAP(CWidebrightBlog)

COM_INTERFACE_ENTRY(IWidebrightBlog)

COM_INTERFACE_ENTRY(IDispatch)

COM_INTERFACE_ENTRY(IURLSearchHook)

END_COM_MAP()

HRESULT FinalConstruct()

{

return S_OK;

}

void FinalRelease()

{

}

public:

STDMETHODIMP Translate( LPWSTR lpwszSearchURL, DWORD cchBufferSize)

{

// MessageBox(NULL,"在Translate函数中了","widebright ",MB_OK);

if (wcsncmp(L"widebright",lpwszSearchURL,10 )==0)

{

// MessageBox(NULL,"找到了","widebright ",MB_OK);

wcscpy(lpwszSearchURL,L"https://www.360docs.net/doc/938246032.html,/widebright");

return S_OK ;

}

return E_FAIL; //没有修改lpwszSearchURL

return S_FALSE; //修改了lpwszSearchURL的,但还需要继续处理

}

int MyFunction(void) //这个是自己利用向导生成Method的函数,想试一下COM接口,没什么用的,根本程序无关。

{

return 0;

}

};

不过编译一下,有错,说是IURLSearchHook接口GUID没定义,明显是有这个接口的,在MSDN里面没有什么说明,最后在CSDN上找到一张帖子

,说是VC2003里面和VC6的ATL不同,在VC6里面上面代码是可以通过的,但在VC2003以后版本就不行了。这是引用帖子中原话“There are two

header files in https://www.360docs.net/doc/938246032.html,, one in Vc7/include and the other in Vc7/PlatformSDK/include. The former splits off the

smart pointer typedefs into comdefsp.h, and it doesn't include IContextMenu. The latter does. You can try to #include the

PlatformSDK header directly, change your INCLUDE path order, or supply the missing typedef yourself, e.g.

struct __declspec(uuid("000214e4-0000-0000-c000-000000000046"))

IContextMenu;

_COM_SMARTPTR_TYPEDEF(IContextMenu, __uuidof(IContextMenu));”

我查看了VC目录下的两个文件也确实如此,所以手工添加了一下Include路径确保#include

包含的是Platform中的那个comdef.h就行了。在UrlSearchHook工程-“工程属性”-》“C/C++” -》“附加包含目录” 属性,增加一个"C:\Program Files\Microsoft Visual Studio .NET 2003\Vc7\PlatformSDK\Include" 。

然后再编译就通过了,生成了dll文件,整个代码很简单,就是实现IURLSearchHook接口的Translate函数,BEGIN_COM_MAP和COM_INTERFACE_ENTRY几个ATL宏声明IURLSearchHook 接口外部可见,就一些ok了。

不过要让IE知道有这个URL Search Hook扩展,还要修改注册表才行。我手工在

HKEY_CURRENT_USER\Software\ Microsoft\ Internet Explorer\ UrlSearchHooks 添加了一项

REG_SZ类型名字为{44AA49F1-7E20-472E-A5A4-08D3233D9132} 的项,其中名字和你生成的dll 注册类型对应,在上面代码里也可以看到。注意的是MSDN上说的是HKEY_LOCAL_MACHINE\..\.. 注册表位置,但其他文档说得是HKEY_CURRENT_USER位置,而且我在HKEY_LOCAL_MACHINE下也没看到UrlSearchHooks项,不知道添加在HKEY_LOCAL_MACHINE会不会有效果,不过添加在HKEY_CURRENT_USER\Software\ Microsoft\ Internet Explorer\ UrlSearchHooks会成功就是了。(建在HKEY_LOCAL_MACHINE\Software\ Microsoft\ Internet Explorer\ UrlSearchHooks 下面可以的,如果没有UrlSearchHooks 下就自己创建一个,然后建一个REG_SZ类似的值,名字指定为你的插件的GUID的值就行了widebright 2008-04-22)

好了,启动IE7,输入widebright开头的地址,都跳到https://www.360docs.net/doc/938246032.html,/widebright来了,在卡卡上网助手里可见CWidebrightBlog Object 地址栏搜索项。

方法三:也是使用IE扩展接口实现,我之所以把它独立处理列为一种方法,是我觉得是一种很使用

的价值的功能。我发现电脑里面有的电子书在我升级到IE7后看不了,可能也是这方面有问题。在注册表中都可见到这些Ebook电子书的注册值,可能Ebook也就是这么干的吧。

更多相关内容搜索:协议插件(Asynchronous Pluggable Protocols),MIME Filter

我是在下面这篇文章里面发现这种实现方法的,下面转载:

转贴来互联网,不过文章作者倒是很眼熟,好像是看过他几篇文章了,支持!

IE异步可插入协议扩展

作者陈省

介绍

对于每天都要使用的IE浏览器的人来说,输入https://www.360docs.net/doc/938246032.html,等网址进行网上冲浪就象呼吸一样自然。大多数情况时,我们可能根本想不起来要在网址前面加上http:// 来声明要访问的是一个基于http协议的Web网站。所谓网络协议,其实无非就是一组描述如何获取不同资源并进行通讯的行为规则。IE浏览器除了内置了对http协议外,还持ftp和gopher等协议。

从IE4开始,IE允许通过插入式异步协议扩展来扩展它处理协议的功能,人们可以通过自定义的扩展来让IE支持更多的协议,比如一些不是普遍支持的流媒体协议等。此外,我们还可以通过插入式协议扩展让IE可以以HTML文件的形式显示一个数据库中的表。

异步可插入协议的原理

可插入式协议是基于异步的URL Moniker技术的。Moniker最早是从OLE2中引入的概念,当时的Moniker就是一个COM绑定和定位对象,人们可以使用Moniker来定位并加载被保存到文件中的COM 组件,实现COM的可持续性,一开始Moniker是基于同步方式实现的。随着网络技术的发展,定位并从网络上获取信息的需求逐渐超过了对本地数据的存取需求,因为网络的通讯通常都是不稳定的,因此需要以异步的方式来实现。为此微软设计了URL moniker对象来提供网络信息下载过程的一个统一接口,基于URL来访问网络资源的Moniker演变成了以异步方式实现的Moniker。

IE的URL moniker是在urlmon.dll动态连接库中实现的。当urlmon.dll处理http, ftp, Gopher等内置协议的访问时,它把访问请求转发给内部的一个COM组件来处理,该COM组件使用WinInet

函数来完成实际的处理工作。对于非内置的协议,urlmon.dll则把请求转发给特定的可插入协议扩展进行处理,比如说mailto:协议。

一个典型的异步可插入协议(APP)的主要工作的就是接收一个非IE内置的UrlURL协议字符串,对字符串进行解析,分析字符串的元素,并根据协议访问相应的系统或者网络资源,并将网络资源的内容输出到浏览器。

一个自定义的电子书可插入协议的实现

我平时业余时间喜欢上网上找一些娱乐小说和技术书籍来看,其中有一些小说采用的是付费方式才能看既然是付费的小说,自然会提供一些加密的方式,避免盗版书在网上的传播。

接下来,我想写一个程序对一些Html文件进行加密,只有用户在浏览器中键入EBook://c:\abc.htm,然后输入口令后,才能看到解密后的Html页面。接下来,就看如何使用APP来实现这样一个可插入协议。

创建COM组件

首先,新建一个ActiveX Library项目,保存为IEProtocol.dpr,然后新建一个名为TIEEncryptAPP 的COM组件,保存为CIEProtocol.pas文件。一个APP组件至少要实现IInternetProtocol接口(该接口定义在urlmon.pas单元中),又由于IInternetProtocol接口派生自IInternetProtocolRoot,所以我们还需要实现IInternetProtocolRoot接口。下面是实现了IInternetProtocol接口的TIEEncryptAPP类的定义:

type

TIEEncryptAPP = class(TComObject, IInternetProtocol)

protected

//IInternetProtocolRoot接口定义

function Start(szUrl: LPCWSTR; OIProtSink: IInternetProtocolSink;

OIBindInfo: IInternetBindInfo; grfPI, dwReserved: DWORD): HResult;

stdcall;

function Continue(const ProtocolData: TProtocolData): HResult; stdcall;

function Abort(hrReason: HResult; dwOptions: DWORD): HResult; stdcall;

function Terminate(dwOptions: DWORD): HResult; stdcall;

function Suspend: HResult; stdcall;

function Resume: HResult; stdcall;

//IInternetProtocol接口定义

function Read(pv: Pointer; cb: ULONG; out cbRead: ULONG): HResult; stdcall;

function Seek(dlibMove: LARGE_INTEGER; dwOrigin: DWORD; out libNewPosition:

ULARGE_INTEGER): HResult; stdcall;

function LockRequest(dwOptions: DWORD): HResult; stdcall;

function UnlockRequest: HResult; stdcall;

end;

其中IInternetProtocolRoot接口的方法意义如下:

Abort

停止一个正在进行的资源下载过程

Continue

允许协议扩展继续进行进行资源数据下载过程。

Resume

未来扩充需要,暂时未实现。

Start

启动同该协议相关的资源下载过程。

Suspend

未来扩充需要,暂时未实现

Terminate

结束下载过程,释放扩展分配的资源。

而IInternetProtocol协议的方法定义如下:

LockRequest

锁定资源下载请求,这时IInternetProtocolRoot接口的Terminate方法将允许被调用,与此同时未下载完的数据仍然可以被读取。

Read

浏览器调用这个方法从协议扩展获得相应的数据。

Seek

移动读取数据的位置。

UnlockRequest

释放请求锁定

对于电子图书这样一个简单的协议扩展来说,我们只需要实现Start方法来启动下载过程,并通过Read 方法向浏览器返回解密后的电子图书的数据就可以了。其它的方法只要简单的返回请求结果,而无须做任何的操作:

function TIEEncryptAPP.Abort(hrReason: HResult; dwOptions: DWORD): HResult;

begin

Result := Inet_E_Invalid_Request;

end;

function TIEEncryptAPP.Continue(

const ProtocolData: TProtocolData): HResult;

begin

Result := Inet_E_Invalid_Request;

end;

function TIEEncryptAPP.LockRequest(dwOptions: DWORD): HResult;

begin

Result := S_OK;

end;

function TIEEncryptAPP.Resume: HResult;

begin

Result := Inet_E_Invalid_Request;

end;

function TIEEncryptAPP.Seek(dlibMove: LARGE_INTEGER; dwOrigin: DWORD;

out libNewPosition: ULARGE_INTEGER): HResult;

begin

Result := E_Fail;

end;

function TIEEncryptAPP.Suspend: HResult;

begin

Result := Inet_E_Invalid_Request;

function TIEEncryptAPP.Terminate(dwOptions: DWORD): HResult;

begin

Result := S_OK;

end;

function TIEEncryptAPP.UnlockRequest: HResult;

begin

Result := S_OK;

end;

启动协议处理

首先来看如何启动协议处理,当我们在浏览器中输入EBook://c:\ebook.htm字符串想要浏览加密的页面文件时,IE会找到EBook的扩展协议,然后调用协议的Start方法来启动协议处理过程:threadvar

ResultHTML: array[0..64 * 1024 - 1] of Char; { 64 kB }

CurrPos: Integer;

BytesLeft: Integer;

ProtSink: IInternetProtocolSink;

function TIEEncryptAPP.Start(szUrl: LPCWSTR;

OIProtSink: IInternetProtocolSink; OIBindInfo: IInternetBindInfo; grfPI,

dwReserved: DWORD): HResult;

Const

ErrorHTML = ''#13+

'

浏览电子书%s时发生错误

'#13+

'

%s

'#13+

'';

var

S: string;

begin

S := WideCharToString(szURL);

{ EBook:// }

Delete(S, 1, 8);

//去掉后面/符号

SetLength(S, Length(S) - 1);

S := HTTPDecode(S);

if FileExists(S) then

begin

//显示密码提示框

if InputBox('密码','请输入密码', '')<>'hubdog' then

S:=Format(ErrorHTML, [S, '无效的密码'])

S := Decrypt(S);

end

else

S := Format(ErrorHTML, [S, '没有找到文件']);

CurrPos := 0;

BytesLeft := Length(S);

FillChar(ResultHTML, SizeOf(ResultHTML), 0);

StrPCopy(ResultHTML, S);

ProtSink := OIProtSink;

//数据通知

OIProtSink.ReportData(bscf_LastDataNotification, 0, BytesLeft);

//数据可完全获得的通知

OIProtSink.ReportData(bscf_DataFullyAvailable, 0, BytesLeft);

Result := S_OK;

end;

Start方法中有一个szUrl的参数,对应着我们在浏览器中输入的url字符串(注意:IE会在输入的字符串末尾自动加上一个斜杠),为了获得要处理的被加了密的html文件,使用Delete函数先从字符串中删除EBook://8个字符,然后在用SetLength去掉IE添加的斜杠,同时要注意IE传过来的字符串参数是进行Http编码的,所以还要调用HttpApp单元中的HttpDecode来进行解码还原为

c:\ebook.htm的文件名字符串。

如果输入的文件存在的话,则提示用户输入密码,如果密码匹配的话,则调用Decrypt函数对文件进行解密并,返回解密后的文本串。如果文件不存在,或者密码不匹配,则生成ErrorHtml返回一个错误描述的HTML页面。关于加密和解密过程,比较简单,我会在后面介绍。

获得解密后的文本后,将文本内容复制到ResultHTML字符串缓冲区中(这里的缓冲区处于简单的考虑,写死成64K)。另外要注意的是这里用的参数都使用ThreadVar来声明,这是因为协议处理过程是一个多线程异步的过程,同一时刻,可能有多个EBook的协议请求在处理中,所以变量都要声明为线程安全的,以避免资源冲突。接下来保存IE通过Start方法传过来的OIProtSink协议处理事件接口(稍后还会用到),然后调用接口的ReportData方法通知IE要获取的数据量为BytesLeft,并通过设定ReportData的grfBSCF参数为LastDataNotification 和DataFullyAvailable通知IE,数据已经完全准备好了,这样稍后IE就会调用扩展的Read方法来获得解密后的页面数据。

返回解密数据

function TIEEncryptAPP.Read(pv: Pointer; cb: ULONG;

out cbRead: ULONG): HResult;

var

I: Integer;

begin

if (BytesLeft > 0) then

begin

I := CB;

if (I > BytesLeft) then

I := BytesLeft;

Move(ResultHTML[CurrPos], PV^, I);

CBRead := I;

Dec(BytesLeft, I);

Inc(CurrPos, I);

Result := S_OK;

{通知IE读取更多的数据}

end

else

begin

//数据全部下载完成

Result := S_False;

ProtSink.ReportResult(S_OK, 0, nil);

end;

end;

在Read 方法中,IE会传过来一个内部缓冲区的指针pv,同时cb参数表示缓冲区的大小,电子书的数据有可能会很大,而IE的缓冲区不会无限大,因此IE会分多次来读取电子书的数据,我们每次应该尽可能读取cb大小的数据,将其移动到IE的缓冲区内,读取完成后减少BytesLeft的值,同时增加CurrPos 的值来记录当前以发送给IE的数据位置,并返回cbRead告诉IE传送的数据到底有多少。如果一次没有返回全部的数据,则返回S_OK通知IE还有没传送完的数据,这样IE就会继续调用Read 方法来完成数据下载,最后当所有的数据都处理完毕后,则返回S_False通知IE已经没有要传的数据了,同时,调用事件接口ProtSink的ReportData方法通知IE,协议处理完毕。

加密解密

还是为了简单起见,html页面的加密非常简单,我使用XOR加密,这样的好处是,处理简单。因为XOR加密和解密是一个可逆过程,加密和解密使用同一个函数就可以完成了。下面是加密和解密字符串类:

type

//加密字符串类

TEncryptStrings = class(TStringList)

public

procedure SaveToStream(Stream: TStream); override;

end;

//解密字符串类

TDecryptStrings = class(TStringList)

public

procedure LoadFromStream(Stream: TStream); override;

end;

implementation

//用xor算法进行加密

procedure EncodeStream(Input, Output: TStream);

var

InBuf: array[0..1023] of byte;

BufPtr: PChar;

I, BytesRead: Integer;

begin

Assert(Assigned(Input), '无效的流指针');

//必须重新设置流指针位置

Input.Position := 0;

Output.Position := 0;

repeat

BytesRead := Input.Read(InBuf, SizeOf(InBuf));

I := 0;

while I < BytesRead do

begin

InBuf[I] := InBuf[I] xor 8;

Inc(I);

end;

OutPut.Write(InBuf, BytesRead);

until BytesRead = 0;

Input.Position := 0;

Output.Position := 0;

end;

{ TDecryptStrings }

procedure TDecryptStrings.LoadFromStream(Stream: TStream); var

OutStream:TMemoryStream;

begin

//解密

OutStream:=TMemoryStream.Create;

try

EncodeStream(Stream, OutStream);

inherited LoadFromStream(OutStream);

finally

OutStream.Free;

end;

end;

{ TEncryptStrings }

procedure TEncryptStrings.SaveToStream(Stream: TStream);

var

OutStream: TMemoryStream;

begin

inherited;

//加密

OutStream := TMemoryStream.Create;

try

EncodeStream(Stream, OutStream);

Stream.CopyFrom(OutStream, 0);

finally

OutStream.Free;

end;

end;

为了减少编码工作量,我直接从TStringList类派生了两个字符串列表处理类,并重载了LoadFromStream和SaveToStream方法来对流进行加解密处理。加解密处理都是调用的EncodeStream方法来对字符串流进行加密,加密使用每个字符同8进行xor运算。

下面我写了一个程序,可以对html文件进行处理点击Button1,则将文件进行加密处理,点击Button2可以对察看解密后文件的原有内容:

procedure TForm1.Button1Click(Sender: TObject);

var

Strings:TEncryptStrings;

begin

if not OpenDialog1.Execute then Exit;

Strings:=TEncryptStrings.Create;

try

Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

Strings.Text:=Memo1.Text;

Strings.SaveToFile(OpenDialog1.FileName);

Memo2.Lines.LoadFromFile(OpenDialog1.FileName);

finally

Strings.Free;

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

var

Strings:TDecryptStrings;

begin

if not OpenDialog1.Execute then Exit;

Strings:=TDecryptStrings.Create;

try

Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

Strings.LoadFromFile(OpenDialog1.FileName);

Memo2.Lines.Text:=Strings.Text;

finally

Strings.Free;

end;

end;

界面如下:

注册扩展

完成了扩展协议后,只剩下注册扩展了,要想注册扩展,需要在注册表的

HKEY_CLASSES_ROOT\PROTOCOLS\Handler\下添加EBook关键字,然后在该关键字下添加名为CLSID的字段,设定其值为扩展的Guid,下面是用于注册的类工厂:

type

TIEEncryptAPPFactory = class(TComObjectFactory)

public

procedure UpdateRegistry(Register: Boolean); override;

end;

{ TIEEncryptAPPFactory }

procedure TIEEncryptAPPFactory.UpdateRegistry(Register: Boolean);

begin

inherited;

if Register then

CreateRegKeyValue(HKEY_CLASSES_ROOT, 'PROTOCOLS\Handler\EBook', 'CLSID',

GuidToString(ClassID))

else

DeleteRegKeyValue(HKEY_CLASSES_ROOT, 'PROTOCOLS\Handler\EBook', 'CLSID');

end;

initialization

TIEEncryptAPPFactory.Create(ComServer, TIEEncryptAPP, Class_IEEncryptAPP,

'IEEncryptAPP', '', ciMultiInstance, tmApartment);

end.

最后,将本书光盘中的ebook.htm文件放到c:根目录下,注册扩展后,启动IE,输入

ebook://c:\ebook.htm,然后在弹出的密码框中输入hubdog,IE就会显示解密后的电子小说,界面示意如下:

临时注册扩展

上面的注册方法可以称为持久注册的方法,一旦注册就总是生效,。IE还提供临时注册的方法,只要编写一个BHO扩展,在BHO加载时,调用TemporyRegister方法进行注册,在IE退出时调用:var

Factory:IClassFactory;

procedure TemporaryRegister;

begin

CoGetClassObject(Class_IEEncryptAPP, CLSCTX_SERVER, nil, IClassFactory, Factory); CoInternetGetSession(0, InternetSession, 0);

InternetSession.RegisterNameSpace(Factory, Class_IEEncryptAPP, 'EBook', 0, nil, 0);

end;

procedure UnRegister;

begin

InternetSession.UnregisterNameSpace(Factory, 'EBook');

end;

这样的好处是,在程序运行时,可以随时解除对扩展协议的支持,而前面的永久注册法必须在解除注册后,重新启动IE才行。缺点是必须通过一个BHO来实现临时注册。

其它的APP

除了上面的协议扩展外,IE还支持NameSpace Handler以及Mime-Handler两种APP扩展。其中NameSpace扩展是对特定名字空间进行处理的协议扩展,比如如果我们注册一个对名字空间

,则当IE处理https://www.360docs.net/doc/938246032.html,、的URL 时,一旦遇到hubdog名字空间,就会调用我们的NameSpace Handler进行处理,而不管URL是基于http协议的还是ftp等其它协议的都进行处理。从实现的角度来看,NameSpace的实现方法和前面的协议扩展几乎一样,除了注册时要填写的注册表项内容不同而已。

而Mime协议扩展处理的主要是对一些特殊的媒体资源如图片,声音文件进行处理,比如下表是IE 默认支持的一些媒体形式。

text/richtext

text/html

audio/x-aiff

audio/basic

audio/wav

image/gif

image/jpeg

相关主题
相关文档
最新文档