分享
 
 
 

深入分析基于VCL派生的ActiveX控件的实现原理及应用

王朝vc·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

深入分析基于VCL派生的ActiveX控件的实现原理及应用

Aweay

你可转载,拷贝,但必须加入作者署名Aweay,如果用于商业目的,必须经过作者同意。

前言

这篇文章虽然是以VCL为题,但却是基于BCB的,也就是说是在VCL基础上使用ATL实现的ActiveX的原理分析,如果你是Delphi程序员,这篇文章可能不适合你,不过作者如果有时间会再写一篇“Delphi版的深入分析”,本篇文章比较深入的分析了VCL实现ActiveX控件的原理、事件机制、属性页和ActiveX控件编写的相关知识。希望大家已经掌握了VCL编写元件(Component)的知识,COM原理及ATL/模板的相关知识,因为作者不会对文章中探讨的相关知识做详细介绍,所以你可能因为缺乏相应知识而遇到一些困难,不过作者会尽量用简单的语言来阐述一切。另,作者本来水平有限,在写这篇文章的时候仅是参考了帮助文档、分析了VCL源代码再加上一些猜测,如果有任何理解错误敬请大家指教,好我们开始吧!

从向导开始

为了有分析的对象,我们就从最基本的开始,由向导从TButton派生一个TButtonX的ActiveX控件(以下出现TButtonX都是指ActiveX控件),注意在向导中选中“产生关于对话框”的选项,这样生成的TButtonX会有一个关于对话框。现在我们得到了ButtonImpl,ButtonXContrl_TLB这两个主要的单元,所有的奥秘也在这里,我们进入看看。

在ButtonImpl.h文件中,有这样的申明:

class ATL_NO_VTABLE TButtonXImpl:

VCLCONTROL_IMPL(TButtonXImpl, ButtonX, TButton, IButtonX, DIID_IButtonXEvents)

{

}

这个TButtonXImpl实现了TButtonX,一般情况下针对ActiveX的工作都可以在这个单元内完成,不过这个类看起来还是很奇怪:首先ATL_NO_VTABLE是个什么东西?这是一个宏,经过豫编译处理后,这个宏最终替换为__declspec(novtable),而这又是一个编译器指示字,用于指示编译器不要产生vtable(准确的说,是不初始化vtable指针,这样连接器可以排除那些需要vtable才能调用的函数,比如虚函数),这又为什么?

我们知道COM是语言无关的,但是vtable的机制不是所有的语言都有,比如VB等,而我们编写ActiveX控件肯定是要拿到这些开发工具上使用的,所以为了使得C++开发的COM元件可以在VB下使用,我们不能使用vtable机制,而且ActiveX还要是自动化对象,这在后面再讨论。

还有一个宏VCLCONTROL_IMPL,这个宏是关键,它隐藏了VCL实现ActiveX控件的全部奥秘,看来必须分析它才能拨开全部迷雾:

VCLCONTROL_IMPL 宏,封装了ActiveX控件继承的基类,展开后:

#define VCLCONTROL_IMPL(cppClass, CoClass, VclClass, intf, EventID) public TVclControlImpl<cppClass, VclClass, &CLSID_##CoClass, &IID_##intf, &EventID, LIBID_OF_##CoClass>,public IDispatchImpl<intf, &IID_##intf, LIBID_OF_##CoClass>, public TEvents_##CoClass<cppClass>

cppClass是C++实现的类的名字,

CoClass是ActiveX的类名,

VclClass是ActiveX控件继承的VCL基类的名字,

intf是ActiveX控件实现的IDispatch接口,

EventID是ActiveX控件事件接口的标示符。

TVclControlImpl它封装了VclClass指定的VCL类,通过它的窗口管理和消息处理机制,使得它可以工作在ActiveX的宿主环境下。TVclControlImpl实现了标准的ActiveX控件需要的接口,因为它间接继承自CComObjectRootEx和CComCoClass,使得它可以工作在C++ Builder的基与ATL的COM应用程序中。

