找回密码
 注册
搜索
查看: 4868|回复: 0

创建适用于多种容器的控件

[复制链接]
发表于 2003-10-18 19:56:06 | 显示全部楼层 |阅读模式
作 者 : Raymond Cirincione著 阿良译 * L' v) t1 f, b& r
, o* |/ B1 f. A7 {. p) Y
 
5 F9 g! I# A' l/ y* t- b3 Y; G) {/ G" z; Z% z7 m* m
   即使是一个符合OLE标准的控件,在不同的ActiveX容器里其行为也会偶尔不同。不能成功地适应容器之间的差别将严重影响控件在某些容器内的应用,甚至导致控件完全无法在个别容器使用。
+ |! B. [  v( \
* [5 J; v. ~8 j   本文讨论使用Visual C++创建控件时如何适应容器相关的需求,特别是为大范围内使用而开发ActiveX控件时必须执行的策略。例如,如何解决诸如许可、线程、内容检验、键盘事件响应等问题。 ( s$ ]: N$ ?: M
) C% n; i$ s# c# F% P
   一、关于ActiveX控件
; l; |; a0 |. |' |' Y, B6 Z. r2 Q1 d6 D
   在具体讨论容器之间的差别前(这种差别使得为多种容器开发ActiveX控件复杂化),有必要回顾一下何谓ActiveX控件以及它的创建过程。
/ C& s8 l+ l. E) b1 S4 B& `! i- ]8 _  M& M& h2 @1 a! ?) {/ H
   ActiveX控件可以看成是实现了标准OLE接口的COM对象。所有的控件都必须最终定位于某种容器,如Visual Basic、Visual C++、IE浏览器。容器使用标准的OLE接口和控件协商。例如,容器可以创建、定制、存储控件以便以后使用。容器和ActiveX控件之间的所有交互都通过标准的OLE接口进行,由此,ActiveX控件追随了“黑盒”这一思想。控件的用户除了需要了解它的外部接口外,并不需要知道它的内部工作过程。只要开发工具(容器)以及编程语言理解并使用标准的OLE接口,就可以在多种容器中使用ActiveX控件。当然,这仅仅是理论;在实践中,没有两种容器是相同的,开发者必须把握它们之间的不同之处。
) q+ g. S6 `' ?6 r4 E/ n
6 l. [- J' s8 D/ d   创建ActiveX控件开始于选择开发工具。可供选择的工具很多,从VB到Delphi到VJ++。本文由VC++为出发点讨论控件创建。使用VC++可以获得更快的执行速度和对创建过程更多的控制,以及最大范围的平台SDK和API支持。VC++提供了MFC ActiveX控件向导来简化ActiveX控件的创建。这个向导引导您通过创建控件外壳的每一步。向导提出的第一个问题是是否需要许可。 7 Z! N( p$ _" k3 z! `7 e
8 C9 G* \9 [; f( v4 `6 }2 D
   二、许可控件
# t5 Q! p  ^# D8 o: X) i! i/ D1 I) }" q( o
   控件操作有两个不同的环境:运行时和设计时。一个需要许可证的控件包含几个接口用于设计时限制某些访问。缺乏适当许可的用户只能在运行环境下使用该控件,而不能在设计环境下使用它。如果打算在企业内部、Internet、本地Intranet上使用控件,一般会避免使用许可证。然而,如果是出售商业产品或打算限制设计时访问控件的能力,就应该利用许可所带来的优点。 : |- W3 o. I) D* R

" Y: }4 C& W: B   如果选择许可某个控件,控件向导就自动加入了必要的接口并创建可定制的许可文件(LIC)。剩下必须做的工作只是修改主文档(如myprojectCTL.CPP)中几个变量。请修改许可文件的内容使之符合许可证键: 3 Z" Z' ?& g" g  W3 E
" D  k- o% Z0 S; s
   static const TCHAR BASED_CODE
# C% J* ?5 ^# t' p5 |+ H+ [0 z4 _/ o# _( s
   _szLicFileName[] = _T("control.lic"); 9 I7 _% `; p' P

7 C" P2 _% F; l, W" _4 i   static const WCHAR BASED_CODE & G2 x. R+ S: {' L5 P: q3 y; r+ Q% J

: v* T# H. `2 {" i   _szLicString[] ="My Unique Validation String";
. U& u" x$ u# |4 v* Q, p) x: C( W7 ^5 R4 A' I: ?- {* X
   在许可文件可用之后,开发工具经常在工程内缓冲控件的许可证键。如果许可文件本身不再可用,应用程序就使用缓冲的许可证键验证控件。在桌面环境下这是可行的,但在Internet(和Intranet)环境下并没有内建的机制以通过HTML安全地缓冲这个许可信息。
) i" U9 Q8 g& R( E& L& z! E6 L& P+ u$ w8 \2 ], A0 G
   有两种方法解决这个问题。第一,可以使用Microsoft的一个叫LPK_Tool.exe的工具,它是Microsoft Internet Client SDK的一部份。LPK_Tool.exe能够将许可文件转换为可在HTML文档内引用的加密文件。IE能够在实例化一个需要许可证的控件时从LPK文件提取许可信息:   & c5 r6 q8 z: Y9 U( x

1 h% M8 [/ m& |* f. B7 O$ a$ d   第二个办法需要定制控件的许可验证例程。例如,它可以询问容器自己正处于设计模式还是运行模式。控件所继承的类(COleControl)包含成员函数AmbientUserMode,此函数在控件处于设计模式时返回TRUE。 / f1 }- d! V& H- R5 U  N

: H  S# _1 P. @1 w, r   然而,并非所有容器响应此查询(包括IE浏览器)。此时AmbientUserMode总是返回TRUE;换句话说,它总是假定控件是在设计模式下。如果容器错误地响应查询,可以写一个函数强制控件认为自己处于运行模式,这样就可以避免这个限制了: , k, q" u& Q. [+ `) j% S

+ |# O' I. Y" N7 y$ [   BOOL CCtrl::OptimisticAmbientUserMode(){   h) o4 S5 l' x/ X

( ]: @3 A: @+ d! u" H7 n% {   BOOL bUserMode;
4 ~+ N$ p& l5 Q* \* m! Z
' G9 c% w4 @5 w8 T7 H4 s   if (!GetAmbientProperty( , G% G( @& b! ]- ^
5 j' a5 k2 X, U2 c
   DISPID_AMBIENT_USERMODE, / Q) T- \3 D6 {0 z) Y' N

+ H+ N' Y/ g9 N, s1 y( b4 N# J   VT_BOOL, &bUserMode))
% r  O( _; G' D6 K) c; e. E
5 W' x) H+ U6 Q! Q* c- D3 G' B   bUserMode = TRUE; ' }; a( E3 p' j! \' z+ \& q
1 R' B2 [% f0 e& c- n
   //如果容器没有回答则假定为运行模式 ; P: l0 Z/ [* }- w) K, d7 D
) u+ D* ?3 ^- U( e6 z* U6 D' l8 P# w, B
   return bUserMode;} 9 [' E% X/ ^  x7 [
+ [$ P; C/ m( Z
   三、线程模型和资源共享
) s+ R! d( ]3 @6 B0 c" q2 L) g$ x
! u' D2 F, h, S/ l" j9 n   Microsoft的两种线程模型,单线程和单元模型,同样使得在多种容器内使用控件复杂化。单线程控件在单一线程内执行所有对象;单元线程控件可在任何时候任何线程内执行一个对象。 0 M  C1 l# }! j+ g

* F. Z+ d: H, s6 w5 h   某些情况下可能需要将特定资源全局化以便控件的所有实例访问。例如,如果控件的多个实例执行许多数据库操作,此时需要为所有实例创建单一的、共享的数据库连接,而不是为每个实例单独创建连接(其它的情况还包括只有一个可用资源的情形,例如设备上下文或端口)。 ) V$ R5 V3 F" l' Q  F  q" W

  @. E0 e5 b. G+ P4 c   在单元模型线程环境下共享资源时有一个重大问题需要解决。例如,两个线程能够同时尝试使用同一个资源。这可能导致数据错误或其它非预期的结果。那么,容器如何才能知道控件是单元模型线程安全的?在类工厂(类对象)调用UpdateRegistry期间控件写入数据到注册表。当控件为线程安全时常量 - e; H3 L2 C/ W0 j5 y, x

  _) r5 D3 ^+ d& f+ n0 Z' N! a! `# t6 |   afxRegApartmentThreading通知容器:
  M8 @8 M: x( W/ f
  B! [- F8 @# B) h   BOOL CCtrl::C3CtrlFactory::UpdateRegistry( 9 T2 {/ q# x! T& y1 j' O7 w, \
+ G6 i( g! g: I: Z+ A1 Q( t
   BOOL bRegister){
; R4 a7 L9 J9 z, m% a* \: c0 [6 L! \8 l
   if (bRegister) * F3 Z7 s: h! ?9 [
5 u7 B0 l: [! n0 [+ ?, `
   return
! Y- M2 v" d3 ?, G& j/ U' n5 }+ D; C" h5 G
   AfxOleRegisterControlClass( ) g6 f3 P% s& D) r

$ @) R2 g& X1 u5 M( ^   AfxGetInstanceHandle(), & Y8 ^. p% B, k1 l7 d& S  A! s
0 P- _# j9 N) v5 p
   m_clsid, m_lpszProgID,
+ G+ ~; l; z2 J) m( s+ }9 I. I; l4 J0 \) t  j2 Q
   IDS_MYCTL, IDB_MYCTL, # b4 e/ s# r- k/ G
% y% f+ L  |7 v0 i) {1 o+ p1 n
   afxRegApartmentThreading, ; u1 G" m, W, |% L

8 }0 N9 Q0 P& _+ f5 _* Z. P   _dwMyCtlOleMisc, _tlid,
0 W( T- d& F' l3 ?1 }$ u* R8 N
   _wVerMajor, _wVerMinor);
: ~- N* ^4 l/ N
  J2 i* Q* @) |5 }   else
) ~- Z8 ]5 O& A4 U- k6 L8 ?. j- J0 [5 e
   return
! `5 P3 J$ \) h. ^. E. ^3 H. [* @- o1 A! d& ~0 Z% s1 M/ M
   AfxOleUnregisterClass(m_clsid,
: V- `7 B- m5 i9 \8 V( D0 c+ B
& G: d$ F6 K. `% e   m_lpszProgID);} 3 [8 O+ D4 r% `9 P  `* N5 S
! u$ h2 C$ X( h+ k+ D/ I5 B
   看起来似乎能够通过将该值改为0(标记控件非单元模型安全)解决问题。但如果希望在尽可能多的容器内支持该控件,就必须使控件支持单元模型线程。这是因为,一些开发环境容器如VJ++,需要控件支持单元模型线程。另外,单元模型线程能够让IE在创建新窗口时更高效地使用ActiveX控件。
, h! t4 G8 ^- M; |" O7 ]% Z
+ M) ]- ~5 M/ K0 k   使用信号量避免两个线程同时访问临界区,可以解决在实例(和线程)之间共享数据(或唯一资源)所引起的问题。类似地,通过创建资源池可以避开受限资源问题。例如,可以让控件从数据库连接池选择一个连接,从而在访问数据库时可以获得可用连接且不影响其它线程。 9 T% ^2 i) n. C& [# l( \

( B3 H8 @- U7 z9 m2 m( o: k: Q  e   四、支持内容检验 - w% W' O, z4 I0 M! l9 B

7 I1 d/ d) D/ k  A/ ?* X   许多可定制的控件允许用户检验其内容。这种检验一般在用户结束编辑一个控件并移动焦点时执行。在失去输入焦点时Windows发送WM_KILLFOCUS消息给控件。一般地,控件应该提供一个机会给所有使用它的程序员响应这个重要事件。一些开发工具,如VB,能够在控件获得和失去焦点时自动提供事件;但也有的容器不能。因而,更为稳妥的办法是加入自己定制的事件,以确保总是给程序员机会回应此事件。 0 r' d' ~9 ^5 M5 N$ v

$ n7 Q, G1 l0 X% B6 a' W, Z* r   在VC++中,可以使用ClassWizard为控件加入失去焦点时执行检验的定制事件。按Ctrl+W启动ClassWizard,然后单击ActiveX Events属性页以及Add Event按钮。接下来,输入“ctlLostFocus”作为External name,Internal Name自动设为FireCtlLostFocus。由于该事件不需要参数,因而忽略参数表并单击OK按钮。现在显示Message Maps属性页,从可用消息列表中选择WM_KILLFOCUS,单击Add Function按钮,此时ClassWizard为控件加入了消息处理函数。单击Edit Code按钮直接进入编辑: * F% x) [" N/ N+ G# K- m
- d7 e( e1 ?) K- P, X1 ]% h, R
   void CCtrl::OnKillFocus(CWnd* . K  |3 \$ s0 i
0 F  A6 u& X, n: M" ^  Y) \. A/ Q
   pNewWnd) {
, z! U9 _0 K+ ~8 [$ f5 c% R7 Z
. J" t; {( |4 {7 Y8 a! u   COleControl::OnKillFocus( _ 8 }6 L* m0 _4 w  x+ H2 w
4 p6 ?# @" P5 N3 j5 p
   pNewWnd); 3 x- ~( r- ~% {) Z1 G% n% x
; h: e$ n3 _4 c5 S8 G
   FireCtlLostFocus();} " O0 M, c& g1 f' @: b5 m

" W3 H1 W+ S2 P+ A   不管是什么容器,可以通过上述步骤为控件加入检验功能。
/ Z0 |  [$ s. \1 ]+ p1 ~5 i$ }# y: n! J# N: [
   使用同样的步骤可以加入WM_SETFOCUS消息的处理过程和FireCtlGotFocus事件。
9 \9 A/ g' F9 d2 G! u' Z# j: s- ?9 T( h' s# n( d, i
   五、响应键盘和鼠标事件
: m. j; P; f+ S4 p. e/ I* T! K# X6 f. e" w1 R4 {5 @* W: t1 B
   许多控件需要让用户利用箭头键改变显示,比如在文本之间移动作为插入点的闪烁线条,或是在容器内移动以获得更好的定位精度。然而,有时容器也利用相同的按键,如IE使用向下的箭头键滚动HTML文档,此时控件在获得焦点时并不能够响应箭头键。   T6 f1 G# a$ A7 |0 C8 w: Z
# h% C# r6 `) Y
   通过覆盖CWnd类的PreTranslateMessage函数可以重新收回由容器对象控制的箭头键(以及其它键)的控制权。只要监视WM_KEYDOWN消息并过滤出需要的事件,然后在需要响应某个按键的时候,调用OnKeyDown并返回True。 + n3 e* M( K$ k% O

8 K  j% ]* C& F   如果是在MDI窗口内使用ActiveX控件,而另一个窗口部分地隐藏该MDI窗口,可能会遇到另外一个问题:单击ActiveX控件并不能使MDI窗口移到最前面(即激活)。这是由于MDI窗口不能得知用户在ActiveX控件上的鼠标单击事件,因而无法作出响应并把自己设为活动窗口。 ( F5 c4 C! o9 s) I

- n! @( m- w( _; V. A  N   要是能够让父窗口(在这里是指MDI窗口)获知ActiveX控件上的单击事件,就可以解决这个问题。一个简单的办法是由控件发送WM_ PARENTNOTIFY消息给父窗口以通知该鼠标单击事件。WM_ PARENTNOTIFY消息在控件被创建、破坏或用户在控件上按鼠标键的时候发送。通过设置合适的扩展风格位,可以确保用户按鼠标键时控件发送该消息。首先覆盖控件的PreCreateWindow虚函数。传递给这个函数的参数CREATESTRUCT包含dwExStyle成员,使用该成员可以检查或修改用于创建控件的扩展风格位: 1 ?8 Z0 B/ Q  t8 t# O

( |1 W& {% H+ a) d1 j   BOOL CCtrl:reCreateWindow(CREATESTRUCT& cs){
  k+ P1 G& j4 g( P7 D! ]( s8 R: T& G( ~
   cs.dwExStyle &=
' x- q8 W( |! b2 D, L% t" r% E
   ~WS_EX_NOPARENTNOTIFY; 2 a( f! X, n1 O- A7 o' L* R5 F

) w) x: ]+ z$ W0 W   return
1 B* Y5 {" t( R9 K4 X% M: b, Y" }% T
   COleControl:reCreateWindow(cs);}
& U( ]% I' ^% |' j; B6 m3 l# N- p: ^: m' \
   这个修改导致用户在控件上按鼠标键时控件的缺省鼠标处理过程发送WM_PARENTNOTIFY消息,父窗口可以利用这个机会激活自己。 . f! k$ r- }  U4 j4 M2 h# J" H  b

$ D0 l% Q) I) C* @0 H! d/ o( M   六、使用常量 + w- b1 e4 a, A

" H! f1 O& k2 ^9 R# ~. V. m   另一个有关容器的问题涉及到常量处理。OLE控件经常有以枚举量为值的属性。例如一个叫ScrollBars的属性使用下列枚举量,必须在部件类库定义: , N% H) d3 {% h& q) L: R( h; G* x
: Y- m! ]3 r) T) n5 [" c9 F
   typedef enum { . M* H, j* {" z! {! n. o

# A# \/ Y) t; |3 ?( ~   sbNone = 0, , n# Q) l( H8 D

0 H# u0 M9 ~! J8 I   sbAutomatic = 1, " W$ K  ]  y% S, n

# B+ T2 {% R$ c5 S   sbAlwaysOn =2,} ctlScrollBarConstants;
/ n7 W% d9 w) Z* a  M
8 g/ W  q6 x+ O9 e   然而,并非所有的容器能够读取这些枚举定义以用于开发环境(如VBScript)。作为一个控件开发者,可以提供一个附加的文件用于定义这些常量在不同开发环境下的值,或者提供另外的方法来获得这些枚举量。对于后者,具体实现时可在控件中加入对应于枚举量的方法。 + n# U  O: G9 s& F5 f4 A9 b& a
. N/ w6 `& v3 t1 \
   例如,可以加入三个方法:sbNone、sbAutomatic、sbAlwaysOn,它们的返回值分别对应于枚举量: . h0 A& M5 A# p$ o  `3 |

+ u# b) ]2 @1 t% j) |; q5 X: ^   short CCtrl::sbNone (){
3 x. b- K7 O1 m7 S( M+ e' L! R6 o8 y
* K0 R: p" b+ a  I# q+ C4 w   return 0;} ( F! S0 h& t8 b* k: s9 L; N  b

! R$ D8 n/ W# \4 V( y6 z' o% |   short CCtrl::sbAutomatic (){ 3 @- q" l9 A1 g2 B8 _. i
$ _0 ?' D" x9 `  l
   return 1;}
1 _# h1 e4 y/ c
, V: Q% V  x. p2 v   short CCtrl::sbAlwaysOn (){ + a8 I& S4 X* m0 d. L' H

7 i0 I6 f8 }( C) D   return 2;}
$ ~+ |5 }5 C/ b. f' r! N/ k5 P5 P: i" Y2 s8 o9 M; w
   在此基础上就可以使用这些方法在任何开发环境(容器)设置ScrollBars的属性了: & d2 J# Y! I& g5 y
4 a/ C5 e3 o8 _2 T' Z. E
   ctl.ScrollBars = ctl.sbAutomatic
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|宁德市腾云网络科技有限公司 ( 闽ICP备2022007940号-5|闽公网安备 35092202000206号 )

GMT+8, 2026-8-13 22:53 , Processed in 0.017948 second(s), 15 queries .

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表