BCB开发的OCX潜入到网页中，OCX怎么获取属性值

BCB开发的OCX潜入到网页中，OCX如何获取属性值？
比如在网页中：
  <OBJECT
classid="clsid:FCBE3774-1A27-4799-88E8-6AA1A9741ACD"
codebase="ActFrmProj1.inf#version=1,0,1,3"
width=100%
height=400
align=center
hspace=0
vspace=0
  file="one.wrl"
  id="myocx"
  >
上面的file是自己定义的属性，当网页载入时，程序中如何获取"one.wrl"字符串值？

[解决办法]

C/C++ code

STDMETHODIMP TWTImpl::get_Property1(BSTR* Value){  try  {    *Value   =   WideString(m_VclCtl->pa1).Copy();  }  catch(Exception &e)  {    return Error(e.Message.c_str(), IID_IWT);  }  return S_OK;};STDMETHODIMP TWTImpl::set_Property1(BSTR Value){  try  {      m_VclCtl->pa1   =   (AnsiString)Value;  }  catch(Exception &e)  {    return Error(e.Message.c_str(), IID_IWT);  }  return S_OK;};