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