久久婷婷久久一区二区三区,欧美高清自拍一区,国产伦精品一区二区三区免费

Tue, 31 Jul 2007 02:20:00 GMT

一、前�a�

　　公元一九九五年某个夜黑风高的晚上，我的一位老师跟我��_��“小杨呀�Q�以后写�E�序��和搭积木一样啦。你赶快学习一些OLE的技术吧......”，当时我心里就��L�?�Q�“开什么玩�W�？搭积木方式写�E�序�Q�再�q?00�q�吧......”，但作��Z��名听话的好学生，我开始在书店里“踅摸”（�?�Q�有关OLE的书�c�（�?�Q�。功夫不负有心�h�Q�终于买��C��我的�W�一本COM书《OLE2 高��~�程技术》，�q�本800多页的大布头��p��了我1/5的月工资呀......于是开始日夜耕读.....
    功夫不负有心人，我坚持读完了全部著作�Q�感��x��Q�这本书�Q�在说什么呐�Q?br />    功夫不负有心人，我又��d��了一遍大布头�Q�感��x��Q�咳~~~�Q�没懂！
    功夫不负有心人，我再�Q�我�?我再�?... 感想是：哦~~~�Q�读懂了一点点啦，哈哈哈�?br />    ...... ......
    功夫不负有心人，我终于，我终于懂了�?br />    800��늚�书对现在的我来说�Q�其实也��?0几页有用。到�q�时候才体会��Z��么叫“书��读��薄”的道理了。到后来�Q�能买到的书也多了，上网也更方便更便宜了......

　　��Z��让VCKBASE上的朋友�Q�不再经历我曄��的痛苦、不再重�y�我“无头苍蝇”般探烦的艰辛、�ؓ了VCKBASE的蓬勃发展、�ؓ了中国��Y件事业的��N��Q�糟�p�，吹的太也高了�Q?.....我打��节�U�一些在 BBS 上赚分的旉��Q�写个系列论文，��叫“COM�l��g设计与应用”吧。今天是�W�一部分——�v源�?br />
二、文件的存储

