ATL写的ActiveX要怎么取得网页里PARAM传入的值？

[shines77]

测试网页如下：

<HTML>
<HEAD>
<TITLE>ATL 3.0 test page for object LiveBootObject</TITLE>
</HEAD>
<BODY>
<OBJECT ID="LiveBootObject" CLASSID="CLSID:E5B8CE58-BF6B-4A75-9E7F-4D7BED570B6E" width=400 height=300>
<PARAM NAME="Path" VALUE="http://ad4.sina.com.cn/200506/09/1234.htm">
<PARAM NAME="Server" VALUE="NightElf">
</OBJECT>
<script language="JavaScript">
//document.all["LiveBootObject"].Path = 'http://image2.sina.com.cn/dy/ad/cadm.htm; // 测试用，如果把这句加上就可以取得Path，说明put_Path() 是正常工作的
</script>
</BODY>
</HTML>

网上的资料好像都是MFC写的多，ATL的很少

我代码里是这么写的：

BEGIN_PROP_MAP(CLiveBootObject)
PROP_DATA_ENTRY("_cx", m_sizeExtent.cx, VT_UI4)
PROP_DATA_ENTRY("_cy", m_sizeExtent.cy, VT_UI4)
PROP_DATA_ENTRY("Path", m_bstrPath, VT_BSTR)
PROP_DATA_ENTRY("Server", m_bstrServer, VT_BSTR)
PROP_ENTRY("TabStop", DISPID_TABSTOP, CLSID_NULL)
PROP_ENTRY("Path", DISPID_PATH, CLSID_NULL)
PROP_ENTRY("Server", DISPID_SERVER, CLSID_NULL)
// Example entries
// PROP_ENTRY("Property Description", dispid, clsid)
// PROP_PAGE(CLSID_CLiveBootObject)
END_PROP_MAP()

private:
_bstr_t m_bstrPath;
_bstr_t m_bstrServer;


STDMETHODIMP CLiveBootObject::get_Path(BSTR *pVal)
{
if (pVal != NULL)
{
*pVal = m_bstrPath;
}

return S_OK;
}

STDMETHODIMP CLiveBootObject::put_Path(BSTR newVal)
{
_bstr_t b = newVal;
m_bstrPath = b;

return S_OK;
}

而且为什么打开网页的时候调用的是get_Path()，取得的m_bstrPath是Null，而不是调用put_Path？我下意识认为<PARAM NAME="Path" VALUE="http://ad4.sina.com.cn/200506/09/1234.htm">是一个设置值的过程，即调用put_Path()

[shines77]

感觉m_bstrPath不应该用_bstr_t类型（要么是BSTR，要么PROP_DATA_ENTRY("Path", m_bstrPath, VT_BSTR)要修改一下类型），但是我之前用LPCTSTR也是一样的

如果没有PROP_DATA_ENTRY("Path", m_bstrPath, VT_BSTR)这句，根本就不会调用get_Path，所以说明这个还是有效的，但是可能哪里不太对

另外，我已经实现了控件安全

//实现控件安全：
COM_INTERFACE_ENTRY(IObjectSafety)

//支持vbscript和javascript脚本
COM_INTERFACE_ENTRY(IProvideClassInfo)
COM_INTERFACE_ENTRY(IProvideClassInfo2)

[shines77]

对不起，自己搞定了，大家想知道的学习一下，另外，散分。。。。

建议版主加到faq里，同意的跟贴

参考：
http://ms.mblogger.cn/skyonline/posts/11390.aspx
http://www.frank-buss.de/activex/

[bohut]

mark

[sinall]

嗯，烦请楼主把自己的解决方法在这里写出来。

[shines77]

如何通过IE中传入的值初始化ATL com组件中的各个属性?
问题：用ATL自己编写的com组件,我想在IE中初始化各个属性,虽然显示<PARAM "PartnerID"="xxxxxxx"><PARAM "Src"="xxxxxxx">......的属性初始化列表,但属性根本没有初始化（这些属性在脚本中赋值没有问题）

摘自下面的两个网址，我综合整理了一下（还用Long和BSTR各举了个例子）:
http://ms.mblogger.cn/skyonline/posts/11390.aspx
http://www.frank-buss.de/activex/


必须在ATL中自己实现IPersistPropertyBag接口,实现基类的函数比如Load(), Save()

//对象必须继承IPersistPropertyBag
class ATL_NO_VTABLE C×××× :
public CComObjectRootEx<CComSingleThreadModel>,
public CComCoClass<C××××, &CLSID_××××>,
public IDispatchImpl<I××××, &IID_I××××, &LIBID_SENSKYSMSLib>,
.....
public IPersistPropertyBagImpl<C××××>

//IPersistPropertyBag
STDMETHOD(Load)(IPropertyBag *pBag, IErrorLog *pLog)
{
//create variant to hold propery values
CComVariant v;
//set variant type to long
v.vt = VT_I4;
v = 0L;

HRESULT hr = pBag->Read(OLESTR("PartnerID"), &v, pLog);
if (SUCCEEDED (hr))
put_PartnerId(v.lVal);

v.vt = VT_BSTR;
v = _T("");
hr = pBag->Read(OLESTR("MyText"), &v, pLog);
if (SUCCEEDED (hr))
put_PartnerId(v.bstrVal);

return S_OK;
}

STDMETHOD(Save)(IPropertyBag *pBag, BOOL fClearDirty, BOOL fSaveAllProperties)
{
//write out speed
CComVariant v = m_nPartnerId;
HRESULT hr = pBag->Write(OLESTR("PartnerID"), &v);
if (FAILED (hr)) return hr;

v = m_bstrMyText;
hr = pBag->Write(OLESTR("MyText"), &v);
if (FAILED (hr)) return hr;

return S_OK;
}
//

//下面的这个是定义接收从网页传过来的 PARAM 值...
BEGIN_PROP_MAP(C××××)
PROP_DATA_ENTRY("_cx", m_sizeExtent.cx, VT_UI4)
PROP_DATA_ENTRY("_cy", m_sizeExtent.cy, VT_UI4)
// Example entries
// PROP_ENTRY("Property Description", dispid, clsid)
PROP_ENTRY("PartnerID", 0x4, CLSID_××××) // 这里定义接收传来的PARAM 值
PROP_ENTRY("MyText", 0x5, CLSID_××××) // 同上
// dispid看定义时的id，例如[id(1), helpstring("method Play")] HRESULT Play();
// dispid则为 1
END_PROP_MAP()

// 属性的定义，自己添加哦，这里是范例
STDMETHOD(get_PartnerId)(long* pVal);
STDMETHOD(put_PartnerId)(long newVal);
STDMETHOD(get_MyText)(BSTR* pVal);
STDMETHOD(put_MyText)(BSTR newVal);

private:
LONG m_nPartnerId;
CComBSTR m_bstrMyText;


把下面代码加入到你的类的cpp文件： ××××.cpp:

STDMETHODIMP C××××::get_PartnerId(long* pVal)
{
*pVal = m_nPartnerId;
return S_OK;
}

STDMETHODIMP C××××::put_PartnerId(long newVal)
{
m_nPartnerId = newVal;
return S_OK;
}

STDMETHODIMP C××××::get_MyText(BSTR* pVal)
{
*pVal = m_bstrMyText.Copy();
return S_OK;
}

STDMETHODIMP C××××::put_MyText(BSTR newVal)
{
m_bstrMyText = newVal;
return S_OK;
}

// 注意：以上的××××为你ATL组件的类名，自己更换就可以了