IDispatchImpl,它实现了IDispatch接口,所以从这个类派生的子类的属性和方法可以被自动化(Automation)操作。上面说了ActiveX必须是自动化对象,而自动化对象必须继承自IDispatch接口,这里正好说明这一点。

TEvents_##CoClass(或者TEvents_CoClassName),提供了VCL控件的事件触发机制,IDE会根据创建的VCL控件自动产生这个类,通过这个类,ActiveX控件可以在事件触发的时候调用相应的方法来处理这些事件。

注意上面的##的编译器指示字,它是用来连接2个宏参数的,比如TEvents_##CoClass会被替换为TEvents_ButtonX,这也是一个类,不过是用IDE自动产生的,用于支持事件机制。

而上面展开代码的关键在于TVclControlImpl这个类,我们再看看它:

template <class T, // User class implementing Control

class TVCL, // Underlying VCL type used in One-Step Conversion

const CLSID* pclsid, // Class ID of Control

const IID* piid, // Primary interface of Control

const IID* peventsid, // Event (outgoing) interface of Control

const GUID* plibid> // GUID of TypeLibrary

class ATL_NO_VTABLE TVclControlImpl:

public CComObjectRootEx<CComObjectThreadModel>,

public CComCoClass<T, pclsid>,

public TVclComControl<T, TVCL>,

public IProvideClassInfo2Impl<pclsid, peventsid, plibid>,

public IPersistStorageImpl<T>,

public IPersistStreamInitImpl<T>,

public IQuickActivateImpl<T>,

public IOleControlImpl<T>,

public IOleObjectImpl<T>,

public IOleInPlaceActiveObjectImpl<T>,

public IViewObjectExImpl<T>,

public IOleInPlaceObjectWindowlessImpl<T>,

public IDataObjectImpl<T>,

public ISpecifyPropertyPagesImpl<T>,

public IConnectionPointContainerImpl<T>,

public IPropertyNotifySinkCP<T, CComDynamicUnkArray>,

public ISupportErrorInfo,

public ISimpleFrameSiteImpl<T>

{

}

可以看到,这个类实现了所有ActiveX控件必要实现的接口,除此之外,这个类也是VCL和ATL转换的关键,他有很多关键的方法,比如:

HRESULT OnDraw(ATL_DRAWINFO& di)

{

try

{

if (m_VclCtl)

m_VclCtl->PaintTo(di.hdcDraw, di.prcBounds->left, di.prcBounds->top);

}

catch (Exception& e)

{

return (static_cast<T*>(this))->Error(e.Message.c_str());

}

return S_OK;

}

这个方法可以把VCL元件的界面画在ActiveX宿主窗体上。

经过层层拨丝,我们现在终于搞明白了TButtonXImpl的实现框架,但ActiveX运作的原理和如何同VCL交互的还是不清楚,好,我们现在再来看看,TButtonXImpl的实现代码:

void __fastcall ClickEvent(TObject *Sender);

void __fastcall KeyPressEvent(TObject *Sender, char &Key);

public:

TVclControlImpl

void InitializeControl()

{

m_VclCtl->OnClick = ClickEvent;

m_VclCtl->OnKeyPress = KeyPressEvent;

}

BEGIN_COM_MAP(TButtonXImpl)

VCL_CONTROL_COM_INTERFACE_ENTRIES(IButtonX)

END_COM_MAP()

DECLARE_VCL_CONTROL_PERSISTENCE(TButtonXImpl, TButton);

DECLARE_ACTIVEXCONTROL_REGISTRY("ButtonXControl.ButtonX", 1);

protected:

STDMETHOD(_set_Font(IFontDisp** Value));

STDMETHOD(AboutBox());

STDMETHOD(DrawTextBiDiModeFlagsReadingOnly(long* Value));

...

又是很多的宏,不过作者不打算介绍了,他们在BCB生成的代码注释(这里被删除)里解释的很清楚了,大家可以自己看,我就提示一点,很多朋友问:如何改变ActiveX控件的图标?更改这个