　　传说350�q�前�Q�牛��被�Ҏ��砸到了头�Q�于是发��C��万有引力。但��C��二十一世纪的现在，��M��一个技术的发明和发展，已经不再依靠圣�h灵光的一闪。技术的�q�步转而是被社会的需求、商业的利益、竞争的压力、行业的渗透等推动的。微软在Windows�q�_��上的�l��g技术也不例外，它的发明�Q�有其必然因素。什么是�q�个因素那？�{�案是——文件的存储�?br />　　打开��C��本程序，输入了一��文章后�Q�保存。——这��L��文�g叫“非�l�构化文件”；
　　打开电子表格�E�序�Q�输入一个班的学生姓名和考试成�W�Q�保存。——这��L��文�g叫“标准结构化文�g”；
　　在我们写的程序中�Q�需要把特定的数据按照一定的�l�构和顺序写到文件中保存。——这��L��文�g叫“自定义�l�构化文件”；�Q�比�?*.bmp 文�g�Q?br />　　以上三种�c�d��的文�Ӟ��大家都见的多了。那么文件存储就依靠上述的方式能满��所有的应用需求吗�Q�恩~~~�Q�至��从计算机发明后�?0多年来，一直是够用的了。嘿嘿，下面看看商业利益的推动作用，�Ҏ��?的存储�Ş式��生了什么变化吧�?0岁以上的朋友�Q�我估计以前都��用过以下几个著名的��Y�Ӟ��WordStar�Q�独霸DOS下的英文�~�辑软�g�Q�，WPS�Q�裘伯君写的中文�~�辑软�g�Q�据说当�q�的市场占有率高�?0%�Q�各�U�计��机培训班的必修评��Q�，LOTUS-123�Q�莲花公司出品的电子表格软�g�Q?.....
    微��Y在成功地推出 Windows 3.1 后，开始垂涎桌面办公自动化软�g领域。微软的 OFFICE 开发部门，各小�l�分别独立地开发了 WORD �?EXCEL �{��Y�Ӟ��q��用“自定义�l�构”方式，�Ҏ��件进行存储。在�Ȁ烈的市场竞争下，��Z��打��|竞争�Ҏ��Q�微软自然地产生了一个念�?-----如果我能�?WORD �E�序中嵌�?EXCEL�Q�那么用户在购买了我 WORD 软�g的情况下�Q�不��没有必要再�?LOTUS-123 了吗�Q�！“恶毒”（中国微��Y的同志们看到了这个词�Q�不要激动，我是加了引号的呀�Q�的计划产生后，他们开始了实施工作�Q�这��是 COM 的前�w?OLE 的�v源（�?�Q�。但立刻��遇��C��一个严重的技术问题：需要把 WORD 产生�?DOC 文�g�?EXCEL 产生�?XLS 文�g保存在一赗��?br />　

�Ҏ��	优点	�~�点
建立一个子目录�Q�把 DOC、XLS 存储在这同一个子目录中�?/td>	数据隔离性好�Q�WORD 不用了解 EXCEL 的存储结构；�Ҏ��扩展�?/td>	�l�构太松散，�Ҏ��造成数据的损坏或丢失�?br />不易携带�?/td>
修改文�g存储�l�构�Q�在DOC�l�构基础上扩展出包容 XLS 的结构�?/td>	�l�构紧密�Q�容易携带和�l�一��理�?/td>	WORD 的开发�h员需要通晓 EXCEL 的存储格式；�~�少扩展性，��M��能新加一个类型就扩展一下结构吧�Q�！

以上两个�Ҏ��Q�都有严重的�~�陷�Q�怎么解决那？如果能有一个新�Ҏ��Q�能够合�q�前两个�Ҏ��的优点，消灭�~�点�Q�该多好呀......微��Y是作��盘***作系�l��v家的�Q�于是很自然��C��们提��Z��一个非常完��的设计�Ҏ��Q�那��是把磁盘文件的��理方式�U�L��到文件中�?-----复合文�g�Q�俗�U�“文件中的文件系�l�”。连微��Y当年都没有想刎ͼ��p��么一个简单的��x��Q�居然最后就演变��Z�� COM �l��g�E�序设计的方法。可以说�Q�复合文件是 COM 的基矟뀂下图是��盘文�g�l�织方式与复合文件组�l�方式的�c�L��图：
500){this.resized=true;this.style.width=500;}" border="0" />
图一、左侧表�C�Z��个磁盘下的文件组�l�方式，右侧表示一个复合文件内部的数据�l�织方式�?br />
三、复合文件的特点

复合文�g的内部是使用指针构造的一��|��q�行��理的。编写程序的时候要注意�Q�由于��用的是单向指针，因此当做定位***作的时候，向后定位比向前定位要快；
复合文�g中的“流对象”，是真正保存数据的�I�间。它的存储单位�ؓ512字节。也��是��_��即��你在��中只保存了一个字节的数据�Q�它也要占据512字节的文件空间。啊~~~�Q�这也太��费了呀�Q�不��费�Q�因为文件保存在��盘上，即��一个字节也�q�要占用一个“簇”的�I�间那；
不同的进�E�，或同一个进�E�的不同�U�程可以同时讉K��一个复合文件的不同部分而互不干扎ͼ�
大家都有�q�样的体会，当需要往一个文件中插入一个字节的话，需要对整个文�g�q�行***作，非常烦琐�q�且效率低下。而复合文件则提供了非常方便的“增量访问”能力；
当频�J�地删除文�g�Q�复制文件后�Q�磁盘空间会变的很零��，需要��用磁盘整理工兯��行重新整合。和��盘��理非常�怼��Q�复合文件也会��生这个问题，在适当的时候也需要整理，但比较简单，只要调用一个函数就可以完成了�?

四、浏览复合文�?/b>

　　VC6.0 附带了一个工兯��Y件“复合文件浏览器”，文�g名是“vc目录\Common\Tools\DFView.exe”。�ؓ了方便��用该�E�序�Q�可以把它加到工�?tools)菜单中。方法是�Q�Tools\Customize...\Tools卡片中增加新的项目。运�?DFView.exe�Q�就可以打开一个复合文件进行观察了�Q�注4�Q�。但奇怪的是，�?Microsoft Visual Studio .NET 2003 中，我反而找不到�q�个工具�E�序�?汗！不过�q�恰好提供给大家一个练习的��Z��Q�在你阅��d��本篇文章�q�掌握了�~�程�Ҏ��后，自己写一个“复合文件浏览编辑器”程序，又练手了�Q�还有实用的价倹{�?br />
�?/b>、复合文件函�?/b>

　　复合文�g的函数和��盘目录文�g�?**作非常类伹{��所有这些函敎ͼ�被分�?�U�类型：WIN API 全局函数�Q�存�?IStorage 接口函数�Q�流 IStream 接口函数。什么是接口�Q�什么是接口函数�Q�以后的文章中再陆箋介绍�Q�这里大家只要把“接口”看成是完成一�l�相�?**作功能的函数集合��可以了�?br />　

WIN API 函数

功能说明

StgCreateDocfile() 建立一个复合文�Ӟ��得到根存储对�?/td>

StgOpenStorage() 打开一个复合文�Ӟ��得到根存储对�?/td>

StgIsStorageFile() 判断一个文件是否是复合文�g

　

IStorage 函数

功能说明

CreateStorage() 在当前存储中建立新存储，得到子存储对�?/td>

CreateStream() 在当前存储中建立新流�Q�得到流对象

OpenStorage() 打开子存储，得到子存储对�?/td>

OpenStream() 打开��，得到��对�?/td>

CopyTo() 复制存储下的所有对象到目标存储中，该函数可以实现“整理文�Ӟ��释放��片�I�间”的功能

MoveElementTo() �U�d��对象到目标存储中

DestoryElement() 删除对象

RenameElement() 重命名对�?/td>

EnumElements() 枚�D当前存储中所有的对象

SetElementTimes() 修改对象的时�?/td>

SetClass() 在当前存储中建立一个特�D�的��对象，用来保存CLSID�Q�注5�Q?/td>

Stat() 取得当前存储中的�pȝ��信息

Release() 关闭存储对象

　

IStream 函数

功能说明

Read() 从流中读取数�?/td>

Write() 向流中写入数�?/td>

Seek() 定位��d��位置

SetSize() 讄��尺寸。如果预先知道大��，那么先调用这个函敎ͼ�可以提高性能

CopyTo() 复制��数据到另一个流对象�?/td>

Stat() 取得当前��中的系�l�信�?/td>

Clone() 克隆一个流对象�Q�方便程序中的不同模�?**作同一个流对象

Release() 关闭��对�?/td>

　

WIN API 补充函数 功能说明

WriteClassStg() 写CLSID到存储中�Q�同IStorage::SetClass()

ReadClassStg() ��d��WriteClassStg()写入的CLSID�Q�相当于��化调用IStorage::Stat()

WriteClassStm() 写CLSID到流的开始位�|?/td>

ReadClassStm() ��d��WriteClassStm()写入的CLSID

WriteFmtUserTypeStg() 写入用户指定的剪贴板格式和名�U�到存储�?/td>

ReadFmtUserTypeStg() ��d��WriteFmtUserTypeStg()写入的信息。方便应用程序快速判断是否是它需要的格式数据�?/td>

CreateStreamOnHGlobal() 内存句柄 HGLOBAL 转换为流对象

GetHGlobalFromStream() 取得CreateStreamOnHGlobal()调用中��用的内存句柄

��Z��让大家快速地��览和掌握基本方法，上面所列表的函数�ƈ不是全部�Q�我省略了“事务”函数和未实现函数部分。更全面的介�l�，请阅�?MSDN�?br /> 下面�E�序片段�Q�演�C�Z��一些基本函数功能和调用�Ҏ��。�?
�C�Z��一�Q�徏立一个复合文�Ӟ��q�在其下建立一个子存储�Q�在该子存储中再建立一个流�Q�写入数据�?/p>
void SampleCreateDoc() { ::CoInitialize(NULL); // COM 初始�? // 如果是MFC�E�序�Q�可以��用AfxOleInit()替代 HRESULT hr; // 函数执行�q�回�? IStorage *pStg = NULL; // 根存储接口指�? IStorage *pSub = NULL; // 子存储接口指�? IStream *pStm = NULL; // ��接口指�? hr = ::StgCreateDocfile( // 建立复合文�g L"c:\\a.stg", // 文�g名称 STGM_CREATE | STGM_WRITE | STGM_SHARE_EXCLUSIVE, // 打开方式 0, // 保留参数 &pStg); // 取得根存储接口指�? ASSERT( SUCCEEDED(hr) ); // ��Z��H�出重点�Q�简化程序结构，所以��用了断言�? // 在实际的�E�序中则要��用条件判断和异常处理 hr = pStg->CreateStorage( // 建立子存�? L"SubStg", // 子存储名�U? STGM_CREATE | STGM_WRITE | STGM_SHARE_EXCLUSIVE, 0,0, &pSub); // 取得子存储接口指�? ASSERT( SUCCEEDED(hr) ); hr = pSub->CreateStream( // 建立��? L"Stm", // ��名�U? STGM_CREATE | STGM_WRITE | STGM_SHARE_EXCLUSIVE, 0,0, &pStm); // 取得��接口指�? ASSERT( SUCCEEDED(hr) ); hr = pStm->Write( // 向流中写入数�? "Hello", // 数据地址 5, // 字节长度(注意�Q�没有写入字�W�串�l�尾的\0) NULL); // 不需要得到实际写入的字节长度 ASSERT( SUCCEEDED(hr) ); if( pStm ) pStm->Release();// 释放��指�? if( pSub ) pSub->Release();// 释放子存储指�? if( pStg ) pStg->Release();// 释放根存储指�? ::CoUninitialize() // COM 释放 // 如果使用 AfxOleInit(),则不调用该函�? }
500){this.resized=true;this.style.width=500;}" border="0" />
图二、运行示例程序一后，使用 DFView.exe 打开观察复合文�g的效果图

�C�Z��二：打开一个复合文�Ӟ��枚�D其根存储下的所有对�?/strong>�?br />---(自己的理�?是不是每个对象就是一个子存储??)
�Q�i nclude // ANSI、MBCS、UNICODE 转换 void SampleEnum() { // 假设你已�l�做�q?COM 初始化了 LPCTSTR lpFileName = _T( "c:\\a.stg" ); HRESULT hr; IStorage *pStg = NULL; USES_CONVERSION; // �Q�注6�Q? LPCOLESTR lpwFileName = T2COLE( lpFileName ); // 转换T�c�d��为宽字符 hr = ::StgIsStorageFile( lpwFileName ); // 是复合文件吗�Q? if( FAILED(hr) ) return; hr = ::StgOpenStorage( // 打开复合文�g lpwFileName, // 文�g名称 NULL, STGM_READ | STGM_SHARE_DENY_WRITE, 0, 0, &pStg); // 得到根存储接口指�? IEnumSTATSTG *pEnum=NULL; // 枚�D�? hr = pStg->EnumElements( 0, NULL, 0, &pEnum ); ASSERT( SUCCEEDED(hr) ); STATSTG statstg; while( NOERROR == pEnum->Next( 1, &statstg, NULL) ) { // statstg.type 保存着对象�c�d�� STGTY_STREAM �?STGTY_STORAGE // statstg.pwcsName 保存着对象名称 // ...... �q�有旉��Q�长度等很多信息。请查看 MSDN ::CoTaskMemFree( statstg.pwcsName ); // 释放名称所使用的内存（�?�Q? } if( pEnum ) pEnum->Release(); if( pStg ) pStg->Release(); }
六、小�l?/b>

　　复合文�g�Q�结构化存储�Q�是微��Y�l��g思想的�v源，在此基础上��l�发展出了持�l�性、命名、ActiveX、对象嵌入、现场激�z?.....一�p�d��的新技术、新概念。因此理�?atlconv.h>�?atlconv.h>掌握复合文�g是非帔R��要的�Q�即使在你的�E�序中�ƈ没有全面使用�l��g技术，复合文�g技术也是可以单独被应用的。祝大家学习快乐�Q��ؓ�C�会��M��软�g事业而奋�?-)

留作业啦......
作业1�Q�写个小应用�E�序�Q�从 MSWORD �?doc 文�g中，提取出附加信息（作者、公�?.....�Q��?br />作业2�Q�写个全功能的“复合文件浏览编辑器”�?br />
�?�Q�踅�?xuemo)�Q�动词，北方方言�Q�寻找搜索的意思�?br />�?�Q�问�Q��ؓ什么不上网查资料学习？
�{�：开什么国际玩�W�！在那遥远�?995�q�代�Q�我�?00块工资，不吃不喝正好够上100��时的Internet�|��?br />�?�Q�OLE�Q�对象的�q�接与嵌入�?br />�?�Q�可以用 DFView.exe 打开 MSWORD �?DOC 文�g�q�行复合文�g的浏览。但是该�E�序�q�没有实现国际化�Q�不能打开中文文�g名的复合文�g�Q�因此需要改名后才能��览�?br />�?�Q�CLSID�Q�在后箋的文章中介绍�?br />�?�Q�关�?COM 中内存��用的问题�Q�在后箋的文章中介绍�?

旅�?/a> 2007-07-31 10:20 发表评论

�l�构或大内存块打包的办法

Mon, 30 Jul 2007 08:51:00 GMT

�l�构或大内存块打包的办法

Revision History:

Version Date Creator Description

Implementation Scope�Q?/p>
�l�箋阅读之前�Q�我们假设您熟悉以下知识�Q?/p>

SAFEARRAY
ISTREAM
Microsoft MSMQ

目录�Q?/p>
1:概述

2:借用SAFEARRAY打包把结构写入MSMQ队列

3:借用IStream��打包传递数据到MSMQ队列

1.概述

通常我们��通过MSMQ传递基于XML的字�W�串�Q�但有时候也需要传递一些结构或者一些接口指针，那么如何打包传递呢�Q?/p>
�q�实际上可以转换��Z��个普适问题：

如何把一个结构体(structure object)或者巨大内存块�Q�比�?MB左右�Q�打包�ؓPROPVARIANT-compatible的类型？

首先�Q�IMSMQMessagePtr的Body属性接收_variant_t参数:

inline void IMSMQMessage::PutBody ( const _variant_t & pvarBody ) {

    HRESULT _hr = put_Body(pvarBody);

    if (FAILED(_hr)) _com_issue_errorex(_hr, this, __uuidof(this));

}

如果我们��x��l�构作�ؓ消息的Body写入MSMQ消息队列�Q�我们需要把我们的结构、大内存块或接口指针转换为_variant_t�?/p>
2.借用SAFEARRAY打包把结构写入MSMQ队列

把一个结构体打包为PROPVARIANT-compatible的类型，需要用到SAFEARRAY�Q�一个带有边界信息的数组。这是一个常用技巧，很多文章都有提及�Q�我��׃��多解释了�?/p>
但是�Q�注意这�U�方式一�ơ只能打�?5536字节以下的数据，�q�是�׃��

SAFEARRAY* SafeArrayCreateVector(

VARTYPE      vt,

long          lLbound,

unsigned int cElements);

的定义所限制的�?/p>
我们通常会用SafeArrayCreateVector API创徏一个单�l�SAFEARRAY�Q�分配一个sizeof(_DATA)大小的连�l�内存块�Q�而这个函数的�W�三个参数是一个unsigned int�c�d��Q�所以最大值就只能�?5536了�?/p>
更多SAFEARRAY知识�Q�参见��用SAFEARRAY传递对象�?/p>

2.借用SAFEARRAY打包把结构写入MSMQ队列

�l�上1.1��的打包步骤�Q�VC++代码�Q�：

// ChangeStruct2Var函数的定义：

// �W�一个参敎ͼ�

//   �c�d��Q�CComVariant

//   作用�Q�接收�?/p>
// �W�二个参敎ͼ�

//   �c�d��Q�_DATA*

//   作用�Q�源

HRESULT ChangeStruct2Variant (CComVariant &var, _DATA *pData)

{

HRESULT hr = S_OK;

// 使用SafeArrayCreateVector API创徏一个单�l�SAFEARRAY�Q�分配一个sizeof(_DATA)大小的连�l�内存块

// VT--UI1代表非负整�Ş的变量类型，1个字�?/p>
// 常数'0'定义数组的下�?/p>
LPSAFEARRAY lpsa = SafeArrayCreateVector(VT_UI1, 0, sizeof(_DATA));

LPBYTE pbData = NULL;

if (lpsa)

{

     //在你讉K��SAFEARRAY数据之前�Q�你必须调用SafeArrayAccessData。该函数锁定数据�q�且�q�回一个指针。在�q�里�Q�锁定数�l�意味着增加该数�l�的内部计数器（cLocks�Q?/p>
    hr = SafeArrayAccessData(lpsa, (void **)&pbData);

}

else

    hr = HRESULT_FROM_WIN32(GetLastError());

if (SUCCEEDED(hr))

{

     // 使用safe array�Q?/p>
     // ��传入的_DATA指针指向的内存复制到pbData

    CopyMemory(pbData, pData, sizeof(*pData));

// 讄��var的类型�ؓ数组

    var.vt = VT_ARRAYVT_UI1;

// ��var和我们的单维SAFEARRAY拉上关系�Q?/p>
    var.parray = lpsa;

}

if (pbData)

{

     //相应用来释放数据的函数是SafeArrayUnaccessData()�Q�该功能释放该参数的计数�?/p>
    SafeArrayUnaccessData(var.parray);

}

if (FAILED(hr))

{

     // 销毁SAFEARRAY

    SafeArrayDestroy(lpsa);

}

return hr;

}

////////////////////////////////////////////////////////////

//Added Headers:

////////////////////////////////////////////////////////////

#include

#include

///////////////////////////////////////////////////////////

//Added for MSMQ:

///////////////////////////////////////////////////////////

#import "mqoa.dll" no_namespace, named_guids

typedef    struct _DATA

{

       int    _n;

       char   _str;

}_DATA;

//main:

{

.. ..

.. ..

IMSMQMessagePtr pisMsg = NULL;

hr = pisMsg.CreateInstance("MSMQ.MSMQMessage");

_DATA msg;

msg._n = 1;

msg._str = '1';

CComVariant var;

// 打包函数�Q?/p>
ChangeStruct2Variant(var, &msg);

// 打包后的CComVariant传递给MSMQMessege的Body属性：

pisMsg->Body= var;

pisMsg->AppSpecific=-1;

// 发送到消息队列�Q?/p>
pisMsg->Send(pisQueue);

.. ..

}

�q�样�Q�就可以成功地把一个结构递交到MSMQ队列中了�?/p>

Implementation Scope�Q?br>�l�箋阅读之前�Q�我们假设您熟悉以下知识�Q?/p>

SAFEARRAY
ISTREAM
Microsoft MSMQ

目录�Q?/p>
1:概述

2:借用SAFEARRAY打包把结构写入MSMQ队列

3:借用IStream��打包传递数据到MSMQ队列

下面�l�出��d��MSMQ消息时解析的步骤�Q�VC++代码�Q�：

////////////////////////////////////////////////////////////

//Added Headers:

////////////////////////////////////////////////////////////

#include

#include

///////////////////////////////////////////////////////////

//Added for MSMQ:

///////////////////////////////////////////////////////////

#import "mqoa.dll" no_namespace, named_guids

typedef    struct _DATA

{

       int    _n;

       char   _str;

}_DATA;

//main:

{

.. ..

.. ..

hr = pisQI->raw_Open(MQ_PEEK_ACCESS,MQ_DENY_NONE,&pisQueue);

IMSMQMessagePtr piMessage;

// 获取MSMQ队列中的一个消息：

piMessage = pisQueue->PeekCurrent();

_DATA *msg = new _DATA();

// 解析函数�Q?/p>
ChangeVariant2Struct(CComVariant(piMessage->Body), msg);

.. ..

}

// ChangeVariant2Struct函数的定义：

// �W�一个参敎ͼ�

//   �c�d��Q�CComVariant

//   作用�Q�源

// �W�二个参敎ͼ�

//   �c�d��Q�_DATA*

//   作用�Q�接收�?/p>
HRESULT ChangeVariant2Struct (CComVariant &var, _DATA *DP)

{

SAFEARRAY* psa;

BYTE HUGEP *lpb;

psa = var.parray;

SafeArrayAccessData(psa, (void HUGEP **)&lpb);

CopyMemory((LPVOID)DP, (LPVOID)lpb, 8);

SafeArrayUnaccessData(psa);

return S_OK;

}

Writen by zhengyun.NoJunk(at)tomosoft.dot.com

Disclaimers�Q?br>

本文档仅供参考。本文档所包含的信息代表了在发布之日，zhengyun�Ҏ��讨论问题的当前看法，zhengyun不保证所�l�信息在发布之日以后的准��性�?

用户应清楚本文档的准��性及其��用可能带来的全部风险。可以复制和传播本文档，但须遵守以下条款�Q?

复制时不得修改原文，复制内容��d��含所有页 �Q?
所有副本均��d��?zhengyun的版权声明以及所提供的其它声�?�Q?/p>

Implementation Scope�Q?br>�l�箋阅读之前�Q�我们假设您熟悉以下知识�Q?/p>

SAFEARRAY
ISTREAM
Microsoft MSMQ

目录�Q?/p>
1:概述

2:借用SAFEARRAY打包把结构写入MSMQ队列

3:借用IStream��打包传递数据到MSMQ队列

3.借用IStream��传递数�?br>正如前面所�q�ͼ�当你有一块非常巨大的数据要传递给MSMQ队列�Ӟ��而且你希望一�ơ液压成型，那么把它打包入IStream��，也是一个很常用技巧，了解COM的�h都知道，我也不多解释了�?/p>
我们研究了ATL中IPersistMemoryImpl接口Load�Ҏ��的实现机理，来做我们的事情：

// 函数名：LoadStreamOnHugeMemory

// 功能�Q?nbsp; 同上

// �W�一个参数pvMem指向一块要打包的内存，�W�二个参数指明这块内存的大小

HRESULT LoadStreamOnHugeMemory(void pvMem, ULONG cbSize)

{

     // Get Memory Handle:

     HGLOBAL h = GlobalAlloc(GMEM_MOVEABLE, cbSize);

     If(NULL == h) return E_OUTOFMEMORY;

     LPVOID pv = GlobalLock(h);

     If(!pv) return E_OUTOFMEMORY;



     // Copy to memory block

     CopyMemory(pv, pvMem, cbSize);

     CComPtr spStream;

     // Create stream on Memory:

     HRESULT hr = CreateStreamOHGlobal(h, TRUE, &spStream);

     If(FAILED(hr))

     {

          GlobalUnlock(h);

          GlobalFree(h);

          return hr;

     }

     // stream now owns the memory

// unlock the data

GlobalUnlock(hGlobal);

// Create a stream holder. Load the stream holder from the global stream.

// THIS STREAM HOLDER IS INTERITED FROM IPersistStream

// And all virtual functions are Modified to handle the object....

CComPtr pHolder = new CComObject ;

CComPtr pHolderStream;

hr = pHolder->QueryInterface (IID_IPersistStream, (void **)&pHolderStream);

pStream->Seek( zero, STREAM_SEEK_SET, NULL );

pHolderStream->Load(pStream);

CComVariant vComData = pHolder;

.. ..

//

// now, you have a big chunk of memory loaded into a ComVariant

//

// 现在你可以把打包后的CComVariant传递给MSMQMessege的Body属性了�Q?/p>
pisMsg->Body = vComData;

.. ..

}

其实�Q�Aydin的实现和ATL中IPersistMemoryImpl接口Load�Ҏ��实现异曲同工。我们不妨换一�U�方式实现�?/p>

Writen by zhengyun.NoJunk(at)tomosoft.dot.com

Disclaimers�Q?br>本文档仅供参考。本文档所包含的信息代表了在发布之日，zhengyun�Ҏ��讨论问题的当前看法，zhengyun不保证所�l�信息在发布之日以后的准��性�?

用户应清楚本文档的准��性及其��用可能带来的全部风险。可以复制和传播本文档，但须遵守以下条款�Q?

复制时不得修改原文，复制内容��d��含所有页 �Q?
所有副本均��d��?zhengyun的版权声明以及所提供的其它声�?�Q?
不得以赢利�ؓ目的�Ҏ��文档�q�行传播 �?/p>

Implementation Scope�Q?br>�l�箋阅读之前�Q�我们假设您熟悉以下知识�Q?/p>

SAFEARRAY
ISTREAM
Microsoft MSMQ

目录�Q?/p>
1:概述

2:借用SAFEARRAY打包把结构写入MSMQ队列

3:借用IStream��打包传递数据到MSMQ队列

其实�Q�Aydin的实现和ATL中IPersistMemoryImpl接口Load�Ҏ��实现异曲同工。我们不妨换一�U�方式实现�?/p>
Aydin�l�出的VC++代码是：

// ��指�?/p>
CComPtr pStream = NULL;

LARGE_INTEGER zero = {0,0};

// hGlobal是内存句柄：

LPBYTE pChunk = (BYTE *) GlobalLock(hGlobal);

// 创徏一个空的stream�Q?/p>
HRESULT hr = CreateStreamOnHGlobal(NULL, TRUE, &pStream );

pStream->Seek( zero, STREAM_SEEK_SET, NULL );

ULONG pcbWritten = 0;

// pChunk现在已经指向我们的巨大内存块�Q?/p>
// 我们把这块内存写入IStream��中�Q?/p>
pStream->Write (pChunk, dwNumRead, &pcbWritten);

// ��查是否全部写入了�Q?/p>
ATLASSERT(pcbWritten==dwNumRead);

// unlock the data

GlobalUnlock(hGlobal);

// 剩下的一��P��也是让CComPtr 来调用Load�Ҏ��加蝲IStream

// Create a stream holder. Load the stream holder from the global stream.

// THIS STREAM HOLDER IS INTERITED FROM IPersistStream

// And all virtual functions are Modified to handle the object....

CComPtr pHolder = new CComObject ;

CComPtr pHolderStream;

hr = pHolder->QueryInterface (IID_IPersistStream, (void **)&pHolderStream);

pStream->Seek( zero, STREAM_SEEK_SET, NULL );

pHolderStream->Load(pStream);

CComVariant vComData = pHolder;

.. ..

//

// now, you have a big chunk of memory loaded into a ComVariant

//

// 现在你可以把打包后的CComVariant传递给MSMQMessege的Body属性了�Q?/p>
pisMsg->Body = vComData;

.. ..

//Coder: Aydin T.BAKIR

全文完�?/p>
Writen by zhengyun.NoJunk(at)tomosoft.dot.com

Disclaimers�Q?br>

本文档仅供参考。本文档所包含的信息代表了在发布之日，zhengyun�Ҏ��讨论问题的当前看法，zhengyun不保证所�l�信息在发布之日以后的准��性�?

用户应清楚本文档的准��性及其��用可能带来的全部风险。可以复制和传播本文档，但须遵守以下条款�Q?

复制时不得修改原文，复制内容��d��含所有页 �Q?
所有副本均��d��?zhengyun的版权声明以及所提供的其它声�?�Q?
不得以赢利�ؓ目的�Ҏ��文档�q�行传播 �?/p>

旅�?/a> 2007-07-30 16:51 发表评论

Windows区对�?Bands)的创��Z��定制

