用C＋＋Builder开发动画DLL

韩冰

<>我 们 在Windows98 环 境 下 执 行 拷 贝 文 件、 查 找 文 件 等 计 算 机 耗 时 较 长 的 操 作 时，Windows 会 显 示 一 个 小 小 的 动 画， 指 示 正 在 进 行 的 操 作， 与 死 板 的 静 止 图 像 相 比 增 色 不 少。 那 么 我 们 自 己 开 发 软 件 时， 能 否 也 显 示 一 个 这 样 的 动 画 提 示 呢 ？ 笔 者 开 发 了 一 个 能 够 在PB 下 调 用 的 动 画DLL， 由 于 采 用 多 线 程 编 程，PB 调 用 的DLL 函 数 能 够 及 时 将 控 制 权 交 还 给PB， 不 影 响 应 用 系 统 的 运 转。 </P>
0 H% n  \# u, m- X  S$ s<>一、 代 码 与 编 译 选 项
$ `- V: Z$ M+ E在C ＋ ＋Builder 中 创 建 一 个 空 白 的DLL 项 目。
创 建 一 个 空 白 的Form， 修 改 它 的 属 性 为:
- Y" P7 a* }1 [) j2 \: OBorderStyle=bsDialog
5 ~3 o" l( W; v% a4 tBorderIcons 的 子 属 性 均 为False
FormStyle=fsStayOnTop
Position= poScreenCenter
, O" F8 `0 h2 S7 C, ?+ r6 RName=StatusForm</P>
" F' }9 J* v' }8 m+ O5 ^% }8 o& C+ s# k<>在Form 上 添 加 一 个Win32 下 的Animate 控 件Animate1， 修 改 它 的 属 性 为
  z0 L: H! ~$ E& HAlign=alTop</P>