DECLARE_ACTIVEXCONTROL_REGISTRY(“ButtonXControl.ButtonX”, 1);

宏的参数就可以了,比如你已经将图标资源(Bitmap),加入工程,并且这个资源ID为2,则你可以这样更改:

DECLARE_ACTIVEXCONTROL_REGISTRY(“ButtonXControl.ButtonX”, 2);

再看,在protected下有很多属性、方法的申明,在cpp文件中,这些申明也得到了实现,但问题在于为什么是保护类型的?这样ActiveX控件岂不是访问不到这些属性、方法?申明了又有什么用?

是否还记得TButtonXImpl继承了IButtonX接口呢?我们现在要到那里去看看,为此我们要分析一下ButtonXContrl_TLB单元,这个单元文件是由IDE维护的,一般情况是不需要理会这个文件的内容,Borland也不建议你更改这个文件,不过今天我们必须要跨入禁区了,于是就有了IButtonX的实现代码:

interface IButtonX : public IDispatch

{

public:

virtual HRESULT STDMETHODCALLTYPE get_Cancel(VARIANT_BOOL* Value/*[out,retval]*/) = 0; // [1]

virtual HRESULT STDMETHODCALLTYPE set_Cancel(VARIANT_BOOL Value/*[in]*/) = 0; // [1]

virtual HRESULT STDMETHODCALLTYPE get_Caption(BSTR* Value/*[out,retval]*/) = 0; // [-518]

...

#if !defined(__TLB_NO_INTERFACE_WRAPPERS)

VARIANT_BOOL __fastcall get_Cancel(void)

{

VARIANT_BOOL Value;

OLECHECK(this->get_Cancel((VARIANT_BOOL*)&Value));

return Value;

}

...

__property VARIANT_BOOL Cancel = {read = get_Cancel, write = set_Cancel};

__property BSTR Caption = {read = get_Caption};

__property VARIANT_BOOL Default = {read = get_Default, write = set_Default};

__property short DragCursor = {read = get_DragCursor, write = set_DragCursor};

...

}

可以看到IButtonX同样继承自IDispatch接口,所以这也是一个自动化的接口,而且终于有了public,所以那些接口方法和属性被公开了,我们不难得出这样一张类的布局图:

另外请大家注意:

VARIANT_BOOL __fastcall get_Default(void)

{

VARIANT_BOOL Value;

OLECHECK(this->get_Default((VARIANT_BOOL*)&Value));

return Value;

}

上面的实现代码,OLECHECK用于检查函数的执行结果,如果有错误,那么还有一个机会去处理错误。

方法和属性都有了,对于一个ActiveX控件还差事件,没有事件支持的ActiveX控件就像一个没有发条的钟是不会动的,下面,我们再来看一下VCL是如何实现ActiveX控件的事件机制的。

事件机制

还是上面的代码:

void __fastcall ClickEvent(TObject *Sender);

void __fastcall KeyPressEvent(TObject *Sender, char &Key);

public:

TVclControlImpl

void InitializeControl()

{

m_VclCtl->OnClick = ClickEvent;

m_VclCtl->OnKeyPress = KeyPressEvent;

}

...

看起来像是事件的处理代码,啊?好像?有没有搞错?没有搞错,确实是好像,而且是表面的

m_VclCtl->OnClick = ClickEvent;

m_VclCtl->OnKeyPress = KeyPressEvent;

是标准的VCL消息处理函数机制,m_VclCtl通过模板参数最终对应于相应的VCL原类,这样m_VclCtl的OnClick事件的处理就会转交给ClickEvent函数,而OnKeyPress事件的处理也就交给了KeyPressEvent函数处理,有VCL经验的人,都能猜到ClickEvent和KeyPressEvent函数是如何实现的,例如:

void __fastcall TButtonXImpl::KeyPressEvent(TObject *Sender, char &Key)

{

short TempKey;

TempKey = (short)Key;

Fire_OnKeyPress(&TempKey);

Key = (short)TempKey;

}

