COM组件开发实践（八）---多线程ActiveX控件和自动调整ActiveX控件大小(下)

 转载自： http://www.cnblogs.com/phinecos/archive/2008/12/29/1364791.html

 

源代码下载：MyActiveX20081229.rar

编译平台：VS2005

 

 

声明：本文代码基于CodeProject的文章《A Complete ActiveX Web Control Tutorial》修改而来，因此同样遵循Code Project Open License (CPOL)。

 

 

在上一篇文章《COM组件开发实践（七）---多线程ActiveX控件和自动调整ActiveX控件大小(上)》中介绍了ActiveX控件中使用多线程的基本需求，并提出了一个简单的线程模型，但却出现了意想不到的问题，本文将尝试给出问题的一个可行的解法,并同时解决上文中提出的第二个问题。

      其实解决的思路也很简单，一开始我也早就想到了的，就是使用让子线程PostMessage来发出自定义的消息来通知主线程，特定的事件已经发生了，需求主线程去响应。这不是什么了不起的想法，但我对子线程PostMessage非常恐惧，因为以前的一个项目中就是这个问题导致了内存泄露，所以这个方案一开始就被我否定了。

      遍寻解决之道不可得时，只得在csdn的论坛上发贴求教高手了，具体的讨论请参考这个帖子：

http://topic.csdn.net/u/20081226/17/9bf0ae08-c54d-4934-b1b2-91baa27ff76e.html

看到jameshooo(胡柏华)的回帖后，还是决定回到起点，尝试用PostMessage这个方案。

首先自定义两个事件，分别表示操作成功和操作失败

#define WM_OPTSUCCESS WM_APP+101 //操作成功#define WM_OPTFAILED WM_APP+102//操作失败

然后回调函数中就变得非常简单，只需要post对应的事件即可。

///////////////////////回调函数/////////////////////////void CMyActiveXCtrl::OnSuccesful(){//操作成功    this->PostMessage(WM_OPTSUCCESS,(WPARAM)NULL,(LPARAM)NULL);}void CMyActiveXCtrl::OnFailed(){//操作失败    this->PostMessage(WM_OPTFAILED,(WPARAM)NULL,(LPARAM)NULL);}

再重载消息处理函数WindowProc，在其中调用外部的JavaScript函数或者Fire出外部页面可以响应的事件。

