在打造OCX时，为什么定义了属性却无法访问

2012-12-31

在制作OCX时，为什么定义了属性却无法访问本帖最后由 jone7319 于 2012-06-11 23:04:24 编辑已定义了一个属

在制作OCX时，为什么定义了属性却无法访问
本帖最后由 jone7319 于 2012-06-11 23:04:24 编辑

已定义了一个属性FetionUser,但即出现“[C++ Error] FetionOCImpl1.cpp(654): E2316 'FetionUser' is not a member of 'TWinControlAccess<TFetionOCX>'”错误，如何解决？


STDMETHODIMP TFetionOCXImpl::get_FetionUser(BSTR* Value)
{
  try
  {
    *Value = WideString(m_VclCtl->FetionUser).Copy(); //这里出错
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IFetionOCX);
  }
  return S_OK;
};

以下是通过界面定义自动生成的代码：
头文件
[code=C/C++]
//$$---- Active Form HDR ---- (stActiveFormHdr)
//---------------------------------------

#ifndef FetionOCImpl1H
#define FetionOCImpl1H
//---------------------------------------
#include <classes.hpp>
#include <controls.hpp>
#include <stdCtrls.hpp>
#include <forms.hpp>
#include "FetionOCProj1_TLB.h"
#include <AxCtrls.hpp>
//---------------------------------------
class TFetionOCX : public TActiveForm
{
__published:// IDE-managed Components
private:// User declarations
public:// User declarations
    __fastcall TFetionOCX(HWND ParentWindow);
    __fastcall TFetionOCX(TComponent* AOwner): TActiveForm(AOwner) {};
};
//---------------------------------------
extern PACKAGE TFetionOCX *FetionOCX;
//---------------------------------------

//---------------------------------------
class ATL_NO_VTABLE TFetionOCXImpl:
  VCLCONTROL_IMPL(TFetionOCXImpl, FetionOCX, TFetionOCX, IFetionOCX, DIID_IFetionOCXEvents)
{
  void __fastcall ActivateEvent(TObject *Sender);
  void __fastcall ClickEvent(TObject *Sender);
  void __fastcall CreateEvent(TObject *Sender);
  void __fastcall DblClickEvent(TObject *Sender);
  void __fastcall DeactivateEvent(TObject *Sender);
  void __fastcall DestroyEvent(TObject *Sender);
  void __fastcall KeyPressEvent(TObject *Sender, char &Key);
  void __fastcall PaintEvent(TObject *Sender);
public:

  void InitializeControl()
  {
    m_VclCtl->OnActivate = ActivateEvent;
    m_VclCtl->OnClick = ClickEvent;
    m_VclCtl->OnCreate = CreateEvent;
    m_VclCtl->OnDblClick = DblClickEvent;
    m_VclCtl->OnDeactivate = DeactivateEvent;
    m_VclCtl->OnDestroy = DestroyEvent;
    m_VclCtl->OnKeyPress = KeyPressEvent;
    m_VclCtl->OnPaint = PaintEvent;
  }

// The COM MAP entries declares the interfaces your object exposes (through
// QueryInterface). CComRootObjectEx::InternalQueryInterface only returns

// pointers for interfaces in the COM map. VCL controls exposed as OCXes
// have a minimum set of interfaces defined by the
// VCL_CONTROL_COM_INTERFACE_ENTRIES macro. Add other interfaces supported
// by your object with additional COM_INTERFACE_ENTRY[_xxx] macros.
//
BEGIN_COM_MAP(TFetionOCXImpl)
  VCL_CONTROL_COM_INTERFACE_ENTRIES(IFetionOCX)
END_COM_MAP()

// The PROPERTY map stores property descriptions, property DISPIDs,
// property page CLSIDs and IDispatch IIDs. You may use use
// IPerPropertyBrowsingImpl, IPersistPropertyBagImpl, IPersistStreamInitImpl,
// and ISpecifyPropertyPageImpl to utilize the information in you property
// map.
//
// NOTE: The BCB Wizard does *NOT* maintain your PROPERTY_MAP table. You must
//       add or remove entries manually.
//
BEGIN_PROPERTY_MAP(TFetionOCXImpl)
  // PROP_PAGE(CLSID_FetionOCXPage)
END_PROPERTY_MAP()

/* DECLARE_VCL_CONTROL_PERSISTENCE(CppClass, VclClass) is needed for VCL
* controls to persist via the VCL streaming mechanism and not the ATL mechanism.
* The macro adds static IPersistStreamInit_Load and IPersistStreamInit_Save
* methods to your implementation class, overriding the methods in IPersistStreamImpl.
* This macro must be manually undefined or removed if you port to C++Builder 4.0. */

DECLARE_VCL_CONTROL_PERSISTENCE(TFetionOCXImpl, TFetionOCX);

// The DECLARE_ACTIVEXCONTROL_REGISTRY macro declares a static 'UpdateRegistry'
// routine which registers the basic information about your control. The
// parameters expected by the macro are the ProgId & the ToolboxBitmap ID of
// your control.
//
DECLARE_ACTIVEXCONTROL_REGISTRY("FetionOCProj1.FetionOCX", 1);

protected:
  STDMETHOD(_set_Font(IFontDisp** Value));
  STDMETHOD(get_Active(VARIANT_BOOL* Value));
  STDMETHOD(get_AlignDisabled(VARIANT_BOOL* Value));
  STDMETHOD(get_AutoScroll(VARIANT_BOOL* Value));
  STDMETHOD(get_AutoSize(VARIANT_BOOL* Value));
  STDMETHOD(get_AxBorderStyle(TxActiveFormBorderStyle* Value));
  STDMETHOD(get_BorderWidth(long* Value));
  STDMETHOD(get_Caption(BSTR* Value));
  STDMETHOD(get_Color(::OLE_COLOR* Value));
  STDMETHOD(get_DoubleBuffered(VARIANT_BOOL* Value));
  STDMETHOD(get_DropTarget(VARIANT_BOOL* Value));
  STDMETHOD(get_Enabled(VARIANT_BOOL* Value));
  STDMETHOD(get_Font(IFontDisp** Value));
  STDMETHOD(get_HelpFile(BSTR* Value));
  STDMETHOD(get_KeyPreview(VARIANT_BOOL* Value));
  STDMETHOD(get_PixelsPerInch(long* Value));
  STDMETHOD(get_PrintScale(TxPrintScale* Value));
  STDMETHOD(get_Scaled(VARIANT_BOOL* Value));
  STDMETHOD(get_Visible(VARIANT_BOOL* Value));

  STDMETHOD(get_VisibleDockClientCount(long* Value));
  STDMETHOD(set_AutoScroll(VARIANT_BOOL Value));
  STDMETHOD(set_AutoSize(VARIANT_BOOL Value));
  STDMETHOD(set_AxBorderStyle(TxActiveFormBorderStyle Value));
  STDMETHOD(set_BorderWidth(long Value));
  STDMETHOD(set_Caption(BSTR Value));
  STDMETHOD(set_Color(::OLE_COLOR Value));
  STDMETHOD(set_DoubleBuffered(VARIANT_BOOL Value));
  STDMETHOD(set_DropTarget(VARIANT_BOOL Value));
  STDMETHOD(set_Enabled(VARIANT_BOOL Value));
  STDMETHOD(set_Font(IFontDisp* Value));
  STDMETHOD(set_HelpFile(BSTR Value));
  STDMETHOD(set_KeyPreview(VARIANT_BOOL Value));
  STDMETHOD(set_PixelsPerInch(long Value));
  STDMETHOD(set_PrintScale(TxPrintScale Value));
  STDMETHOD(set_Scaled(VARIANT_BOOL Value));
  STDMETHOD(set_Visible(VARIANT_BOOL Value));
  STDMETHOD(get_FetionUser(BSTR* Value));
  STDMETHOD(get_Password(BSTR* Value));
  STDMETHOD(set_FetionUser(BSTR Value));
  STDMETHOD(set_Password(BSTR Value));
  VARIANT_BOOL STDMETHODCALLTYPE Login(BSTR user, BSTR pass);
};
//---------------------------------------
#endif