又跳转了,忽略Sender参数,然后把Key又传递给了Fire_OnKeyPress函数处理,为了保证VCL KeyPress事件的结构,Key参数先被保存到TempKey,然后传递,最后返回Key参数,注意:TempKey参数可能在ActiveX事件处理中被修改,这也符合Visual Basic的KeyPress事件结构。

不过问题在于Fire_OnKeyPress函数是从哪里来的?要搞清楚这个问题,我们还要看看前面那个复杂的宏定义:

#define VCLCONTROL_IMPL(cppClass, CoClass, VclClass, intf, EventID) public TVclControlImpl<cppClass, VclClass, &CLSID_##CoClass, &IID_##intf, &EventID, LIBID_OF_##CoClass>,public IDispatchImpl<intf, &IID_##intf, LIBID_OF_##CoClass>, public TEvents_##CoClass<cppClass>

其中,TEvents_##CoClass(或者TEvents_CoClassName),提供了VCL控件的事件触发机制,IDE会根据创建的VCL控件自动产生这个类,通过这个类,ActiveX控件可以在事件触发的时候调用相应的方法来处理这些事件。

注意上面的##的编译器指示字,它是用来连接2个宏参数的,比如TEvents_##CoClass会被替换为TEvents_ButtonX,这也是一个类,不过是用IDE自动产生的,用于支持事件机制。

所以所有的事件奥秘都应该隐藏在这个TEvents_ButtonX类里,如果你够大胆的话,你可以猜测那个Fire_OnKeyPress函数就在这个类里?再次跨越禁区,我们得到代码:

template <class T>

class TEvents_ButtonX : public IConnectionPointImpl<T,

&DIID_IButtonXEvents,

CComUnkArray<CONNECTIONPOINT_ARRAY_SIZE> >

{

public:

void Fire_OnClick(void);

void Fire_OnKeyPress(short* Key);

void Fire_OnMouseMove(int Button, int X, int Y);

protected:

IButtonXEventsDisp m_EventIntfObj;

};

看到了确实如此,我们再来看看Fire_OnKeyPress是如何实现的?

template <class T> void

TEvents_ButtonX<T>::Fire_OnKeyPress(short* Key)

{

T * pT = (T*)this;

pT->Lock();

IUnknown ** pp = m_vec.begin();

while (pp < m_vec.end())

{

if (*pp != NULL)

{

m_EventIntfObj.Attach(*pp);

m_EventIntfObj.OnKeyPress(Key);

m_EventIntfObj.Attach(0);

}

pp++;

}

pT->Unlock();

}

剔除不必要的多线程访问互斥代码、对控件数组事件的支持代码,关键在于:

m_EventIntfObj.OnKeyPress(Key);

看来我们又要跳转了,最后来到:

template <class T> void __fastcall

IButtonXEventsDispT<T>::OnKeyPress(short* Key/*[in,out]*/)

{

_TDispID _dispid(/* OnKeyPress */ DISPID(8));

TAutoArgs<1> _args;

_args[1] = Key /*[VT_I2:1]*/;

OleProcedure(_dispid, _args);

}

至此,如果有ATL/COM知识的人,都可以看出来这是一套标准的OLE方法调用机制,如果你还想跟踪下去,你会发现它就是调用IDispatch接口的Invoke方法来负责方法、属性的调用的,不过这里还可以注意一下:

_TDispID _dispid(/* OnKeyPress */ DISPID(8));

这里DISPID(8)是接口方法的标识符,这个值来自于你设计IButtonXEvents接口时定义的ID号,所以Invoke方法会唯一的定位到这个方法来完成事件机制的最后一步:调用客户代码-也就是你在VB中提供的事件的代码。

于是我们又得到了这样一幅消息、事件流向图:

VCL就是这样一步一步实现ActiveX控件的事件机制的,可以看出来,他的实现还是挺麻烦的,不过考虑到COM原理本来的复杂性,这样的实现复杂度还是可以接受的。

