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>

如何通过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组件的类名，自己更换就可以了

posted on 2008-11-15 20:27 RIVERSPIRIT 阅读(1485) 评论(1) 收藏举报