LRESULT CMyActiveXCtrl::WindowProc(UINT msg, WPARAM wParam, LPARAM lParam){switch (msg){case WM_OPTSUCCESS:{//操作成功，通知外部页面CString strOnLoaded("OnLoaded");this->CallJScript(strOnLoaded);return 0;}case WM_OPTFAILED:{//操作失败，通知外部页面//这里不写了，同上面}}return   COleControl::WindowProc(msg,wParam,lParam);   }

在OnCreate函数中加入启动工作线程代码：

int CMyActiveXCtrl::OnCreate(LPCREATESTRUCT lpCreateStruct){    if (COleControl::OnCreate(lpCreateStruct) == -1)        return -1;    m_MainDialog.Create(IDD_MAINDIALOG, this);    pThread.SetICallBack(this);//设置主线程回调函数    pThread.Start();//启动工作线程    return 0;}

重载掉OnClose函数，在其中加入关闭工作线程的代码：

void CMyActiveXCtrl::OnClose(DWORD dwSaveOption){    pThread.Stop(true);//强行关闭工作线程    COMRELEASE(pWebBrowser);    COMRELEASE(pHTMLDocument);    COleControl::OnClose(dwSaveOption);}

 到此为止，一个多线程的ActiveX控件就诞生了。这里是不会发生以前我遇到的内存泄露的，因为情况不同了，只是在回调函数中简单的post一个message，并没有new一个内存区域并将这块内存作为参数post给主线程，后面这种情况是可能会内存泄露的。

Ok,下面来考虑第二个问题，先简单介绍下具体需求：就是一个AcitveX控件会用到不同的页面中，每个页面对这个控件的需求也不同，也就要求在两个不同的页面中，控件显示的大小也不同。

      jameshooo(胡柏华)回帖说：“改变控件大小要通知容器，由容器再反过来通知控件改变大小，不然没有任何效果。调用IOleInPlaceSite::OnPosRectChange即可”。因此就根据这个来尝试提出一个解决方案来。

假设有两种模式的控件，一种是“普通”模式，如下图所示：

 一种是“特殊”模式，

为了区别开两者，就考虑在web页面中通过设置参数的方式来通知ActiveX控件，对于不同的模式填充不同的对话框就可以了。我们在web页面中控件部分加入如下参数:

<PARAM NAME="IsSpecial" VALUE="TRUE">

相应的在CMyActiveXCtrl类中加入一个变量，这里为简单起见，选择了类型为CString型，主要是为了传参数方便。

CString m_bIsSpecial;//是否是"特殊"页面

 

Web页面传入的参数值在下面这个函数中读取：

void CMyActiveXCtrl::DoPropExchange(CPropExchange* pPX){    ExchangeVersion(pPX, MAKELONG(_wVerMinor, _wVerMajor));    COleControl::DoPropExchange(pPX);    PX_String(pPX,   _T("IsSpecial"),   m_bIsSpecial); //读取外部设置的参数}

注：PX_String会读取html中的javascript中定义的<PARAM 中NAME为"IsPaecial"的VALUE值给m_bIsSpecial

 为了供控件选择，这里提供了两种模式的对话框：

public:    CMyDlgTwo m_dlgSpecial;//特殊模式    CMyDlgThree m_dlgCommon;//普通模式

然后在创建和绘制对话框时，通过检测参数是否为空就知道待创建的对话框类型到底是“普通“还是”特殊“了。

int CMyActiveXCtrl::OnCreate(LPCREATESTRUCT lpCreateStruct){    if (COleControl::OnCreate(lpCreateStruct) == -1)        return -1;    CRect newRc;     if(m_bIsSpecial.Compare(_T(""))==0)    {//没设置参数，"普通“模式        this->m_dlgCommon.Create(IDD_DIALOG3,this);        //设置控件的大小                newRc.left = 0;         newRc.top = 0;         newRc.right = 200;         newRc.bottom = 200;     }    else    {//设置了参数，”特殊“模式        this->m_dlgSpecial.Create(IDD_DIALOG2,this);        //设置控件的大小        newRc.left = 0;         newRc.top = 0;         newRc.right = 200;         newRc.bottom = 200;     }    this->m_pInPlaceSite->OnPosRectChange(&newRc);    return 0;}void CMyActiveXCtrl::OnDraw(            CDC* pdc, const CRect& rcBounds, const CRect& rcInvalid){    if (!pdc)        return;    if(m_bIsSpecial.Compare(_T(""))==0)    {//没设置参数，"普通“模式        this->m_dlgCommon.MoveWindow(rcBounds,TRUE);    }    else    {//设置了参数，”特殊“模式        this->m_dlgSpecial.MoveWindow(rcBounds,TRUE);    }}

这种方法对于我目前的需求刚好是满足的，但也许还有其他更好的方法，也希望有知道的能贡献出来，一起学习下。

测试方法

测试方法：ActiveX控件测试容器（即调用 C:\Program Files\Microsoft Visual Studio 8\Common7\Tools\tstcon32.exe）

ActiveX控件测试时加入注册的控件MyActiveX  Control。

（1）首先进入的是CMyActiveXApp::InitInstance()

（2）然后进入CMyActiveXCtrl::OnSetClientSite()；（此函数被ctlobj.cpp文件中的COleControl::XOleObject::SetClientSite(LPOLECLIENTSITE pClientSite)调用）

 （3）之后进入CMyActiveXCtrl::OnResetState()；

（4）CMyActiveXCtrl::DoPropExchange(CPropExchange* pPX)；

（5）CMyActiveXCtrl::PreCreateWindow(CREATESTRUCT& cs)

（6）CMyActiveXCtrl::OnCreate(LPCREATESTRUCT lpCreateStruct)

（7）CMyActiveXCtrl::WindowProc(UINT msg, WPARAM wParam, LPARAM lParam) 中的case WM_OPTSUCCESS

          之后会用CallJScript(strFunc,paramArray,pVarResult);去调用javascript