[解决办法]
直接用 *Value = WideString(FetionUser).Copy();
[解决办法]
TWinControlAccess<TVCL>*          m_VclCtl;
m_VclCtl 用来访问vcl标准属性
[解决办法]
我使用 vs2010 中没有楼主说的问题
添加属性：
   在Project1.ridl 的Design界面
   选择IFetionOCX树节点，右键New-Property
   添加属性FetionUser,修改Type值为BSTR
   点Project1.ridl 工具栏上的刷新，
   这样Unit1.cpp中就可以找到set_FetionUser 函数了。



STDMETHODIMP TFetionOCXImpl::get_FetionUser(BSTR* Value)
{     //mabao add
  try
  {
  //*Value = WideString(m_VclCtl->FetionUser).Copy(); //mabao
  *Value = WideString(FetionUser).Copy(); //mabao
  }
  catch(Exception &e)
  {
return Error(e.Message.c_str(), IID_IFetionOCX);
  }
  return S_OK;
};


STDMETHODIMP TFetionOCXImpl::set_FetionUser(BSTR Value)
{      //mabao add
  try
  {
   FetionUser =Value;   //mabao
   //m_VclCtl->FetionUser =Value;   //mabao
  }
  catch(Exception &e)
  {
return Error(e.Message.c_str(), IID_IFetionOCX);
  }
  return S_OK;
};

[解决办法]
原来代码编译通过，但调用出错；
还是要定义变量才行，这样调用通过。


class TFetionOCX : public TActiveForm
{
__published:// IDE-managed Components
private:// User declarations
public:// User declarations
    System::UnicodeString Password;    
 
    System::UnicodeString FetionUser;
....
STDMETHODIMP TFetionOCXImpl::get_FetionUser(BSTR* Value)
{     
  try
  {     *Value = WideString(m_VclCtl->FetionUser).Copy(); //mabao
  
  }
  catch(Exception &e)
  {
return Error(e.Message.c_str(), IID_IFetionOCX);
  }
  return S_OK;
};


STDMETHODIMP TFetionOCXImpl::set_FetionUser(BSTR Value)
{      
  try
  {
   
   m_VclCtl->FetionUser = AnsiString(Value);
   
  }
  catch(Exception &e)
  {
return Error(e.Message.c_str(), IID_IFetionOCX);
  }
  return S_OK;
};


STDMETHODIMP TFetionOCXImpl::get_Password(BSTR* Value)
{
  try
  {
  
   *Value = WideString(m_VclCtl->Password).Copy(); //mabao

  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IFetionOCX);
  }
  return S_OK;
};


STDMETHODIMP TFetionOCXImpl::set_Password(BSTR Value)
{
  try
  {

  m_VclCtl->Password = AnsiString(Value);
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IFetionOCX);
  }
  return S_OK;
};

热点排行

C++ Builder

在打造OCX时，为什么定义了属性却无法访问