3,248
社区成员
发帖
与我相关
我的任务
分享ATL写的ActiveX要怎么取得网页里PARAM传入的值？
测试网页如下：
<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()
<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 2005-06-23
- 打赏
- 举报
如何通过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组件的类名，自己更换就可以了
问题：用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组件的类名，自己更换就可以了
sinall 2005-06-23
- 打赏
- 举报
嗯，烦请楼主把自己的解决方法在这里写出来。
bohut 2005-06-22
- 打赏
- 举报
mark
shines77 2005-06-22
- 打赏
- 举报
对不起，自己搞定了，大家想知道的学习一下，另外，散分。。。。
建议版主加到faq里，同意的跟贴
参考：
http://ms.mblogger.cn/skyonline/posts/11390.aspx
http://www.frank-buss.de/activex/
建议版主加到faq里，同意的跟贴
参考：
http://ms.mblogger.cn/skyonline/posts/11390.aspx
http://www.frank-buss.de/activex/
shines77 2005-06-22
- 打赏
- 举报
感觉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)
如果没有PROP_DATA_ENTRY("Path", m_bstrPath, VT_BSTR)这句，根本就不会调用get_Path，所以说明这个还是有效的，但是可能哪里不太对
另外，我已经实现了控件安全
//实现控件安全：
COM_INTERFACE_ENTRY(IObjectSafety)
//支持vbscript和javascript脚本
COM_INTERFACE_ENTRY(IProvideClassInfo)
COM_INTERFACE_ENTRY(IProvideClassInfo2)
