自定义的ActiveX控件的属性报错，请专家解答

[jone7319]

以下是我自定义的ActiveX控件的一个属性，报错

STDMETHODIMP TActiveFormXImpl::get_name(long* Value)
{
  try
  {
   *Value=(long)name;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_aaa);
  }
  return S_OK;
};


STDMETHODIMP TActiveFormXImpl::set_name(long Value)
{
  try
  {
    m_VclCtl->name=Value; //这里出错，提示 'name' is not a member of 'TWinControlAccess<TActiveFormX>'
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_aaa);
  }
  return S_OK;
};

[ccrun.com]

m_VclCtl->name=Value;
换成
name=Value;

[jone7319]

[Quote=引用 1 楼 ccrun 的回复:]
m_VclCtl->name=Value;
换成
name=Value;
[/Quote]
我之前就是这样做的，编辑通过，但加入到工程后直接崩溃！

[jone7319]

通过看了老妖网站的的《C++Builder5开发人员指南》一书，按照书中的例子将 name=Value改成m_VclCtl->name=Value; 编译没通过;

[我不懂电脑]

看看m_VclCtl->后，能提示出name这个属性不？

[Waiting4you]

这个name变量是自定义的吗？从上面的代码看name=Value; 绝对是不会错的，崩溃应该是别的地方的问题

[jaffy]

m_VclCtl是什么东东，需要先说明下

[ccrun.com]

m_VclCtl是ActiveForm工程中默认的Form对象。

[jone7319]

应该不会错，我只是做个测试，加入一个自定义属性name,然后加入
STDMETHODIMP TActiveFormXImpl::get_name(long* Value)
{
try
{
*Value=(long)name;
}
catch(Exception &e)
{
return Error(e.Message.c_str(), IID_aaa);
}
return S_OK;
};


STDMETHODIMP TActiveFormXImpl::set_name(long Value)
{
try
{
name=Value;
}
catch(Exception &e)
{
return Error(e.Message.c_str(), IID_aaa);
}
return S_OK;
};

编译后生成 aaa.ocx 再导入 aaa.ocx ,将在IDE上可见的图标拉入 Form, IDE就直接崩溃退出了，我用的是BCB6，大家也可以测试下

[ccrun.com]

你这样试试：
在ActiveFormX的头文件类声明中：

public:		// User declarations
    long m_name;

.cpp文件中：

STDMETHODIMP TActiveFormXImpl::get_name(long* Value)
{
  try
  {
    *Value = m_VclCtl->m_name;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IActiveFormX);
  }
  return S_OK;
};

STDMETHODIMP TActiveFormXImpl::set_name(long Value)
{
  try
  {
    m_VclCtl->m_name = Value;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IActiveFormX);
  }
  return S_OK;
};

[Waiting4you]

在BCB6下测试，没有问题。
可以编译，可以导入，把它放到其它窗体上，属性编辑里能看到name属性。
我的测试过程是这样的：
1.新建ActiveX Library, 加入Active Form(从你的代码上猜看应该是ActiveForm，呵呵)。
2.在BCB的类型库编译器（View->Type Library）里右击IActiveFormX，加入name属性。
3.点Reflash Implementation按钮，在ActiveFormImpl1.cpp的STDMETHODIMP TActiveFormXImpl::get_name(long* Value)和STDMETHODIMP TActiveFormXImpl::set_name(long Value)里填空，和你的代码一样。
4.在TActiveFormXImpl声明里加一个: long name;
5.编译，注册。

[周药师]

我这里很正常，没有出现你的问题
你把你添加的属性部分去掉
看看自动生成的 会让你的IDE死不？

[jone7319]

再新建一个ActiveForm测试仍旧如故，崩溃退出

[jone7319]

[Quote=引用 11 楼 zhouzhangkui 的回复:]
我这里很正常，没有出现你的问题
你把你添加的属性部分去掉
看看自动生成的 会让你的IDE死不？
[/Quote]
不添加属性正常

[周药师]

你的CB6 是up4 ？

[jone7319]

终于搞定了，是因为在导入OCX时出了问题。谢谢大家

[ccrun.com]

good!