简单的测试

由控件向导生成的TButtonX代码,不需要任何改动,直接编译就会产生一个TButtonX ActiveX控件,我们现在测试一下,点Register Active Server菜单,注册这个控件,然后在开启Visual Basic开发环境,加入刚才注册的控件,发现它确实是按照我们的设计工作的,注意:如果你在开始创建这个控件的时候,选择了生成About对话框的选项,那么还有一个About属性用于显示关于对话框。

那么这个关于对话框又是怎么回事?代码为我们展示这点:

void ShowButtonXAbout(void)

{

TButtonXAbout* Form;

Form = new TButtonXAbout(NULL);

try

{

Form->ShowModal();

}

catch(...)

{

Form->Free();

return;

}

Form->Free();

}

在TButtonImpl的AboutBox函数中调用了上面的函数来显示对话框,不过有一点作者也不太清楚,就是:

Form->Free();

本来按照Borland的说法,在BCB中不推荐使用Free来释放内存,而应该使用delete这个关键字,但这里为什么这样使用?不过作者做了测试,使用delete也是可以的,没有发现什么问题,所以作者猜测,这里可能是Borland没有更新那个代码向导以适应BCB的开发(可能本来是为Delphi设计的,而Borland只是简单的做了一下Delphi到BCB的转换)。

最后需要说明的是AboutBox函数的DISPID必须是-552,这样ActiveX会把这个函数作为About来对待,其实DISPID的设置还是有强制性,很多标准属性必须是特定的DISPID,这些DISPID都是负值,有兴趣的朋友可以看看MSDN或者COM原理的书籍。

重用 继承?

