转：用ATL库开发COM组件常见的几个问题 (ie不响应事件，解决悲剧的方法)

使用ATL开发COM组件时有几个问题，可能会经常遇到，并且如果不知道的话，还很难找到解决的方法。我看到有些人在CSDN上也问到了相同的问题，但很少有人给出满意的答案，所以我将这几个常见问题写在下面，以免其他人再重复劳动。

一、    问：做的一个控件，在网页里面调用时，IE浏览器总是提示：“在此页上的ActiveX控件和本页上其它部分的交互可能不安全．你想允许这种交互吗？” 请问如何将这个提示去掉。

答：在你的控件中加入如下处理即可。在你的控件的类定义部分再多继承一个父类

public IObjectSafetyImpl<CCommunicationsLink,INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA>

同时在接口映射中也多加一句：
BEGIN_COM_MAP(CXXX)
         ........
 COM_INTERFACE_ENTRY(IObjectSafety)
END_COM_MAP()

进行如上处理，则IE就不会再提示了。


二、    问：我用VC的ATL库写的控件，用VB可以接收到事件，但是用IE网页却死活收不到事件？

答：一般有以下几种原因：
第一个是IE浏览器只能支持单套间的模式，你的控件只能是单套间的，不能是多套间。

第二个是IE浏览器不会主动调用Advise等注册事件的接口，所以你的控件的类定义必须再多继承以下的父类

public
IProvideClassInfo2Impl<&CLSID_Test, &DIID__ITestEvents, &LIBID_TESTLib,1,0>

同时接口映射中加入以下处理
BEGIN_COM_MAP(CTest)
    //用来查询接口类信息
    COM_INTERFACE_ENTRY(IProvideClassInfo)
    COM_INTERFACE_ENTRY(IProvideClassInfo2)
END_COM_MAP()

这样IE才能够注册准备接收事件。
参考 http://support.microsoft.com/default.aspx?scid=kb;en-us;200839


第三是你在控件中激活事件的语句（象调用Fire_Event的地方）如果不在主线程里面，而是在另外开的线程里面激活，则要经过处理才行。具体的处理步骤在微软的知识库中提到了，网址是
http://support.microsoft.com/kb/q280512/
需要下载一个该网页上的文件ATLCPImplMT.h，在控件事件实现的文件中进行如下处理：包含该文件，加上一些小修改，示例代码如下

#include "ATLCPImplMT.h" // 包含此句
 
// 注意下面一句的继承类由IconnectionPointImpl变成了 IConnectionPointImplMT
template <class T>
class CProxy_ITestEvents : public IConnectionPointImplMT<T, &DIID__ITestEvents, CComDynamicUnkArray>
{
    //Warning this class may be recreated by the wizard.
public:
    HRESULT FireEvents(DISPID p_DispID, CComVariant* p_pvars, long p_lParNum)
    {
        CComVariant varResult;
        T* pT = static_cast<T*>(this);
        int nConnectionIndex;
        int nConnections = m_vec.GetSize();
    
        for (nConnectionIndex = 0; nConnectionIndex < nConnections; nConnectionIndex++)
        {

//  屏蔽掉向导生成的这三句
//            pT->Lock();
//            CComPtr<IUnknown> sp = m_vec.GetAt(nConnectionIndex);
//            pT->Unlock();

            // 换成下面这两句
            CComPtr<IUnknown> sp;
            sp.Attach(GetInterfaceAt(nConnectionIndex));

            IDispatch* pDispatch = reinterpret_cast<IDispatch*>(sp.p);
            if (pDispatch != NULL)
            {
                VariantClear(&varResult);
                DISPPARAMS disp = {p_pvars, NULL, p_lParNum, 0 };
                pDispatch->Invoke(p_DispID, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &disp, &varResult, NULL, NULL);
            }
        }
        return varResult.scode;    
    }


当然，还有象通过给主线程发消息、线程间列集等方法，不过我觉得这种操作起来更简单些，进行以上的处理后IE网页就可以接收事件了。

在网页中接收事件的语法大致如下：
 
vbs 中
 
sub 控件ID_On事件函数名（参数）
............
end sub
 
js 中
<script for="控件ID" event="事件函数名(参数)">
............
</script>


三、    问：我在控件里面有SAFEARRAY类型的数据，怎样通过事件传给IE网页或VB程序？

答：比如你的IDL定义如下：
dispinterface _ITestEvents
    {
        properties:
            methods:
            [id(1), helpstring("DataReceived")]
            HRESULT DataReceived([in] SAFEARRAY(unsigned char)* Data);    
    };
此时如果收到数据了，需要通过事件将数据传出去。在事件处理的函数中定义如下
HRESULT Fire_DataReceived(SAFEARRAY * *  Data)

你会发现ATL向导生成的代码根本无法将SAFEARRAY类型的数据传出去，其实可以将向导生成的代码进行一下修改即可

//        pvars[0] = Data;

        pvars[0].vt = VT_ARRAY | VT_BYREF | VT_UI1;
        pvars[0].pparray = Data;

将原来的pvars[0] = Data;屏蔽掉，换成下面两句即可。注意其中VT_UI1跟你发送事件前，组织SAFEARRAY数据时的类型相同，比如你用下面的函数组织数据
SafeArrayCreate(VT_UI1, 1, pSab);
则是VT_UI1，如果是其他类型要同时对应起来。