Mon, 30 Jul 2007 08:20:00 GMT

Windows区对�?Bands)的创��Z��定制
�~�译/赉|��?/font>

本文例子代码

1 ��?/font>
  1.1 ��览栏区对象
  1.2 工具栏区对象
  1.3 必须实现的接�?/font>
    3.3.1 IUnknown
    3.3.2 IObjectWithSite
    3.3.3 IPersistStream
    3.3.4 IDeskBand
  3.4 一�?��?/a>
Windows的区�Q�Bands�Q�对象有三种�Q�既��览栏（Explorer Bar�Q�区对象�Q�工��h��Q�Tools Bands�Q�区对象�Q�和桌面区对象（Desk Bands�Q��?br>
��览栏区对象
��览栏区对象��U�浏览栏�Q�它是从IE4.0引入的，它是邻近��览器窗格的一个显�C�区域。实际上它是IE�H�口中的一个子�H�口�Q�可以用它来昄��信息及与用户交互。浏览栏卛_��以是以垂直方式定位在��览器窗格的左边。也可以水��^方式定位在浏览器�H�格下面。（如图一�Q?

图一
在浏览栏中可以创建很多子菜单或选项�Q�用戯��以不同方式选择�q�些子菜单或选项提供的功能，打开IE或者资源管理器�Q�从“查看”菜单中选择“��览�?#8221;�Q�可以看到Windows提供了几�U�标准的��览栏菜单，�?#8220;搜烦�Q�Search�Q?#8221;,“收藏夹（Favorites�Q?#8221;�Q?�?#8220;历史记录�Q�History�Q?#8221;,以及“文�g夹（All Folders�Q?#8221;。（如图二）

图二
��Z��创徏定制的浏览栏�Q�必��ȝ��E�实玎ͼ�然后注册它们。Windows在外壻I��Shell�Q?.71中引入了区对象。它提供与普通窗口一��L��功能。但因�ؓ它是以IE或外壳�ؓ容器的COM对象�Q�所以实现�v来就与普通窗口有所不同。图一中显�C�的��是一个简单的��览栏例子。图中有一个垂直的��览栏和一个水�q�的��览栏�?br>
工具栏区对象
工具栏区对象��U�工��h��Q�它是在IE5.0中引入用以支持单选工��h��Q�radio toolbar�Q�特性的。IE工具栏实际上是一个Rebar控�g�Q�它包含了几个工��h��Q�toolbar�Q�控件。通过创徏工具栏，你可以将某个区对象功能添加到Rebar控�g中。不论是在IE中还是在资源��理器中�Q�区对象都是一��L��Q�所以工��h��也是一个通用�H�口。（如图三）

图三

用户可以�?#8220;查看”菜单中的“工具�?#8221;子菜单中选择昄��单选工��h��Q�也可以在工��h��区域单击鼠标右键从它的上下文菜单中选择昄��单选工��h��?br>

区对象也可以用在桌面�Q�也��是创徏桌面区对象。虽然它们的基本实现与浏览栏�c�M��Q�但桌面��Z��IE没有关系�Q�它不用IE作�ؓ容器。它主要用来创徏桌面��动�H�口。通过在�Q务栏上单��d��键，然后在弹出的菜单中选择“工具�?#8221;的子菜单选项。（如图四）

囑֛�

桌面区的初始��动位置在�Q务栏�Q�（如图�?br>
图五

用户可以��桌面区拖到桌面上，�q�时它就成了一个普通窗口：�Q�如囑օ��Q?br>
囑օ�

二、实现区对象
��管可以像��用普通窗口一样��用区对象�Q�但它们毕竟是COM对象�Q�存在于某个容器之中。如��览栏和工具栏位于IE之中�Q�桌面区位于外壳之中。虽然它们的功能不同�Q�但其基本实现非常相伹{��一个主要的差别是它们的注册方式不同�Q�而注册方式的不同又决定了对象的类型及其容器。这一部分我们先讨论所有区对象实现的共性。其它的实现�l�节可参�?a target=_self>垂直��览栏例子程�?/font>�?br>区对象除了要实现 IUnknown �?IClassFactory 两个接口之外�Q�所有的区对象还必须实现以下�q�几个接口：

IDeskBand
IObjectWithSite
IPersistStream

另外�Q�在注册旉��了注册它们的CLSID之外�Q�浏览栏和桌面区对象�q�必��进行组件类别（category�Q�的注册。它军_��了对象的�c�d��及其容器。工��h��不需要进行种�c�L��册。归�U��v来，需要进行CATID注册的三�U�区对象是：

区对象类�?/strong> �l��g�c�d��

垂直��览�?/td> CATID_InfoBand

水��^��览�?/td> CATID_CommBand

桌面�?/td> CATID_DeskBand

对于如何注册区对象的�q�一步讨��参见注册部分�?br>如果某个区对象接受用戯��入，它还必须实现IInputObject接口。如果要往上下文菜单中��d��菜单��目�Q�还必须实现IContextMenu接口。注意：工具栏区对象不支持上下文菜单�?br>    因�ؓ区对象实现的是子�H�口�Q�所以它们还必须有窗口过�E�来处理Windows的消息�?br>    区对象可以通过其IOleCommandTarget接口发送命令到它的容器。�ؓ了得到这个接口的指针�Q�必��调用容器的IInputObjectSite::QueryInterface�Ҏ��?/xxxxime>��h��IID_IoleCommandTarget。然后用IOleCommandTarget::Exec把命令发送到容器。命令组是CGID_DeskBand。当某个区对象的IDeskBand::GetBandInfo�Ҏ��被调用时�Q�容器用dwBandID参数��一个标�C�符赋给�q�个对象。这个标�C�符被用于IOleCommandTarget::Exec�Ҏ��调用时所用命令组中的三个命��o。目前命令组共支持四个IOleCommandTarget::Exec命��oIDs。这四个命��o的解释如下：
DBID_BANDINFOCHANGED——Band的信息已改变。参数pvaIn的值应该是最�q�一�ơ调用所用的band标示�W�。容器将调用�q�个标示�W�所指的band对象的IDeskBand::GetBandInfo�Ҏ��h��更新的信息�?br>DBID_MAXIMIZEBAND——容器将最大化band。参数pvaIn的值应该是最�q�一�ơ调用所用的band标示�W��?br>DBID_SHOWONLY——关闭或打开容器中其它band。参数pvaIn的��gؓVT_UNKNOWN�c�d��Q�可以取下列��g��一�Q?br>

�?/td> 描述

pUnk �q�个对象IUnknown接口的指针。所有其它的桌面band��被隐藏�?/td>

0 隐藏所有桌面band�?/td>

1 昄��所有桌面band�?/td>

DBID_PUSHCHEVRON——目前没有实现�?br>
注册
区对象必��M��E�内服务器（in-process�Q�注册。其�U�程模型必须�?#8220;Apartment”。也��是说区对象必须以DLL的�Ş式来实现。用来描�q�服务器注册条目的缺省值是一个菜单文本串。就拿浏览栏来说。这个菜单出现在资源��理器或IE “查看�Q�View�Q?#8221;菜单�?#8220;��览栏（Explorer Bar�Q?#8221;子菜单中。而工��h��的菜单则出现在资源管理器或IE “查看�Q�View�Q?#8221;菜单�?#8220;工具栏（Toolbars�Q?#8221;子菜单中。桌面区出现在�Q务栏上下文菜单的“工具栏（Toolbars�Q?#8221;子菜单中。作��单资源，提供键盘快捷的方法与一般菜单快捷键相同。也��是��?#8220;&”字符攑֜�某个单词字母前表�C��个字母显�C�Z��划线来指�C�快捷键�?br>通常区对象的注册条目如下:

HKEY_CLASSES_ROOT ... CLSID ... {Band 对象�?CLSID GUID} = "菜单文本�? InProcServer32 = "DLL 路径�? ThreadingModel = "Apartment"
工具栏区对象必须�q�要注册对象的CLSID。�ؓ此必��d��HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Toolbar下创��Z��个REG_SZ��|��用工��h��区对象的CLSID GUID串命名。如�Q?br>
HKEY_LOCAL_MACHINE Software Microsoft Internet Explorer Toolbar { Band 对象�?CLSID GUID }

除此之外�Q�还有几个可选的注册值可以加到注册表中，本文的例子中未��用这些倹{�?

HKEY_CLASSES_ROOT\CLSID\{Band 对象�?CLSID GUID}\Instance\CLSID, 它应该被讄��?"{4D5C8C2A-D075-11D0-B416-00C04FB90376}".

HKEY_CLASSES_ROOT\CLSID\{Band对象的CLSID GUID}\Instance\InitPropertyBag\Url 它应该被讄��在浏览栏昄��的包含HTML内容的文件位�|��?br>
\HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Explorer Bars\{Band 对象�?CLSID GUID}\BarSize 它应该被讄��为栏目的高和宽，它需要八个字节才能作��Z��攑օ�注册表，字节之间用逗号分开。开始的四个字节一像素为单位指定大��，格式要用十六�q�制�Q�从最左边字节开始。最后四个字节是保留字节�Q�应该将它置为零。例如，垂直��览栏的�~�省宽度�?91�Q?x123�Q�像素，则BarSize 的值应该是"23,01,00,00,00,00,00,00"

如果要用��览栏显�C�HTML�Q�则前两个注册项是必��ȝ��。最后一个注册项则根据垂直的或者水�q�的��览栏定义相应的�~�省宽度和高度�?br>能显�C�HTML的浏览栏�Q�缺省宽度�ؓ291各像素单位）注册表条目的形式如下�Q?br>
HKEY_CLASSES_ROOT ... CLSID ... {Band 对象�?CLSID GUID} = "菜单文本�? InProcServer32 = "DLL 路径�? ThreadingModel = "Apartment" Instance CLSID = "{4D5C8C2A-D075-11D0-B416-00C04FB90376}" InitPropertyBag Url = "HTML文�g" ... HKEY_CURRENT_USER ... Software ... Microsoft ... Internet Explorer ... Explorer Bars { Band 对象�?CLSID GUID } BarSize = "23,01,00,00,00,00,00,00"

你可以通过�~�程的方式来处理区对象类�?CATID 的注册。创��Z��个组件类别管理器对象(CLSID_StdComponentCategoriesMgr)�q�请求一个指向ICatRegister接口的指针。将区对象的CLSID和CATID传递到ICatRegister::RegisterClassImplCategories�?br>三、定制浏览栏的一个简单例�?/a>
�q�个例子展示了前面所介绍�q�的垂直��览栏的整个实现�q�程。它借助了��^台SDK�Q�Platform SDK——在msdn中可以找刎ͼ�中关于band对象�C��代码。其中还包括了水�q�x��览栏和桌面band的实��C��码。详�l�实现细节请参见�Q�CommBand.cpp和DeskBand.cpp�?br>创徏定制��览栏的基本�q�程是这��L��Q?br>

实现DLL需要的函数�?
实现必须的COM接口�?
实现��M��惌��的可选接口�?
注册对象的CLSID�?
�q�行恰当的组件种�c�L��册�?
创徏IE子窗口，调整�H�口大小适合��览栏的昄��区域�?
使用子窗口显�C�Z��息�ƈ与用户交互�?

实际上，只要通过恰当的组件种�c�L��册，��览栏例子代码便既可用于��览栏的实现�Q�也能用于桌面band实现。更加复杂的实现��需要定制每�U�对象类型的昄��区域和容器。但大多数的定制工作都能通过范例代码以及Windows子窗口的�~�程技术来完成。例如，你可以添加用户交互控制或者进行色彩丰富的囑�Ş昄��处理�?br>
DLL函数
所有三�U�区对象被打包在一个DLL中，它输��Z��下的函数�Q?br>

DllMain
DllCanUnloadNow
DllGetClassObject
DllRegisterServer

�q�些函数可以在BandObjs.cpp中找刎ͼ�它们服务于所有三�U�区对象。前三个函数乃标准的实现�Q�我们不再本文中讨论。类工厂也是标准实现�Q�代码可以在ClsFact.cpp中找�?br>
注册定制的浏览栏

有了COM对象后，必须�Ҏ��览栏的CLSID�q�行注册。另外如果要与IE或资源管理器
协调�q�行�Q�还必须�q�行的恰当的�l��g�U�类�Q�CATID_InfoBand�Q�注册。这个工作由DllRegisterServer处理。浏览栏例子代码有关的处理部分如下：

... //注册��览栏对�? if(!RegisterServer(CLSID_SampleExplorerBar, TEXT("垂直��览栏例�?))) return SELFREG_E_CLASS; //注册��览栏的对象�l��g�U�类 if(!RegisterComCat(CLSID_SampleExplorerBar, CATID_InfoBand)) return SELFREG_E_CLASS; ...
区对象的注册使用通常的COM�q�程�Q�它��q��有函数RegisterServer处理�?br>除了CLSID之外�Q�这个区对象服务器还必须注册一个以上的�l��g�U�类。这实际上是垂直��览栏和水��^��览栏实��C��间的主要差别。这个过�E�的处理是通过创徏一个组件种�cȝ��理器对象�Q�CLSID_StdComponentCategoriesMgr�Q�，�q�用ICatRegister::RegisterClassImplCategories�Ҏ��来注册区对象服务器。在�q�个例子中，�l��g�U�类注册的处理是通过��浏览栏的CLSID和CATID传递到�U�有函数RegisterComCat完成的：

BOOL RegisterComCat(CLSID clsid, CATID CatID) { ICatRegister *pcr; HRESULT hr = S_OK ; CoInitialize(NULL); hr = CoCreateInstance( CLSID_StdComponentCategoriesMgr, NULL, CLSCTX_INPROC_SERVER, IID_ICatRegister, (LPVOID*)&pcr); if(SUCCEEDED(hr)) { hr = pcr->RegisterClassImplCategories(clsid, 1, &CatID); pcr->Release(); } CoUninitialize(); return SUCCEEDED(hr); }

垂直��览栏例子实��C��四个必须的接口：IUnknown, IObjectWithSite, IPersistStream, 和IDeskBand�Q�它们都在CExplorerBar�c�M��实现�?br>IUnknown
构造函敎ͼ�析构函数和IUnknown实现比较��单，本文在此不讨论。细节请参见源代码�?br>IObjectWithSite接口
当用户选择某个��览栏时�Q�容器调用相应band对象的IObjectWithSite::SetSite�Ҏ��。参数将被设�|�成�q�个现场�Q�Site�Q�的IUnknown指针�?br>通常�Q�SetSite实现应该完成下列步骤�Q?br>

释放当前所把持的�Q何现场指针�?
如果传递到SetSite的指针被�|��ؓNULL�Q�此则区对象被删除。SetSite可以�q�回S_OK�?
如果传递到SetSite的指针被�|��ؓ非NULL�Q�则建立新的现场。SetSite应该做以下的事情�Q?br>

调用现场QueryInterface�Ҏ��h��IOleWindow接口�?
调用IOleWindow::GetWindow获取父窗口句柄，�q�存储它�Q�以便以后��用。如果不再��用的话，��释放IOleWindow接口�?
创徏此band对象的窗口�ؓ一个子�H�口�Q�其父窗口就是上一步获得的那个�H�口。注意在此不能将它创建成可见�H�口�?
如果此band对象实现IInputObject�Q�调用现场QueryInterface�Ҏ��h��IInputObjectSite接口�Q�存储这个接口的指针以备后用�?
如果所有步骤都成功�Q�则�q�回S_OK�Q�否则返回OLE定义的错误代码以指示错误�c�d��?

以下是浏览栏实现SetSite的方法。m_pSite是私有成员变量，用它来保存IInputObjectSite指针�Q�而m_hwndParent保存父窗口句柄�?br>
STDMETHODIMP CExplorerBar::SetSite(IUnknown* punkSite) { //如果某个现场被把持，则释攑֮� if(m_pSite) { m_pSite->Release(); m_pSite = NULL; } //如果punkSite 不�ؓNULL, 建立一个新的现�? if(punkSite) { //获取父窗�? IOleWindow *pOleWindow; m_hwndParent = NULL; if(SUCCEEDED(punkSite->QueryInterface(IID_IOleWindow, (LPVOID*)&pOleWindow))) { pOleWindow->GetWindow(&m_hwndParent); pOleWindow->Release(); } if(!m_hwndParent) return E_FAIL; if(!RegisterAndCreateWindow()) return E_FAIL; //获取柄保存IInputObjectSite指针 if(SUCCEEDED(punkSite->QueryInterface(IID_IInputObjectSite, (LPVOID*)&m_pSite))) { return S_OK; } return E_FAIL; } return S_OK; }
�q�个例子的GetSite只简单地用SetSite保存的现场指针实��C��对现场QueryInterface�Ҏ��的调用�?br>
STDMETHODIMP CExplorerBar::GetSite(REFIID riid, LPVOID *ppvReturn) { *ppvReturn = NULL; if(m_pSite) return m_pSite->QueryInterface(riid, ppvReturn); return E_FAIL; }
�H�口创徏��q��有方法RegisterAndCreateWindow负责。如果这个窗口不存在�Q�此�Ҏ��浏览栏�H�口创徏成一个大��适当的子�H�口�Q�它的父�H�口��是由SetSite获得的那个窗口。子�H�口的句柄存储在m_hwnd变量中�?br>
BOOL CExplorerBar::RegisterAndCreateWindow(void) { //如果�q�个�H�口不存在，则创建它 if(!m_hWnd) { //子窗口不能没有父�H�口 if(!m_hwndParent) { return FALSE; } //如果�H�口�c�L��有注册，则必��L��? WNDCLASS wc; if(!GetClassInfo(g_hInst, EB_CLASS_NAME, &wc)) { ZeroMemory(&wc, sizeof(wc)); wc.style = CS_HREDRAW | CS_VREDRAW | CS_GLOBALCLASS; wc.lpfnWndProc = (WNDPROC)WndProc; wc.cbClsExtra = 0; wc.cbWndExtra = 0; wc.hInstance = g_hInst; wc.hIcon = NULL; wc.hCursor = LoadCursor(NULL, IDC_ARROW); wc.hbrBackground = (HBRUSH)CreateSolidBrush(RGB(0, 0, 192)); wc.lpszMenuName = NULL; wc.lpszClassName = EB_CLASS_NAME; if(!RegisterClass(&wc)) { //如果注册��p�|�Q�下面的CreateWindow函数��失�? } } RECT rc; GetClientRect(m_hwndParent, &rc); //创徏�q�个�H�口。WndProc ��徏立m_hWnd变量 CreateWindowEx( 0, EB_CLASS_NAME, NULL, WS_CHILD | WS_CLIPSIBLINGS | WS_BORDER, rc.left, rc.top, rc.right - rc.left, rc.bottom - rc.top, m_hwndParent, NULL, g_hInst, (LPVOID)this); } return (NULL != m_hWnd); }
IPersistStream接口
IE��调用浏览栏的IPersistStream接口�Q�以便允许这个浏览栏加蝲或存储持久性数据。如果没有持久性数据，�q�个�Ҏ��仍然必须�q�回一个成功代码。IPersistStream接口从IPersist�l�承而来�Q�所以要实现五个�Ҏ��Q?br>GetClassID, IsDirty, Load, Save, GetSizeMax�?br>本文的这个浏览栏例子不��用持久性数据，�q�且只有IPersistStream的最��实现。GetClassID�q�回对象的CLSID�Q�CLSID_SampleExplorerBar�Q�，其余的方法返回S_OK, 或者S_FALSE, 或�?E_NOTIMPL。有关细节请参见IPersistStream的实现�?br>
IDeskBand接口
IDeskBand接口是区对象专用接口。它只有一个方法。IDeskBand接口从IDockingWindow�l�承而来�Q�而IDockingWindow又从IOleWindow�l�承而来�?br>IOleWindow有两个方法：GetWindow �?ContextSensitiveHelp。浏览栏例子的GetWindow实现�q�回��览栏的子窗口句柄m_hwnd。因��Z��实现上下文敏感帮助，所以ContextSensitiveHelp�q�回E_NOTIMPL�?br>IDockingWindow接口有三个方法：ShowDW, CloseDW, �?ResizeBorder。ResizeBorder不在��M��区对象中使用�Q�应该返回E_NOTIMPL。ShowDW�Ҏ��Ҏ��其不同的参数值控制浏览栏�H�口的显�C�或隐藏�Q?br>
STDMETHODIMP CExplorerBar::ShowDW(BOOL fShow) { if(m_hWnd) { if(fShow) { //昄��H�口 ShowWindow(m_hWnd, SW_SHOW); } else { //隐藏�H�口 ShowWindow(m_hWnd, SW_HIDE); } } return S_OK; } CloseDW�Ҏ��摧毁��览栏窗口： STDMETHODIMP CExplorerBar::CloseDW(DWORD dwReserved) { ShowDW(FALSE); if(IsWindow(m_hWnd)) DestroyWindow(m_hWnd); m_hWnd = NULL; return S_OK; }
其余的方法，如GetBandInfo是IDeskBand专用的。IE使用它来指定��览栏的标示�W�以及视图模式。IE�q�可能填写DESKBANDINFO�l�构的dwMask成员从浏览栏��h��更多的信息，�q�个�l�构用第三个参数传递。GetBandInfo应该存储�q�个标示�W�和视图模式�q�用所��h��的数据填写DESKBANDINFO�l�构。下面是本文��览栏例子所实现GetBandInfo�Q?br>
STDMETHODIMP CExplorerBar::GetBandInfo(DWORD dwBandID, DWORD dwViewMode, DESKBANDINFO* pdbi) { if(pdbi) { m_dwBandID = dwBandID; m_dwViewMode = dwViewMode; if(pdbi->dwMask & DBIM_MINSIZE) { pdbi->ptMinSize.x = MIN_SIZE_X; pdbi->ptMinSize.y = MIN_SIZE_Y; } if(pdbi->dwMask & DBIM_MAXSIZE) { pdbi->ptMaxSize.x = -1; pdbi->ptMaxSize.y = -1; } if(pdbi->dwMask & DBIM_INTEGRAL) { pdbi->ptIntegral.x = 1; pdbi->ptIntegral.y = 1; } if(pdbi->dwMask & DBIM_ACTUAL) { pdbi->ptActual.x = 0; pdbi->ptActual.y = 0; } if(pdbi->dwMask & DBIM_TITLE) { lstrcpyW(pdbi->wszTitle, L"��览栏例�?); } if(pdbi->dwMask & DBIM_MODEFLAGS) { pdbi->dwModeFlags = DBIMF_VARIABLEHEIGHT; } if(pdbi->dwMask & DBIM_BKCOLOR) { //通过�U�d��q�个标志来��用默认的背景颜色 pdbi->dwMask &= ~DBIM_BKCOLOR; } return S_OK; } return E_INVALIDARG; }

�׃��个接口的实现是可选择的，一个是IInputObject�Q�另一个是 IContextMenu。本文的��览栏例子实��C��IInputObject。对于IContextMenu的实现细节请参考有��x��档�?br>
IInputObject接口
如果某个band对象要接受用戯��入。那��必��d��现IInputObject接口。IE实现IInputObjectSite�q�用IInputObject�l�护用户的输入焦炏V��浏览栏需要实��C��个方法：UIActivateIO, HasFocusIO, �?TranslateAcceleratorIO�?br>IE调用UIActivateIO通知��览栏它以被�Ȁ�z�L��者被�|�灰。当被激�z�L��Q�浏览栏例子调用SetFocus来设�|�窗口输入焦炏V�?br>当要��定哪个�H�口有输入焦�Ҏ��Q�IE调用HasFocusIO。如果浏览栏的窗口或它的子窗口之一有输入焦点，HasFocusIO�q�回S_OK。否则，它返回S_FALSE�?br>TranslateAcceleratorIO允许对象处理键盘加速键。本文浏览栏例子没有实现�q�个�Ҏ��Q�所以它�q�回S_FALSE�?br>��览栏例子实现IInputObjectSite的细节如下：

STDMETHODIMP CExplorerBar::UIActivateIO(BOOL fActivate, LPMSG pMsg) { if(fActivate) SetFocus(m_hWnd); return S_OK; } STDMETHODIMP CExplorerBar::HasFocusIO(void) { if(m_bFocus) return S_OK; return S_FALSE; } STDMETHODIMP CExplorerBar::TranslateAcceleratorIO(LPMSG pMsg) { return S_FALSE; }
�H�口�q�程
因�ؓ区对象的昄��用的是子�H�口�Q�所以它必须实现�H�口�q�程来处理Windows消息。浏览栏例子实现了一个最��单的版本�Q�它的窗口过�E�只处理了五个消息：WM_NCCREATE, WM_PAINT, WM_COMMAND, WM_SETFOCUS, �?WM_KILLFOCUS。如果要实现更多的功能，很容易扩充��它处理其它的消息�?br>
LRESULT CALLBACK CExplorerBar::WndProc(HWND hWnd, UINT uMessage, WPARAM wParam, LPARAM lParam) { CExplorerBar *pThis = (CExplorerBar*)GetWindowLong(hWnd, GWL_USERDATA); switch (uMessage) { case WM_NCCREATE: { LPCREATESTRUCT lpcs = (LPCREATESTRUCT)lParam; pThis = (CExplorerBar*)(lpcs->lpCreateParams); SetWindowLong(hWnd, GWL_USERDATA, (LONG)pThis); //讄��H�口句柄 pThis->m_hWnd = hWnd; } break; case WM_PAINT: return pThis->OnPaint(); case WM_COMMAND: return pThis->OnCommand(wParam, lParam); case WM_SETFOCUS: return pThis->OnSetFocus(); case WM_KILLFOCUS: return pThis->OnKillFocus(); } return DefWindowProc(hWnd, uMessage, wParam, lParam); }
�q�里WM_COMMAND消息处理器简单地�q�回零。WM_PAINT消息处理器创建文本�ƈ昄��在资源管理器或IE的区对象中�?br>
LRESULT CExplorerBar::OnPaint(void) { PAINTSTRUCT ps; RECT rc; BeginPaint(m_hWnd, &ps); GetClientRect(m_hWnd, &rc); SetTextColor(ps.hdc, RGB(255, 255, 255)); SetBkMode(ps.hdc, TRANSPARENT); DrawText(ps.hdc, TEXT("��览栏例�?), -1, &rc, DT_SINGLELINE | DT_CENTER | DT_VCENTER); EndPaint(m_hWnd, &ps); return 0; }
WM_SETFOCUS �?WM_KILLFOCUS消息处理器通过调用本现场的IInputObjectSite::OnFocusChangeIS�Ҏ��通知输入焦点现场改变�Q?br>
LRESULT CExplorerBar::OnSetFocus(void) { FocusChange(TRUE); return 0; } LRESULT CExplorerBar::OnKillFocus(void) { FocusChange(FALSE); return 0; } void CExplorerBar::FocusChange(BOOL bFocus) { m_bFocus = bFocus; //通知焦点已改变的输入对象现场 if(m_pSite) { m_pSite->OnFocusChangeIS((IDockingWindow*)this, bFocus); } }
四、�ȝ��

区对象提供了灉|��和强大的扩展方式�Q�通过定制��览栏��得IE的功能大为增强。桌面区的实现扩展了普通窗口的能力。尽��需要一些对COM的编�E�，但终�I�以子窗口的形式提供了一�U�用��L��面。从而��今后的许多这�U�编�E�实现都能用�c�M��的Windows�~�程技术。虽然本文所讨论的例子只提供了有限的功能�Q�但它示范了区对象全部的�Ҏ��，�q�且可以在此基础上进行扩充来创徏独特和功能强大的的用��L��面�?

旅�?/a> 2007-07-30 16:20 发表评论

ATL 实现定制�?IE ��览器栏、工��h��和桌面工��h��

Mon, 30 Jul 2007 08:00:00 GMT

ATL 实现定制�?IE ��览器栏、工��h��和桌面工��h��

作者：杨老师

下蝲源代�?/font>

关键�?/strong>�Q�Band�Q�Desk Band�Q�Explorer Band�Q�Tool Band�Q�浏览器栏，工具栏，桌面工具�?br>
一、引�a�
　　最�q�，�׃��工作的要求，我需要在 IE 上做一些开发工作。于是在 MSDN 上翻阅了一些资料，�Ҏ�� MSDN 上的说明我用 ATL 胜利完成�?#8220;资本家老板”分配的�Q务�?br>�Q��ƈ且在白天睡觉的过�E�中梦到了老板�l�我加工资啦......�Q?br>现在�Q�我�?MSDN 上的原文资料�Q�经�q�翻译整理�ƈ把一�?ATL 的实现奉贤给 VCKBASE 上的朋友们�?/p>

原理
 基本band 对象
 必须实现�?COM 接口
    IPersistStream
    IObjectWithSite
    IDeskBand、IDockingWindow、IOleWindow
选择实现�?COM 接口
 Band 对象注册
ATL 实现

　　在翻译的�q�程中，有两个词汇非�怸�好理解。第一个词�?Band 对象�Q�词�怸��译�?#8220;镶边、裙子边、带子、乐�?.....”我的英文水��^有限�Q�实在不知道应该��译��Z��么词汇更合适。于是我毅然决然地决定：在如下的��中，依然使用 band �q�个词！�Q�什么？没听明白�Q�我的意思就是说�Q�我不翻译这个词了）但到�?Band 对象应该如何理解那？��L��图一�Q?br>

图一

　　图一中画�U�圈的地方，分别�U�C��“垂直的浏览器�?#8221;�?#8220;水��^的浏览器�?#8221;�?#8220;工具�?#8221;�?#8220;桌面工具�?#8221;。这�?#8220;�?#8221;�Q�都可以�?IE �?#8220;查看”菜单中或鼠标右键的上下文快捷方式菜单中显�C�或隐藏��h��。这些界面窗口的实现�Q�其实就是实��C��U?COM 接口对象�Q�而这个对象叫 band。这个概念实在是只能意会而无法言传的�Q�我��M��能在文章中把它翻译�ؓ“��L��靠在 IE �ȝ��口边上的对象”吧？^_^
　　另外�Q�还有一个词�?site。这个很好翻译，�?#8220;站点”�Q�。呵呵，我敢打包��，如果你要能理解这个翻译在计算机类文章中的含义�Q�那��只能恭喜你了，你的智慧太高了。（都是学计��机软�g的�h�Q�做人的差距咋就�q�么大呢�Q�）在本��文章中�Q�site 可以�q�样理解�Q�IE 的主框架四周�Q�就好比�?#8220;汽�R�?#8221;�Q�那�?band 对象�Q�就好比�?#8220;汽�R”。band 汽�R��L��可以停靠�?#8220;汽�R�?#8221;上。所以，site ��是“站点”�Q�它也是 COM 接口的对象（IObjectWithSite、IInputObjectSite�Q��?br>

3.1　基本 band 对象
　　Band 对象�Q�从 Shell 4.71(IE 5.0) 开始提供支持。Band 是一�?COM 对象�Q�必��L��在一个容器中��M��用，当然使用它们��好象��用普通窗口是一��L��。IE ��是一个容器，桌面 Shell 也是一个容器，它们提供不同的函数功能，但基本的实现是相似的�?br>　　Band 对象分三�U�类型，��览器栏 band�Q�Explorer bands�Q�、工��h�� band�Q�Tool Bands�Q�和桌面工具�?Desk bands)�Q�而浏览器�?band 又有两种表现形式�Q�垂直和水��^的。那�?IE �?Shell 如何区分�q�加载这�?bands 对象呢？�Ҏ��是：你要对不同的 band 对象�Q�在注册表中注册不同的组件类型（CATID�Q��?br>

Band 样式

�l��g�c�d��

CATID

垂直的浏览器�?/td> CATID_InfoBand 00021493-0000-0000-C000-000000000046

水��^的浏览器�?/td> CATID_CommBand 00021494-0000-0000-C000-000000000046

桌面的工��h�� CATID_DeskBand 00021492-0000-0000-C000-000000000046

　　IE 工具栏不使用�l��g�c�d��注册�Q�而是使用在注册进�?CLSID 的登记方式。详�l�情况见 3.3�?br>　　在例子程序中�Q�实��C��全部四个�c�d��?band 对象�Q�垂直浏览器�?CVerticalBar)昄��了一�?HTML 文�g�Q��ƈ且实��C��?IE �ȝ��口浏览网��늚��D��{�功能；水��^的浏览器�?CHorizontalBar)是一个编辑窗�Q�它同步昄��当前�|�页�?BODY 源文件内容；IE 工具�?CToolBar)最��单，只是��d��了一个空的工��h��Q�桌面工��h��(CDeskBar)实现了一个单行编辑窗口，你可以在上面输入命��o行或文�g名称�Q�回车后它会执行 Shell 的打开动作�?br>
3.2　必须实现�?COM 接口
　　Band 对象�?IE �?Shell 的进�E�内服务器，所以它被包装在 DLL 中。而作�?COM 对象�Q�它必须要实�?IUnknown �?IClassFactory 接口。（大家可以不同操心�Q�因为我们用 ATL 写程序，�q�两个接口是不用我们自己写代码的。）另外�Q�Band 对象�q�必��d��?IDeskBand、IObjectWithSite �?IPersistStream 三个接口�Q?br>　　IPersistStream 是持�l�性接口的一�U�。当 IE 加蝲 band 对象的时候，它通过�q�个接口�?Load �Ҏ��传递属性值给对象�Q�让其进行初始化�Q�而当卸蝲前，IE 则调用这个接口的 Save �Ҏ��保存对象的属性。用 ATL 实现�q�个接口很简单：

class ATL_NO_VTABLE Cxxx : ...... public IPersistStreamInitImpl, // ��d��l�承 ......{public: BOOL m_bRequiresSave; // IPersistStreamInitImpl 所必须的变�?.....BEGIN_COM_MAP(CVerticalBar) ...... COM_INTERFACE_ENTRY2(IPersist, IPersistStreamInit) COM_INTERFACE_ENTRY2(IPersistStream, IPersistStreamInit) COM_INTERFACE_ENTRY(IPersistStreamInit) ......END_COM_MAP()BEGIN_PROP_MAP(Cxxx)...... // ��d��需要持�l�性的属性END_PROP_MAP()
　　上面的代码，其实实现的是 IPersistStreamInit 接口�Q�不�q�没有关�p�，因�ؓ IPersistStreamInit �z��?IPersistStream�Q�实例化了派生类�Q�自然就实例化了基类。在例子�E�序中，我只在桌面工��h��对象中添加了持箋性属性，用来保存和初始化“命��o�?#8221;。另�?COM_INTERFACE_ENTRY2(A�Q�B)表示的含义是�Q�如果想查询A接口的指针，则提供B接口指针来代�ѝ��ؓ什么可以这样那�Q�因为B接口�z��自A接口�Q�那么B接口的前几个函数必然��是A接口的函��C��Q�自然B接口的地址其实和A接口的地址是一��L��了�?br>　　IObjectWithSite �?IE 用来�Ҏ��件进行管理和通讯用的一个接口。必��要实现�q�个接口�?个函敎ͼ�SetSite() �?GetSite()。当 IE 加蝲 band 对象和释�?band 对象的时候，都要调用 SetSite()函数�Q�那么在�q�个函数里正好是写初始化和释放操作代码的地方�Q?
STDMETHODIMP Cxxx::SetSite(IUnknown *pUnkSite){ if( NULL == pUnkSite ) // 释放 band 的时�?{ // 如果加蝲的时候，保存了一些接�? // 那么现在�Q�释攑֮� } else // 加蝲 band 的时�?{ m_hwndParent = NULL; // 装蝲 band 的父�H�口(��是带有标题的那个框架窗�? // �q�个�H�口的句柄，是调�?IUnknown::QueryInterface() 得到 IOleWindow // 然后调用 IOleWindow::GetWindow() 而获得的�? CComQIPtr< IOleWindow, &IID_IOleWindow > spOleWindow(pUnkSite); if( spOleWindow ) spOleWindow->GetWindow(&m_hwndParent); if( !m_hwndParent ) return E_FAIL; // 现在�Q�正好是建立子窗口的时机�? // 注意�Q�子�H�口建立的时候，不要使用 WS_VISIBLE 属�? ... ... // 在例子程序中�Q�用 CAxWindow 实现了一个能包容ActiveX的容器窗�?垂直��览器栏) // 在例子程序中�Q�用 WIN API 函数 CreateWindow 实现了标准窗�?水��^��览器栏、工��h��) // 在例子程序中�Q�用 CWindowImpl 实现了一个包容窗�?桌面工具�? /*********************************************************/ 以下部分�Q�根�?band 对象�Ҏ��的功能，是可以选择实现�? **********************************************************/ // 如果子窗口实��C��用户输入�Q�那么必��d��?IInputObject 接口�Q? // 而该接口是被 IE �?IInputObjectSite 调用的，因此在你的对�? // 中，应该保存 IInputObjectSite 的接口指针�? // 在类的头文�g中，定义�Q? // CComQIPtr< IInputObjectSite, &IID_IInputObjectSite > m_spSite; m_spSite = pUnkSite; // 保存 IInputObjectSite 指针 if( !m_spSite ) return E_FAIL; // 你需要控�?IE 的主框架吗？ // 那么在类的头文�g中，定义�Q? // CComQIPtr< IWebBrowser2, &IID_IWebBrowser2 > m_spFrameWB; // 然后�Q�先取得 IServiceProvider,再取�?IWebBrowser2 CComQIPtr < IServiceProvider, &IID_IServiceProvider> spSP(pUnkSite); if( !spSP ) return E_FAIL; spSP->QueryService( SID_SWebBrowserApp, &m_spFrameWB ); if( !m_spFrameWB) return E_FAIL; // 如果你取得了 IE ��L��架的 IWebBrowser2 指针 // 那么�Q�当它发生了什么事情，你难道不想知道吗�Q? // 定义�Q�CComPtr m_spCP; CComQIPtr< IConnectionPointContainer, &IID_IConnectionPointContainer> spCPC( m_spFrameWB ); if( spCPC ) { spCPC->FindConnectionPoint( DIID_DWebBrowserEvents2, &m_spCP ); if( m_spCP ) { m_spCP->Advise( reinterpret_cast< IDispatch * >( this ), &m_dwCookie ); } } // 咳~~~ 不说了，看源码去吧。这里能�q�的事情太多�?.. ... } return S_OK;}
IDeskBand 是一个特�D�的 band 对象接口�Q�有一个方法函敎ͼ�GetBarInfo()�Q?br>IDockingWindow �?IDeskBank 的基�c�，�?个方法函敎ͼ�ShowDW()、CloseDW()、ResizeBorderDW()�Q?br>IOleWindow 又是 IDockingWindow 的基�c�，�?个方法函敎ͼ�GetWindow()、ContextSensitiveHelp()�Q?

　　首先声明 IDeskBand ,然后要实�?IDeskBand 接口的共6个函敎ͼ��q�些函数比较��单，不同�c�d��?band 对象�Q�其实现�Ҏ��也都基本一��_��
class ATL_NO_VTABLE Cxxx : ...... public IDeskBand, ......{......BEGIN_COM_MAP(Cxxx) ...... COM_INTERFACE_ENTRY_IID(IID_IDeskBand, IDeskBand) ......END_COM_MAP()// IOleWindowSTDMETHODIMP Cxxx::GetWindow(HWND * phwnd){ // 取得 band 对象的窗口句�?// m_hWnd 是徏立窗口时候保存的 *phwnd = m_hWnd; return S_OK;}STDMETHODIMP Cxxx::ContextSensitiveHelp(BOOL fEnterMode){ // 上下文帮助，参�?IContextMenu 接口 return E_NOTIMPL;}// IDockingWindowSTDMETHODIMP CVerticalBar::ShowDW(BOOL bShow){ // 昄��或隐�?band �H�口 if( m_hWnd ) ::ShowWindow( m_hWnd, bShow ? SW_SHOW : SW_HIDE); return S_OK;}STDMETHODIMP CVerticalBar::CloseDW(DWORD dwReserved){ // 销�?band �H�口 if( ::IsWindow( m_hWnd ) ) ::DestroyWindow( m_hWnd ); m_hWnd = NULL; return S_OK;}STDMETHODIMP CVerticalBar::ResizeBorderDW(LPCRECT prcBorder, IUnknown* punkToolbarSite, BOOL fReserved){ // 当框架窗口的�Ҏ��大小改变�?return E_NOTIMPL;}// IDeskBandSTDMETHODIMP CVerticalBar::GetBandInfo(DWORD dwBandID, DWORD dwViewMode, DESKBANDINFO* pdbi){ // 取得 band 的基本信息，你需要填�?pdbi 参数作�ؓ�q�回 if( NULL == pdbi ) return E_INVALIDARG; // 如果��来需要调�?IOleCommandTarget::Exec() 则需要保存这2个参�?m_dwBandID = dwBandID; m_dwViewMode = dwViewMode; if(pdbi->dwMask & DBIM_MINSIZE) { // 最��尺�? pdbi->ptMinSize.x = 10; pdbi->ptMinSize.y = 10; } if(pdbi->dwMask & DBIM_MAXSIZE) { // 最大尺�?(-1 表示 4G) pdbi->ptMaxSize.x = -1; pdbi->ptMaxSize.y = -1; } if(pdbi->dwMask & DBIM_INTEGRAL) { pdbi->ptIntegral.x = 1; pdbi->ptIntegral.y = 1; } if(pdbi->dwMask & DBIM_ACTUAL) { pdbi->ptActual.x = 0; pdbi->ptActual.y = 0; } if(pdbi->dwMask & DBIM_TITLE) { // �H�口标题 wcscpy(pdbi->wszTitle,L"�H�口标题"); } if(pdbi->dwMask & DBIM_MODEFLAGS) { pdbi->dwModeFlags = DBIMF_VARIABLEHEIGHT; } if(pdbi->dwMask & DBIM_BKCOLOR) { // 如果使用默认的背景色�Q�则�U�除该标�? pdbi->dwMask &= ~DBIM_BKCOLOR; } return S_OK;}
3.3　选择实现�?COM 接口
　　有两个接口不是必��d��现的�Q�但也许很有用：IInputObject �?IContextMenu。如�?band 对象需要接收用��L��输入�Q�那么必��d��?IInputObject 接口。IE 实现�?IInputObjectSite 接口�Q�当容器中有多个输入�H�口�Ӟ��它调�?IInputObject 接口�Ҏ��去负责管理用��L��输入焦点�?br>在浏览器栏中需要实�?个函敎ͼ�UIActivateIO()、HasFocusIO()、TranslateAcceleratorIO()�?br>当浏览器栏激�z�L��失去�z�L��的时候，IE 调用 UIActivateIO 函数�Q�当�Ȁ�zȝ��时候，��览器栏一般调�?SetFocus 去设�|�它自己�H�口的焦炏V��当 IE 需要判断哪个窗口有焦点的时候，它调�?HasFocusIO 。当��览器栏的窗口或其子�H�口有输入焦�Ҏ��Q�则应返�?S_OK�Q�否则返�?S_FALSE。TranslateAcceleratorIO 允许对象处理加速键�Q�例子程序中没有实现�Q�所以直接返�?S_FALSE�?
STDMETHODIMP CExplorerBar::UIActivateIO(BOOL fActivate, LPMSG pMsg){ if(fActivate) SetFocus(m_hWnd); return S_OK;}STDMETHODIMP CExplorerBar::HasFocusIO(void){ if(m_bFocus) return S_OK; return S_FALSE;}STDMETHODIMP CExplorerBar::TranslateAcceleratorIO(LPMSG pMsg){ return S_FALSE;}
　　Band 对象能够通过包容器的 IOleCommandTarget::Exec() 调用执行命��o。�?IOleCommandTarget 接口指针�Q�则可以通过调用包容器的 IInputOjbectSite::QueryInterface�Q�IID_IOleCommandTarget,...�Q?函数得到。CGID_DeskBand 是命令组�Q�当一�?band 对象�?GetBandInfo 被调用的时候，包容器通过 dwBandID 参数指定一�?ID �l?band 对象�Q�对象要保存住这个ID�Q�以便调�?IOleCommandTarget::Exec()的时候��用。ID 的命令有�Q?

DBID_BANDINFOCHANGED
Band 的信息变化。设�|�参�?pvaIn �?band ID�Q?�?ID ��是最�q�一�ơ调�?GetBandInfo 所得到的��|��容器会调�?band 对象�?GetBandInfo 函数来更新请求信息�?
DBID_MAXIMIZEBAND
最大化 band。设�|�参�?pvaIn �?band ID�Q�该 ID ��是最�q�一�ơ调�??GetBandInfo ?所得到的倹{�?
DBID_SHOWONLY
打开或关闭容器中其它�?bands�?讄��参数 pvaIn 为VT_UNKNOWN �c�d��Q�它可以是如下的��|��
　

�?/font> 描述

pUnk band 对象�?IUnknown 指针�Q�其它的桌面 bands ��被隐藏

0 隐藏所有的桌面 bands

1 昄��所有的桌面 bands

DBID_PUSHCHEVRON
在菜单项左边昄��“v”的选择标志。容器发送一�?RB_PUSHCHEVRON 消息�Q�当 band 对象接收到通知消息 RBN_CHEVRONPUSHED 提示它显�C�Z��?v"的标志。设�|?IOleCommandTarget::Exec 函数�?nCmdExecOpt 参数�?band ID�Q�该 ID 是最�q�一�ơ调�?GetBandInfo ?所得到的��|��讄�� IOleCommandTarget::Exec 函数�?pvaIn 参数�?VT_I4 �c�d��Q�这是应用程序定义的一个��|��它通过通知消息 RBN_CHEVRONPUSHED 中lAppValue 回传�l?band 对象�?

3.4　Band 对象注册
　　Band 对象必须注册��Z��?OLE �q�程内的服务器，�q�且支持 apartment �U�程公寓。注册表中默认键的值是表示菜单的文字。对于浏览器栏，它加�?IE 菜单�?#8220;查看\��览器栏”中；对于工具�?band �Q�它加到 IE 菜单�?#8220;查看\工具�?#8221;中；对于桌面 band�Q?它加到系�l��Q务栏的快捯��单中。在菜单资源中，可以使用“&”指明加速键�?br>
通常�Q�一个基本的 band 对象的注册表��目是：

HKEY_CLASSES_ROOT
CLSID
{你的 band 对象�?CLSID}
　　(Default) = 菜单的文�?
　　InProcServer32
　　　(Default) = DLL 的全路径文�g�?
　　　ThreadingModel= Apartment

工具�?bands �q�必��L��它们�?CLSID 注册�?IE 的注册表中�?br>
�?HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Toolbar 下给�?CLSID 作�ؓ键名�Q�而其键值是被忽略的�?br>
HKEY_LOCAL_MACHINE
Software
Microsoft
Internet Explorer
Toolbar
　　{你的 band 对象�?CLSID}

　　�q�有几个可选的注册表项�?例子�E�序�q�不是这样实现的)。比如，你想让浏览器栏显�C?HTML 的话�Q�必��要如下讄��注册表：

HKEY_CLASSES_ROOT
CLSID
{你的 Band 对象�?CLSID}
Instance
CLSID
　　(Default) = {4D5C8C2A-D075-11D0-B416-00C04FB90376}

同时�Q�如果要指定一个本地的 HTML 文�g�Q�那么要如下讄��Q?

HKEY_CLASSES_ROOT
CLSID
{你的 Band 对象�?CLSID}
Instance
InitPropertyBag
　　Url

　　另外�Q�还可以指定��览器栏的宽和高�Q�当�Ӟ��它是依赖于这个栏是纵向还是横向的。其实这个项目无所谓，因�ؓ当用戯��整了��览器栏的大��后�Q�会自动保存在注册表中的�?br>
HKEY_CURRENT_USER
Software
Microsoft
Internet Explorer
Explorer Bars
{你的 Band 对象�?CLSID}
　　BarSize

　　BarSize 键的�c�d��必须�?REG_BINARY �c�d��Q�它�?个字节。左起前4个字节，是用16�q�制表示的像素宽度或高度�Q�后4个字节保留，你应该设�|��ؓ0。下面是一个可以在��览器栏上显�C?HTML 文�g的全部注册表��目的例子，默认宽度�?91�Q?x123�Q�个像素点：

HKEY_CLASSES_ROOT
CLSID
{你的 Band 对象�?CLSID}
　(Default) = 菜单文字
　InProcServer32
　　(Default) = DLL 的全路径文�g�?
　　ThreadingModel= Apartment
Instance
CLSID
　　(Default) = {4D5C8C2A-D075-11D0-B416-00C04FB90376}
InitPropertyBag
　　Url= 你的 HTML 文�g�?br>
HKEY_CURRENT_USER
Software
Microsoft
Internet Explorer
Explorer Bars
{你的 Band 对象�?CLSID}
　　BarSize= 23 01 00 00 00 00 00 00

　　对于注册表的讄��Q�用 ATL 实现其实是异常简单的。打开工程�?xxx.rgs 文�g�Q��ƈ手工�~�辑一下就可以了�?下面�q�个文�g源码�Q�是例子�E�序�?IE 工具栏的注册表样式，HKLM 是需要手工添加的�Q�因为它不��用组件类型方式注册。而对于其它类型的 band 对象只要在类声明中添加：

BEGIN_CATEGORY_MAP(Cxxx) // 向注册表中注�?COM �c�d�� IMPLEMENTED_CATEGORY(CATID_InfoBand) // 垂直样式的浏览器栏END_CATEGORY_MAP()
IE 工具栏类�?band 对象�?#8220;.rgs”文�g
HKCR // �q�个��目�?ATL 帮你生成的，你只要手工修�?#8220;菜单上的文字”��可以了{ Bands.ToolBar.1 = s ''ToolBar Class'' { CLSID = s ''{ 你的 CLSID }'' } Bands.ToolBar = s ''ToolBar Class'' { CLSID = s ''{ 你的 CLSID }'' CurVer = s ''Bands.ToolBar.1'' } NoRemove CLSID { ForceRemove { 你的 CLSID } = s ''用在菜单上的文字(&T)'' { ProgID = s ''Bands.ToolBar.1'' VersionIndependentProgID = s ''Bands.ToolBar'' ForceRemove ''Programmable'' InprocServer32 = s ''%MODULE%'' { val ThreadingModel = s ''Apartment'' } ''TypeLib'' = s ''{xxxx-xxxx-xxxxxxxxxxxxxxx}'' } }}HKLM // �q�个��目是手工添加的IE工具栏所�Ҏ��的{ Software { Microsoft { ''Internet Explorer'' { NoRemove Toolbar { ForceRemove val { 你的 CLSID } = s ''随便�l�个说明性文字串'' } } } }}
四�?ATL 实现
　　下蝲代码�?VC 6.0 工程)�Q�请参照前面的说明仔�l�阅读，代码中也有一些关键点的注释。如果想�q�行�Q�则可以�?regsvr32.exe �q�行注册�Q�然后打开 IE ��览器或资源��览器就可以看到效果了。如果想自己实践一下，可以按照如下的步骤构造工�E�：

4.1　建立一�?ATL DLL 工程
4.2　��d�� New ATL Object...�Q�选择 Internet Explorer Object�Q�选这个类型的目的是让向导�l�我们添�?IObjectWithSite 的支持。如果你使用的是 .net 环境�Q�则不要忘记选择支持�q�个接口�?br>

4.3　输入对象名称�Q�比如我惛_��立一个垂直的��览器栏�Q�不妨叫�?VerBar

4.4　�U�程模型必须选择 Apartment�Q�接口类型的选择无所谓，看你想不��x��?IDispatch 接口功能了。在例子�E�序中的垂直��览器栏中，�׃��x��单的操纵 IE 和从 IE 中接受事�Ӟ��q�接点）�Q�选择 Dual 是必要的。聚合选项�Q�你只要别选择 Only ��可以了�?br>

4.5　展现你无�I�L��智慧�Q�开始输入程序吧。如果是 Debug 方式�~�译�Q�可能会出现一个连接错误，报告找不到_AtlAxCreateControl�Q�那么你要在菜单 Project\Settings...\Link 中增加对 Atl.lib 的连接。或者��?#pragma comment ( lib, "atl" )加入�q�接库�?br>4.6　如果惌��试代码，在菜�?Project\Settings...\Debug 中输�?IE 的�\径名�U�ͼ�比如�Q?#8220;C:\Program Files\Internet Explorer\IEXPLORE.EXE”�Q�然后就可以跟踪断点调试了�?�~�译和调试桌面工��h��?band 对象�Q�是非常�ȝ��的，因�ؓ计算机启动时自动�q�行 Shell�Q��?Shell ��׃��加蝲�z�d��的桌面对象�?br>
五、结束语
好了�Q�到�q�里�Q�就到这里了。祝大家学习快乐^_^

旅�?/a> 2007-07-30 16:00 发表评论

Mon, 30 Jul 2007 07:59:00 GMT
作者：杨老师
下蝲源代�?/font>

一、前�a�
　　我们写程序，�l�常需要实现这��L��需求：
例一、程序运行��生一个窗口，用户关闭的时候需要记录窗口的位置�Q�以便下�ơ运行时保持位置不变�Q?br>例二、由于程序运行时间很长，今天执行一部分�Q�明天��l�执行。那么在下次�q�行前要恢复前次的状态；
... ... ... ...

智慧的老师�Q�以上这些需求，如何实现呢？
應|��的学生：�q�个��单，只要在程序退出前提取必要的信息保存到文�g中，下次�q�行时再从文件中��d��来，讄��一下就OK了�?br>智慧的老师�Q�恩�Q�不错，�q�位同学的思想值得表扬�?br>應|��的学生：不好意思，�q�都要感谢老师的栽培，我对您的景�Ԓ如滔滔江�?.....
智慧的老师�Q�别臭P了，我话�q�没有说完那......如果你需要提取和保存的信息很多，�l�构很复�?.....怎么办？
應|��的学生：也好办，我设计一个结构来记录�q�些信息�?br>智慧的老师�Q�恩......不错。但如果�q�些信息提供�Ҏ��别�h写的模块�Q��ƈ且随着版本的不同还�l�常变化�Q�你怎么办？
應|��的学生：... ...
智慧的老师�Q�解册��些问题的�Ҏ��?--持箋性�?strong>

二、原�?br>　　持箋性，也叫�怹�性。组件方提供 IPersistXXX 接口�Q�调用者（容器�Q�提供存储介质，比如文�g啦、内存啦、注册表啦、流啦、文本啦......啦啦拉。需要保存的时候，调用者通过 IPersistXXX::Save() 接口函数让组件去自己存储属性信息，而调用者根本不用关心存储格式和存储内容�Q�需要还原状态的时候，调用者打开存储介质�Q�然后同栯��?IPersistXXX::Load() 接口函数让组件自己去��d��属性信息�ƈ完成初始化的讄��?br>　　目前�Q�微软定义了如下各种�c�d��的持�l�性接口，��_��满��你的需求了。我们只要在自己写的�l��g中实现其中一个或几个持箋性接口，那么调用者就可以按照�l�一的方式和我们的组件协商完成属性信息的保存和状态还原了�?br>　

持箋性接�?/strong> ��要说�?/strong>

IPersist 　　所有持�l�性接口的根，下面的接口大多从它派生出来。这个接口很��单，只有一个函�?GetClassID()它返回组件的 CLSID ��P��以便调用者能保存�q�个号�ؓ��来 CoCreateInstance() 启动�l��g用�?br> 　　实现�q�个函数也很��单，只要�q�回你组件中�?CLSID_XXX 卛_��Q�或者比较省事的�Ҏ��是返�?GetObjectCLSID() �?/td>

IPersistStream
�z��?IPersist�Q��ƈ增加�?个函敎ͼ�从流(IStream)中读写组件属性信息�?/p>

IsDirty() �l��g内部属性是否发生了变化。�ؓ调用者是否需要保存信息提供依�?/td>

Load() �?IStream 中读入信息，初始化组件属�?/td>

Save() 把属性信息保存到 IStream �?/td>

GetSizeMax() �q�回信息��寸�Q�以便调用者事先开辟空�?/td>

IPersistStreamInit �z��?IPersistStream�Q��ƈ再增加了一个函�?InitNew() 用来完成一个默认的�l��g属性初始化�?br>�q�个持箋性接口是最常用的，本文�C�Z��中就实现了该接口�?/td>

IPersistMemory �?IPersistStreamInit �c�M��Q�但使用的是内存块，而不是大��可变化�?IStream ��?/td>

IPersistStorage �?IPersistStream �c�M��Q�但保存属性信息��用的是存�?IStorage�Q�一�?IStorage 中可以有多个 IStream�?/td>

IPersistFile �?IPersistStream �c�M��Q�但存储介质为文件�?/td>

IPersistPropertyBag 　　使用属性包�Q�属性名、属性��|��的文本方式保存信息。在 IE ��览器中�Q�HTML 嵌入 ActiveX 控�g通常使用�q�个�Ҏ��?br> 　　�?HTML 中插入控�Ӟ�� q�样的�Ş式你应该见过吧？�Q?br> 　　在下一回的文章中，我们介绍�q�个接口。因为在 ActiveX 中，它太常用了�?/td>

IPersistPropertyBag2 扩展�?IPersistPropertyBag 接口。提供了更丰富一些的属性管理用函数�?/td>

IPersistMoniker 用于命名(moniker)存储和读取状态的持箋性接口�?/td>

IPersistHistory �q�行�?IE 上，惛_��用户��览 WEB ��面时存储和��d��状态的持箋性接口�?/td>

三、持�l�性接口组件的实现
　　�C�Z��E�序分别�?vc6.0 �?vc.net 上实��C�� IPersistStreamInit 接口�?COM �l��g和调用�D例。组件完成的功能是计��素敎ͼ�你第一�ơ运行的时候，会得到第一个素�?�Q�然后是3�Q?�Q?�Q?1......下班旉��C��Q�今天就�q�行到这里。于是调用者开辟一个流来保存组件的属性信息。明天��l�运行的时候，从流中原换组件状态，开始了新的计算 13�Q?7�Q?9�Q?3......
　　�q�个�C�Z��应用完全是假设性的�Q�其实没有什么实用�h��|��只是演示�?IPersistStreamInit 接口的实现方法。另外，关于建立��?IStream)的方法，请参�?a >�?/font>COM �l��g设计与应用（一�Q��?/font>�?br>
1、徏立一�?ATL 工程��目�?br>2、增�?ATL �l��g�c�，vc.net 使用者注意不要选择“属性化�~�程”方式�Q�其它的讄��全部使用默认�Ҏ��。当然你愿意适当地改变选择也无所谓�?br>3、设计完成你的组件功能�?br>   �C�Z��E�序中，实现了一个接口函�?GetNext() 负责计算下一个素数�?br>4、添加IPersistStreamInit 接口�?/p>
class ATL_NO_VTABLE Cxxx : public CComObjectRootEx<...> , public CComCoClass<...>, ...... public IPersistStreamInit // 手工��d��持箋性接�?/strong>{......BEGIN_COM_MAP(Cxxx) ...... // 手工��d��接口映射表入�?COM_INTERFACE_ENTRY(IPersistStreamInit) // 表示如果要取�?IPersistStream 指针�Q�则�q�回 IPersistStreamInit 指针 COM_INTERFACE_ENTRY_IID(IID_IPersistStream, IPersistStreamInit) // 表示如果要取�?IPersist 指针�Q�则�q�回 IPersistStremInit 指针 COM_INTERFACE_ENTRY_IID(IID_IPersist, IPersistStreamInit)END_COM_MAP()
5、完�?IPersistStreamInit 接口函数�?br>手工�?h 头文件中增加函数声明�Q?
public:// IPersist STDMETHOD(GetClassID)(/*[out]*/CLSID * pClassID);// IPersistStream STDMETHOD(IsDirty)(void); STDMETHOD(Load)(/*[in]*/IStream *pStm); STDMETHOD(Save)(/*[in]*/IStream *pStm,/*[in]*/BOOL fClearDirty); STDMETHOD(GetSizeMax)(/*[out]*/ULARGE_INTEGER *pcbSize);// IPersistStreamInit STDMETHOD(InitNew)(void);
手工�?cpp 文�g中增加函数实玎ͼ�
// IPersistSTDMETHODIMP Cxxx::GetClassID(/*[out]*/CLSID * pClassID){ *pClassID = GetObjectCLSID(); return S_OK;}// IPersistStreamSTDMETHODIMP Cxxx::IsDirty(void){ if( 数据已经改变�Q�需要保�?) return S_OK; else return S_FALSE;}STDMETHODIMP Cxxx::Load(/*[in]*/IStream *pStm){ return pStm->Read( ��d��哪里, ��d��长字�? NULL);}STDMETHODIMP Cxxx::Save(/*[in]*/IStream *pStm,/*[in]*/BOOL fClearDirty){ if( fClearDirty ) 清除内部表示数据变化的变�? return pStm->Write( 需要保存的数据指针, 写多长字�? NULL );}STDMETHODIMP Cxxx::GetSizeMax(/*[out]*/ULARGE_INTEGER *pcbSize){ pcbSize->LowPart = 需要保存数据长度的低位; pcbSize->HighPart = 需要保存数据长度的高位;// 一般都�?�Q�难道你的数据长度都��过�?4G�Q?return S_OK;}// IPersistStreamInitSTDMETHODIMP Cxxx::InitNew(void){ 内部属性数据默认初始化; 讄��或清除内部表�C�数据变化的变量; return S_OK;}
四、小�l?/strong>
　　下蝲�C�Z��E�序后，�l�合本文仔细阅读代码�Q��ƈ试着�q�行看看效果。如果你理解了，那么你能自己实现 IPersistFile 接口吗？你能自己实现 IPersistStorage 接口吗？你实现的持箋性接口越多，别�h使用你的�l��g��p��方便�Q�也��是说你的组件就能大卖特卖啦�Q�祝你�ؓ中国软�g事业做�A献的同时多多赚钱:-)下回我们�?IPersistPropertyBag 接口实现持箋性属性包功能�Q�别忘了看呦......

旅�?/a> 2007-07-30 15:59 发表评论

WIN API 函数	功能说明
StgCreateDocfile()	建立一个复合文�Ӟ��得到根存储对�?/td>
StgOpenStorage()	打开一个复合文�Ӟ��得到根存储对�?/td>
StgIsStorageFile()	判断一个文件是否是复合文�g

IStorage 函数	功能说明
CreateStorage()	在当前存储中建立新存储，得到子存储对�?/td>
CreateStream()	在当前存储中建立新流�Q�得到流对象
OpenStorage()	打开子存储，得到子存储对�?/td>
OpenStream()	打开��，得到��对�?/td>
CopyTo()	复制存储下的所有对象到目标存储中，该函数可以实现“整理文�Ӟ��释放��片�I�间”的功能
MoveElementTo()	�U�d��对象到目标存储中
DestoryElement()	删除对象
RenameElement()	重命名对�?/td>
EnumElements()	枚�D当前存储中所有的对象
SetElementTimes()	修改对象的时�?/td>
SetClass()	在当前存储中建立一个特�D�的��对象，用来保存CLSID�Q�注5�Q?/td>
Stat()	取得当前存储中的�pȝ��信息
Release()	关闭存储对象

IStream 函数	功能说明
Read()	从流中读取数�?/td>
Write()	向流中写入数�?/td>
Seek()	定位��d��位置
SetSize()	讄��尺寸。如果预先知道大��，那么先调用这个函敎ͼ�可以提高性能
CopyTo()	复制��数据到另一个流对象�?/td>
Stat()	取得当前��中的系�l�信�?/td>
Clone()	克隆一个流对象�Q�方便程序中的不同模�?**作同一个流对象
Release()	关闭��对�?/td>

WIN API 补充函数	功能说明
WriteClassStg()	写CLSID到存储中�Q�同IStorage::SetClass()
ReadClassStg()	��d��WriteClassStg()写入的CLSID�Q�相当于��化调用IStorage::Stat()
WriteClassStm()	写CLSID到流的开始位�\|?/td>
ReadClassStm()	��d��WriteClassStm()写入的CLSID
WriteFmtUserTypeStg()	写入用户指定的剪贴板格式和名�U�到存储�?/td>
ReadFmtUserTypeStg()	��d��WriteFmtUserTypeStg()写入的信息。方便应用程序快速判断是否是它需要的格式数据�?/td>
CreateStreamOnHGlobal()	内存句柄 HGLOBAL 转换为流对象
GetHGlobalFromStream()	取得CreateStreamOnHGlobal()调用中��用的内存句柄

Band 样式	�l��g�c�d��	CATID
垂直的浏览器�?/td>	CATID_InfoBand	00021493-0000-0000-C000-000000000046
水��^的浏览器�?/td>	CATID_CommBand	00021494-0000-0000-C000-000000000046
桌面的工��h��	CATID_DeskBand	00021492-0000-0000-C000-000000000046

�?/font>	描述
pUnk	band 对象�?IUnknown 指针�Q�其它的桌面 bands ��被隐藏
0	隐藏所有的桌面 bands
1	昄��所有的桌面 bands

持箋性接�?/strong>	��要说�?/strong>
IPersist	所有持�l�性接口的根，下面的接口大多从它派生出来。这个接口很��单，只有一个函�?GetClassID()它返回组件的 CLSID ��P��以便调用者能保存�q�个号�ؓ��来 CoCreateInstance() 启动�l��g用�?br> 　　实现�q�个函数也很��单，只要�q�回你组件中�?CLSID_XXX 卛_��Q�或者比较省事的�Ҏ��是返�?GetObjectCLSID() �?/td>
IPersistStream	�z��?IPersist�Q��ƈ增加�?个函敎ͼ�从流(IStream)中读写组件属性信息�?/p>
	IsDirty()	�l��g内部属性是否发生了变化。�ؓ调用者是否需要保存信息提供依�?/td>
	Load()	�?IStream 中读入信息，初始化组件属�?/td>
	Save()	把属性信息保存到 IStream �?/td>
	GetSizeMax()	�q�回信息��寸�Q�以便调用者事先开辟空�?/td>
IPersistStreamInit	�z��?IPersistStream�Q��ƈ再增加了一个函�?InitNew() 用来完成一个默认的�l��g属性初始化�?br>�q�个持箋性接口是最常用的，本文�C�Z��中就实现了该接口�?/td>
IPersistMemory	�?IPersistStreamInit �c�M��Q�但使用的是内存块，而不是大��可变化�?IStream ��?/td>
IPersistStorage	�?IPersistStream �c�M��Q�但保存属性信息��用的是存�?IStorage�Q�一�?IStorage 中可以有多个 IStream�?/td>
IPersistFile	�?IPersistStream �c�M��Q�但存储介质为文件�?/td>
IPersistPropertyBag	使用属性包�Q�属性名、属性��\|��的文本方式保存信息。在 IE ��览器中�Q�HTML 嵌入 ActiveX 控�g通常使用�q�个�Ҏ��?br> 　　�?HTML 中插入控�Ӟ�� q�样的�Ş式你应该见过吧？�Q?br> 　　在下一回的文章中，我们介绍�q�个接口。因为在 ActiveX 中，它太常用了�?/td>
IPersistPropertyBag2	扩展�?IPersistPropertyBag 接口。提供了更丰富一些的属性管理用函数�?/td>
IPersistMoniker	用于命名(moniker)存储和读取状态的持箋性接口�?/td>
IPersistHistory	�q�行�?IE 上，惛_��用户��览 WEB ��面时存储和��d��状态的持箋性接口�?/td>

久久婷婷久久一区二区三区,欧美高清自拍一区,国产伦精品一区二区三区免费

�l�构或大内存块打包的办法

Windows区对�?Bands)的创��Z��定制

ATL 实现定制�?IE ���览器栏、工��h��和桌面工��h��

ATL 实现定制�?IE ��览器栏、工��h��和桌面工��h��