" \" C- K/ z$ O" u% A  }  Q8 \% e<>在Form 上 添 加 一 个Standard 下 的Button 控 件Button_Cancel， 再 添 加System 下 的Timer 控 件Timer1， 设 置 定 时Interval 时 间 位250， 较 快 响 应 用 户 的 取 消 请 求。
2 [2 @3 N$ m* D; G7 L. U----因 为PB 应 用 系 统 与 动 画 窗 体 代 码 分 别 属 于 两 个 线 程， 不 能 采 用PB 线 程 直 接 关 闭 动 画 窗 体 线 程 的 窗 口， 否 则 会 引 起 系 统 运 行 不 正 常， 因 此 采 用PB 线 程 设 置 关 闭 标 志， 而 动 画 线 程 采 用Timer 控 件 定 时 检 查 标 志， 一 旦 检 测 到 关 闭 标 志， 就 关 闭 窗 口， 清 除 线 程 标 志， 结 束 动 画 线 程。 </P>
<>----5. 下 面 给 出 编 码 及 编 码 原 理： </P>
8 E0 x3 J: G9 A1 ^3 U! T<>----(1)DLL 主 体 代 码： </P>
<>/ ＊DLL 主 体 代 码
　 ＊ 定 义DLL 公 用 变 量
4 f' P- _1 h4 W' ?3 y9 y; W( [. V" v＊g_CommonAVI 对Animate 控 件
动 画 类 型 索 引
6 h; m8 Q$ b% M. ~　＊gi_Canceled Button_Cancel
' K* _; F; |+ p* {, o按 钮 是 否 被 选 择 过
. K5 i. N8 K8 }5 d+ m6 S" F' j　＊gi_AVIType 要 显 示 的 动 画 类 型，
由DLL 输 出 函 数 做 为 参 数 输 入
　＊gi_RequestClose 请 求 动 画 线 程 关 闭 标 志
　＊gi_WindowActive 动 画 窗 口 所 处 的 状 态
- t: F' {, c% g- t7 r( O( O7 v8 M　＊lpsWinTitle 动 画 窗 体 的 标 题，
由DLL 输 出 函 数 做 为 参 数 输 入
　＊/</P>
; |) b+ m# d8 C3 Y<>　 　TCommonAVI g_CommonAVI[]={
% F& r  t$ I, ]! E+ {　 　 aviNone, aviFindFolder,
　 　 aviFindFile, aviFindComputer,
4 g) S9 V! R; F. `　 　aviCopyFiles, aviCopyFile,
　 　 aviRecycleFile, aviEmptyRecycle,
; \7 _, \' T: v) ?  @3 S" V7 v　 　aviDeleteFile
　 　};
　 　int gi_Canceled=0,gi_AVIType=0;
　 　int gi_RequestClose=0,gi_WindowActive=0;
8 [9 @- ?+ F7 h% Z" p2 [　 　char lpsWinTitle[256];
　 　HWND hWndParent=NULL;</P>
2 m: v8 \: ^) C2 |9 R<>　 　/ ＊ 定 义DLL 输 出 函 数 ＊/
/ W$ A6 \5 r8 `1 }% r　 　extern “C" __declspec(dllexport) int pascal Dll
? EntryPoint(HINSTANCE hinst, unsigned
long reason, void ＊);
　 　extern “C" __declspec(dllexport) int pascal
- L% @: n9 `5 r7 l. g6 zShowStatus Window
(int AVIType,LPSTR WinTitle,long hWnd);
% Y& r0 O' Q/ \( ~extern “C" __declspec(dllexport)
" q5 ^4 ~' N/ |int pascal GetStatus(int ai_CloseWin);
% v' G& G6 |7 I0 g) textern “C" __declspec(dllexport)
4 i: q) J$ n; ?% B  [int pascal CloseStatusWindow();</P>
<>　 　 / ＊ 定 义 线 程TformThread: ＊/
　 　class TFormThread : public TThread{
9 P3 G  i* k- m8 o) A1 l0 N1 q+ G　 　public: // User declarations
5 K: L/ p, b# V" u　 　__fastcall TFormThread(bool CreateSuspended);
) P+ U1 L& I! s1 G　 　void __fastcall Execute(void);
　 　};
　 　__fastcall TFormThread::
1 F2 S2 L: @& M7 ^& RTFormThread(bool CreateSuspended):
TThread(CreateSuspended){
　 　}
# e9 j, \0 J2 R% h% Z5 f/ ＊ 动 画 线 程 执 行 代 码，
3 e; s/ e, m4 {; h4 o- G动 画 窗 体 的 定 时 器 控 件 会 关 闭 它，
# e! a5 e9 K# b; W清 除 窗 体 存 在 标 志 后 结 束 线 程 的 运 行
, d8 A, Y* I- w＊/
　 　void __fastcall TFormThread::Execute(void){
% z6 i( B- k% m$ f　 　gi_WindowActive=1;
3 t# ^2 w; B$ h5 ^　 　 StatusForm=new TStatusForm(NULL);</P>
8 z6 D- Q9 N6 R0 s<>　 　 StatusForm －&gt;Caption=lpsWinTitle;
　 　 StatusForm －&gt;ShowModal();
5 V6 @9 ]- y7 b　 　 gi_WindowActive=0;
　 　 delete StatusForm;
9 ~" h& H- C9 _" z! w　 　 gi_RequestClose=0;
' K8 X0 }8 n' d/ R5 t　 　}
　 　/ ＊ 定 义 一 个 线 程 实 例 指 针 ＊/
　 　TFormThread ＊FormThread;
0 E8 q# f5 d% z　 　 / ＊ 输 出 函 数 代 码 实 现 部 分
( C& H2 K- U" V　 　 ＊ DllEntryPoint 32 位DLL 入 口
) F: D" e3 L- a' P& C　 　 ＊ ShowStatusWindow 显 示 动 画 窗 口，
" {4 N2 i& r3 K' ^( _* ?它 通 过 创 建 一 个 线 程 来 创 建 窗 口，
避 免 由 于 窗 口 的MODAL 属 性 而 使
/ k1 @1 f, ]6 m: P: S2 F控 制 权 不 能 及 时 的 返 还 给 调 用 者
" G) ^9 Y  {8 T　 　 ＊ GetStatus 取 得“ 取 消” 状 态，
即 用 户 有 没 有 选 择“ 取 消” 按 钮
( P: ?& @- C& P! m: V　 　 ＊ CloseStatusWindow 关 闭 动 画 窗 口，
　 　 ＊/
　 　__declspec(dllexport) int WINAPI DllEntryPoint
(HINSTANCE hinst, unsigned long reason, void ＊)
　 　{
　 　return 1;
　 　}</P>
<>　__declspec(dllexport) int pascal ShowStatusWindow
5 G3 T$ K- C  J/ T(int AVIType,LPSTR WinTitle,long hWnd){
　hWndParent=(HWND)hWnd;
) f, V  y: o4 d- Y  l7 t7 Z3 Imemset(lpsWinTitle,0,sizeof(lpsWinTitle));
7 O( K, g" |. U  d, ^# O　strncpy(lpsWinTitle,WinTitle,sizeof(lpsWin Title) －1);
- p$ O5 p6 k  ?& D9 W, \7 bif (AVIType&gt;0 ＆ ＆ AVIType&lt;=8) gi_AVIType="AVIType;" 　 　 FormThread="new" TFormThread(true); 　 　 　 FormThread －&gtriority = tpNormal;
: N  K: V& T$ z# z5 L8 O) W' K　 　 FormThread －&gt;Resume();
4 W9 {9 F0 b2 m5 A9 {　 　}</P>
<>　__declspec(dllexport) int pascal GetStatus
(int ai_CloseWin){
1 r  i2 [  T1 X　 　if (gi_Canceled)
　 　if (gi_WindowActive){
　 　gi_RequestClose=1;
　 　 while(gi_RequestClose);
5 r# N) I' ?0 I9 s' V5 h7 S7 L' x$ v　 　 }</P>
<>　 　 return gi_Canceled;
6 x! a3 p. Q4 v: }　 　}</P>
+ O! n4 d- w5 M$ l; D2 X+ Q; s# G8 P<>　 　__declspec(dllexport) int pascal CloseStatusWindow(){
　 　 if (gi_WindowActive){
  E* y$ v6 l4 i; T, v, D2 i; o　 　gi_RequestClose=1;
" o8 Z: O( f& z  Q. c  o　 　 while(gi_RequestClose);
　 　}</P>
<>　 　 return gi_Canceled;
8 w: h; E: _0 Y7 }3 z& A4 Z, [　 　}</P>
<>
----(2) 窗 体StatusForm 的 代 码： </P>
+ N: G, w9 {# X: ]) `<>　 　TStatusForm ＊StatusForm;
　 　extern int gi_Canceled;
　 　extern int gi_AVIType;
　 　extern TCommonAVI g_CommonAVI[];
2 E, E& a  _% H6 B8 ?　 　__fastcall TStatusForm::TStatusForm
(HWND ParentWindow)
5 X: L4 j3 U/ u+ O/ W　 　 : TForm(ParentWindow)
/ ]- }- x* J+ G9 V& s5 U5 l　 　{
　 　 gi_Canceled=0;
　 　}
. N" z3 Q2 b6 u% o$ t4 V　 　// 取 消 按 钮 并 不 直 接 关 闭 窗 体，
( `( Z: r% @9 R1 d而 指 示 设 置 取 消 标 志， 供 调 用 者 查 看
　 　void __fastcall TStatusForm::Button_CancelClick
(TObject ＊Sender)
　 　{
% o) y, X! t  n0 a' p　 　gi_Canceled=1;
　 　// ModalResult=mrCancel;
　 　}
  d& i( c# z! y1 ~- g9 l' S' {/ W　 　 　// 激 活 动 画， 在FORMCREATE 事 件 中
　 　void __fastcall TStatusForm::FormCreate
(TObject ＊Sender)
# k/ Y& n7 Q- I+ O* U　 　{
5 f1 G$ h: z5 O; y( |　 　 Animate1 －&gt;CommonAVI=g_CommonAVI[gi_AVI
Type];
  ?- B. o0 g$ x" _　 　 Animate1 －&gt;Active = true;
2 K2 X+ ^& q1 ~! K　 　}
3 f+ `* u: y0 ^7 m. E0 Q. I　
　extern int gi_RequestClose;
　// 定 时 器 事 件 检 测 到 结 束 标 志 关 闭 窗 体
0 l4 w7 M2 N7 k2 R+ C　void __fastcall TStatusForm::Timer1Timer
(TObject ＊Sender)
　 　{
" n+ `' I" f5 R5 {& ~　 　 if (gi_RequestClose){
　 　 ModalResult=mrOk;
　 　 }
　 　}</P>
<>v6. 设 置 编 译 选 项： 打 开Project Options 对 话 框， 清 除Linker 属 性 页 中 的 Use Dynamic RTL 标 志， 清 除Packages 属 性 页 中 的Build with runtime packages。 这 样 只 要 单 个DLL 就 可 以 运 行 了， 而 不 必 安 装 一 些 动 态 连 接 运 行 时 间 库。 </P>
<>二、 使 用 动 画DLL
( w. s1 X2 g; E: H----1. 定 义： </P>
% O+ j/ B; u4 i<>　 　//Declare －&gt; Global External Functions
　 　FUNCTION Long ShowStatusWindow
5 d( d) ]9 ^" g(Long AVIType,String WinTitle,long hWnd)
8 |- D! G" x4 m2 A. i/ d＆LIBRARY “STATWIN.DLL" ALIAS FOR
“Show StatusWindow"</P>
/ t/ I* T' y. Y<>　 　FUNCTION Long GetCancelStatus
9 ]  b! Q/ A( ^. ]5 ]4 n+ @(Long CloseWindow) ＆LIBRARY
“STATWIN.DLL" ALIAS FOR “GetStatus"</P>
) d! p, A7 v7 G<>　 　FUNCTION Long CloseStatusWindow() ＆
　LIBRARY “STATWIN.DLL" ALIAS FOR
“CloseStatusWindow"</P>
<>----2. 调 用： </P>
6 @+ w% T9 l+ @<>　 　long ll_EndTime
　 　// 显 示 查 找 文 件 夹 动 画
　 　ShowStatusWindow(2)
　 　setpointer(HourGlass!)</P>
<>　 　ll_EndTime = Cpu() ＋ 10 ＊ 1000
9 J) Z5 X7 N1 P2 G; }0 {8 d　 　DO
8 p9 d1 d- n) M# o# {$ P4 s　 　 if GetCancelStatus(0)=1 then
　 　 exit
　 　end if
' V* S5 ?8 [, J" c7 J　 　 // 做 想 做 的 事 情
& t! o4 G4 L) P! J2 F" F! l# C$ s　 　LOOP UNTIL cpu() &gt; ll_EndTime</P>
<>　 　CloseStatusWindow() </P>
- |6 U* k; i- R- I1 X4 R<>
/ E, i# x+ o: K2 }% j- ` </P>