上面的TButtonX控件简单的通过继承VCL的TButton的实现了一个按钮的AcitiveX控件,如果是其他的VCL能不能同样这样简单的继承就可以方便的生成ActiveX控件呢?在问答前,我们先做一个试验,把刚才这个TButtonX放在Visual Basic开发环境中,然后使用Spy++这样工具(这里作者使用作者自己开发的MySpy,可以到http://siney.yeah.net下载)看看他的类名:

发现它的类名并不是ActiveX的控件的TButtonX,而是原来VCL的TButton,这能说明什么?这从一个侧面说明了,在BCB下我们开发ActiveX控件其实就是设计相应的VCL控件,而在最后把他再封装成为ActiveX控件,那么到底什么样的VCL控件都可以封装成为ActiveX控件呢?通常来说只要从TWinControl继承的VCL元件都可以封装成为ActiveX。而这样VCL元件具有如下特征:

? 可以获得焦点

? 可以包含其他控件(仅是具有这样能力,不代表一定具备)

? 拥有窗口句柄

还记得这段代码吗:

HRESULT OnDraw(ATL_DRAWINFO& di)

{

try

{

if (m_VclCtl)

m_VclCtl->PaintTo(di.hdcDraw, di.prcBounds->left, di.prcBounds->top);

}

catch (Exception& e)

{

return (static_cast<T*>(this))->Error(e.Message.c_str());

}

return S_OK;

}

前面说这是BCB实现ActiveX机制的关键类TVclControlImpl所具有的代码,用于把控件画在ActiveX宿主窗体上,而这个方法就是来源于TWinControl,所以ActiveX控件的必须继承自这个类(当然如果是自己实现了,就另当别论),这样,很容易想到的是像TLabel这样的VCL控件是无法实现为ActiveX控件的。

那么是不是从TWinControl继承的VCL元件都可以被封装为ActiveX呢?这也不一定,如果你已经把相应的的unit添加进入工程或者已经把它安装了,则这个VCL元件可能不会出现在那个DropDown 列表里,还有就是这个类没有用RegisterNonActiveX函数注册,这个函数专门用来设置那些类不能被封装为ActiveX,这个函数很复杂:

extern PACKAGE void __fastcall RegisterNonActiveX(System::TMetaClass*,

const * ComponentClasses,

const int ComponentClasses_Size,

TActiveXRegType AxRegType);

具体的使用方法可以参考帮助。在CSDN上和Borland新闻组作者也看到过网友询问“为什么我的控件不能出现在AcitveX的生成向导里”,希望下次看过这篇文章的朋友下次可以解决这个问题。

再完善一些

再回到刚才Visual Basic的开发环境,我们来看看到底那些属性和方法被表露了:

而同样的TButton在BCB中却具有非常多的属性,为什么呢?开始作者认为所有的VCL元件都是表露这些基本的属性和方法,但后来作者又做了一个试验,就是简单的封装了TEdit后发现他表露其他的更多属性和方法,参考了一下帮助文档,发现原来有如下规则:

数据感知属性不表露。

任何与自动化不兼容的类型定义不表露。

可以表露在VCL中未发布的属性,但这样做不保证持久性(persist)。

如果VCL的属性或方法不符合上述规则,我们就需要自己实现相应ActiveX代码来表露他们;相反如果符合上述规定,而你又不想表露给最终用户,你可以在Type Library Editor中删除它们,刷新代码后再删除单元文件中相应的生成代码。

这里需要强调的是:在BCB中设计ActiveX控件在很大程度上是先设计对应的VCL后再封装为ActiveX,而不是像VC那样直接开发ActiveX(其实BCB也可以像VC那样开发ActiveX,毕竟都是使用ATL嘛),这样设计不管是从难易程度还是调试都是非常轻松的。

知道了原理,我们现在要做的是在这个半成品的TButtonX中加入新的事件和属性页,使它看起来更像一个专业的ActiveX控件,对于属性和方法,因为编写这些代码非常简单,为了节省篇幅,这里就不实际添加属性和方法了。

从TButton封装得到的AcitiveX缺少了一个重要的事件,OnMouseMove,下面我们就写代码来表露这个事件,根据我们上面讲述的原理,完成这部分很容易,首先就是在Type Library Editor里的事件支持接口添加相应方法,如图:

刷新后IDE自动产生相应代码,在Impl单元文件中,加入VCL的OnMouseMove消息处理的转移代码,如下黑体部分:

class ATL_NO_VTABLE TButtonXImpl:

VCLCONTROL_IMPL(TButtonXImpl, ButtonX, TButton, IButtonX, DIID_IButtonXEvents)

{

void __fastcall ClickEvent(TObject *Sender);

void __fastcall KeyPressEvent(TObject *Sender, char &Key);

void __fastcall MouseMoveEvent(TObject *Sender, TShiftState Shift, int X,

int Y);

public:

void InitializeControl()

{

m_VclCtl->OnClick = ClickEvent;

m_VclCtl->OnKeyPress = KeyPressEvent;

m_VclCtl->OnMouseMove = MouseMoveEvent;

}

这里的m_VclCtl其实就是TButton,他是通过模板参数替换的,所以通过上面的代码TButton的OnMouseMove消息的处理过程转向了MouseMoveEvent,现在我们最后的工作就是编写MouseMoveEvent这个函数处理OnMouseMove消息:

void __fastcall TButtonXImpl::MouseMoveEvent(TObject *Sender,

TShiftState Shift, int X, int Y)

{

int ss=0;

if(Shift.Contains(ssLeft))

ss=1;

else if(Shift.Contains(ssRight))

ss=2;

Fire_OnMouseMove(ss,X,Y);

}

忽略Sender参数后,再次转发消息流,Fire_OnMouseMove这个函数是由IDE自动产生的,我们直接调用就可以了,它的代码如下:

template <class T> void

TEvents_ButtonX<T>::Fire_OnMouseMove(int Button, int X, int Y)

{

T * pT = (T*)this;

pT->Lock();

IUnknown ** pp = m_vec.begin();

while (pp < m_vec.end())

{

if (*pp != NULL)

{

m_EventIntfObj.Attach(*pp);

m_EventIntfObj.OnMouseMove(Button, X, Y);

m_EventIntfObj.Attach(0);

}

pp++;

}

pT->Unlock();

}

可以看到这部分代码与缺省的Fire_OnClick是一致的,这样添加OnMouseMove事件支持的代码就完成了。

接下来是添加一个属性页,由于VCL的封装,使得开发设计属性页变得非常简单,首先生成一个新的Property Page,这样BCB会为我们产生一个Form,这个Form与普通的Win32开发中Form的最大区别在于它继承自TPropertyPage,所以它有一些独有的方法是我们在设计需要注意的,为了简单起见,属性页里只简单地更改、反馈Caption属性,在实际开发中复杂的属性页是类似的。

属性页与ActiveX交互就是通过2个函数来进行的,而这两个函数都是来自于TPropertyPage类,在缺省生成的Property Page Form里已经加入了这个两个函数的缺省代码,我们要做就是完成这2个函数:

UpdatePropertyPage(void),在打开属性页时,系统会调用这个函数,你可以在这个函数里添加代码用以反映ActiveX的属性在属性页里的显示。

UpdateObject(void),在应用属性时,系统会调用这个函数,你可以把属性页中改变的数据应用到实际的ActiveX控件中。

按照BCB的帮助这两个函数实现起来非常简单,比如UpdateObject(void),就只需要如下代码:

void __fastcall TPropertyPage1::UpdateObject(void)

{

OleObject.OlePropertySet<WideString>("EditMask", WideString(InputMast->Text).Copy());

}

就可以把ActiveX控件的属性更改为属性页中设置的数据,但在作者的计算机上(BCB6+sp4),上面的代码怎么都无法通过编译,无奈之下,作者只好使用原始的方法,代码如下:

void __fastcall TpageNormal::UpdatePropertyPage(void)

{

// Update your controls from OleObjects

IDispatch* ctrl=OleObject;

CComPtr<IButtonX> btnctrl;

ctrl->QueryInterface<IButtonX>(&btnctrl);

edtcaption->Text=String(btnctrl->get_Caption());

}

//---------------------------------------------------------------------------

void __fastcall TpageNormal::UpdateObject(void)

{

// Update OleObjects from your controls

IDispatch* ctrl=OleObject;

CComPtr<IButtonX> btnctrl;

ctrl->QueryInterface<IButtonX>(&btnctrl);

btnctrl->set_Caption(WideString(edtcaption->Text));

}

对于没有ATL、COM知识的读者上面的代码可能比较难懂,建议找些相关书籍熟悉一下。

通过上面的代码,ActiveX控件和属性页之间就可以完美的交互了,最后在ButtonImpl.h文件中加入如下宏映:

BEGIN_PROPERTY_MAP(TButtonXImpl)

PROP_PAGE(CLSID_pageNormal)

END_PROPERTY_MAP()

关于这些宏的说明和原理因篇幅关系这里就不讨论了,BCB的帮助和源码注释里都写的很清楚,感兴趣的朋友可以自己研究一下。至于上面的CLSID_pageNormal是生成属性页时,IDE自动为改属性页生成的ClassID。

这样一个比较完善的ActiveX控件就写完了,是不是非常简单,详细代码可以到作者网站下载。

写在最后

由于篇幅关系,本来很多内容可以展开详细讨论,但作者都省略了,本文就当抛砖引玉,感兴趣的读者可以再深入研究。作者想再次强调的是,不管开发ActiveX控件还是Active Form,最好的方法都是封装(或者转换)为ActiveX,而不是一切从头来,比如你有一个工程,想以ActiveForm的形式用在Web上,那么最好的方法是拿出单独的Form然后转换为ActiveForm,这不需要多复杂的代码,这也是Borland新闻组上专家给的建议。

由于编写ActiveX控件的调试复杂性,所以保证代码质量非常重要,除此之外就是善于利用一些工具来帮助调试,比如Visual Basic、ActiveX Control Test Container等工具,如果有机会作者会写一些实际开发中可能遇到的调试问题和经验。

参考文献:

Borland C++ Builder5 Help Document

Borland VCL Source and Comment

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有