用C＋＋Builder开发动画DLL

韩冰

<>我 们 在Windows98 环 境 下 执 行 拷 贝 文 件、 查 找 文 件 等 计 算 机 耗 时 较 长 的 操 作 时，Windows 会 显 示 一 个 小 小 的 动 画， 指 示 正 在 进 行 的 操 作， 与 死 板 的 静 止 图 像 相 比 增 色 不 少。 那 么 我 们 自 己 开 发 软 件 时， 能 否 也 显 示 一 个 这 样 的 动 画 提 示 呢 ？ 笔 者 开 发 了 一 个 能 够 在PB 下 调 用 的 动 画DLL， 由 于 采 用 多 线 程 编 程，PB 调 用 的DLL 函 数 能 够 及 时 将 控 制 权 交 还 给PB， 不 影 响 应 用 系 统 的 运 转。 </P>
: V, e) R3 {0 ]<>一、 代 码 与 编 译 选 项
在C ＋ ＋Builder 中 创 建 一 个 空 白 的DLL 项 目。
9 ~1 y, r) g) _创 建 一 个 空 白 的Form， 修 改 它 的 属 性 为:
0 C, W) V/ E$ b2 P1 OBorderStyle=bsDialog
$ w; m3 y( S$ ?. c' dBorderIcons 的 子 属 性 均 为False
FormStyle=fsStayOnTop
# W9 t$ B& s3 uPosition= poScreenCenter
Name=StatusForm</P>
<>在Form 上 添 加 一 个Win32 下 的Animate 控 件Animate1， 修 改 它 的 属 性 为
Align=alTop</P>
! B" F" W6 ~/ m1 I<>在Form 上 添 加 一 个Standard 下 的Button 控 件Button_Cancel， 再 添 加System 下 的Timer 控 件Timer1， 设 置 定 时Interval 时 间 位250， 较 快 响 应 用 户 的 取 消 请 求。
----因 为PB 应 用 系 统 与 动 画 窗 体 代 码 分 别 属 于 两 个 线 程， 不 能 采 用PB 线 程 直 接 关 闭 动 画 窗 体 线 程 的 窗 口， 否 则 会 引 起 系 统 运 行 不 正 常， 因 此 采 用PB 线 程 设 置 关 闭 标 志， 而 动 画 线 程 采 用Timer 控 件 定 时 检 查 标 志， 一 旦 检 测 到 关 闭 标 志， 就 关 闭 窗 口， 清 除 线 程 标 志， 结 束 动 画 线 程。 </P>
<>----5. 下 面 给 出 编 码 及 编 码 原 理： </P>
<>----(1)DLL 主 体 代 码： </P>
<>/ ＊DLL 主 体 代 码
　 ＊ 定 义DLL 公 用 变 量
＊g_CommonAVI 对Animate 控 件
动 画 类 型 索 引
6 f, e& B; |* q8 [1 V6 w　＊gi_Canceled Button_Cancel
: H  X2 S. w# o; N按 钮 是 否 被 选 择 过
' N6 \, t7 L) w6 {　＊gi_AVIType 要 显 示 的 动 画 类 型，
由DLL 输 出 函 数 做 为 参 数 输 入
　＊gi_RequestClose 请 求 动 画 线 程 关 闭 标 志
- I$ F6 q% c5 p+ D* Z% T$ i　＊gi_WindowActive 动 画 窗 口 所 处 的 状 态
　＊lpsWinTitle 动 画 窗 体 的 标 题，
+ v0 {' S3 @  N3 B8 g( A. S, _' ?由DLL 输 出 函 数 做 为 参 数 输 入
0 @3 h  m0 D4 `; j5 e6 A# q1 t　＊/</P>
' h. U5 F7 }9 O& P0 T<>　 　TCommonAVI g_CommonAVI[]={
　 　 aviNone, aviFindFolder,
　 　 aviFindFile, aviFindComputer,
　 　aviCopyFiles, aviCopyFile,
　 　 aviRecycleFile, aviEmptyRecycle,
　 　aviDeleteFile
　 　};
　 　int gi_Canceled=0,gi_AVIType=0;
4 ?; ]3 Q2 a* _) T" o' P2 }' Q) ?1 n　 　int gi_RequestClose=0,gi_WindowActive=0;
9 }8 ]6 U, o0 K% c　 　char lpsWinTitle[256];
+ x9 A& G: M' T　 　HWND hWndParent=NULL;</P>
2 \& ^3 ^/ ~7 W: H) [8 C<>　 　/ ＊ 定 义DLL 输 出 函 数 ＊/
　 　extern “C" __declspec(dllexport) int pascal Dll
& m1 U4 A5 @: A) R8 _; a? EntryPoint(HINSTANCE hinst, unsigned
6 f. w6 A* p# _2 llong reason, void ＊);
9 l# k) Y5 c0 h" a5 n2 O　 　extern “C" __declspec(dllexport) int pascal
ShowStatus Window
/ s7 n7 }# m2 ], {(int AVIType,LPSTR WinTitle,long hWnd);
extern “C" __declspec(dllexport)
int pascal GetStatus(int ai_CloseWin);
/ ?3 N& z2 f# l5 F& ]) A* rextern “C" __declspec(dllexport)
2 j, ~7 A2 _2 O9 xint pascal CloseStatusWindow();</P>
# {" X# M! J% j' t! S! ^) W- F<>　 　 / ＊ 定 义 线 程TformThread: ＊/
　 　class TFormThread : public TThread{
　 　public: // User declarations
　 　__fastcall TFormThread(bool CreateSuspended);
　 　void __fastcall Execute(void);
; x  M6 k. E, e+ G　 　};
　 　__fastcall TFormThread::
TFormThread(bool CreateSuspended):
TThread(CreateSuspended){
　 　}
/ ＊ 动 画 线 程 执 行 代 码，
动 画 窗 体 的 定 时 器 控 件 会 关 闭 它，
2 e2 u/ T* E) l+ i2 Z) k4 W8 x清 除 窗 体 存 在 标 志 后 结 束 线 程 的 运 行
＊/
　 　void __fastcall TFormThread::Execute(void){
　 　gi_WindowActive=1;
　 　 StatusForm=new TStatusForm(NULL);</P>
<>　 　 StatusForm －&gt;Caption=lpsWinTitle;
8 P  Q, V% I0 |8 a; K9 I　 　 StatusForm －&gt;ShowModal();
　 　 gi_WindowActive=0;
" s" H7 P1 I# N1 j8 P; |# o! V　 　 delete StatusForm;
7 Z9 l# J/ m7 }/ N  f% D　 　 gi_RequestClose=0;
+ l9 ~7 J6 I. N7 `7 M　 　}
1 V7 h' p; ]/ O1 P; j　 　/ ＊ 定 义 一 个 线 程 实 例 指 针 ＊/
3 Y+ t& n4 }7 ?2 Q6 q% ~* x! m) E　 　TFormThread ＊FormThread;
　 　 / ＊ 输 出 函 数 代 码 实 现 部 分
8 a7 m$ j( ~" A　 　 ＊ DllEntryPoint 32 位DLL 入 口
　 　 ＊ ShowStatusWindow 显 示 动 画 窗 口，
6 W( v( j  w' T- D- M' ~" t+ l它 通 过 创 建 一 个 线 程 来 创 建 窗 口，
避 免 由 于 窗 口 的MODAL 属 性 而 使
) t- q/ f) a$ N* R  u控 制 权 不 能 及 时 的 返 还 给 调 用 者
　 　 ＊ GetStatus 取 得“ 取 消” 状 态，
即 用 户 有 没 有 选 择“ 取 消” 按 钮
# e8 Q8 O/ k5 L' m: Z  i. G6 b' K. O　 　 ＊ CloseStatusWindow 关 闭 动 画 窗 口，
　 　 ＊/
- `* o% Q) ^2 z2 j/ n　 　__declspec(dllexport) int WINAPI DllEntryPoint
(HINSTANCE hinst, unsigned long reason, void ＊)
　 　{
　 　return 1;
　 　}</P>
<>　__declspec(dllexport) int pascal ShowStatusWindow
(int AVIType,LPSTR WinTitle,long hWnd){
　hWndParent=(HWND)hWnd;
4 T( w# @# x! V9 B7 c( l2 B7 ^6 Ememset(lpsWinTitle,0,sizeof(lpsWinTitle));
　strncpy(lpsWinTitle,WinTitle,sizeof(lpsWin Title) －1);
3 |5 T. b/ s* Z: lif (AVIType&gt;0 ＆ ＆ AVIType&lt;=8) gi_AVIType="AVIType;" 　 　 FormThread="new" TFormThread(true); 　 　 　 FormThread －&gtriority = tpNormal;
( M2 S9 j! ]2 C- Z* G, S　 　 FormThread －&gt;Resume();
　 　}</P>
<>　__declspec(dllexport) int pascal GetStatus
3 T  r$ `9 W. i7 H, `/ o% @(int ai_CloseWin){
. }9 C' f* m, W# V  w　 　if (gi_Canceled)
　 　if (gi_WindowActive){
　 　gi_RequestClose=1;
　 　 while(gi_RequestClose);
　 　 }</P>
$ {+ N) |8 g" g<>　 　 return gi_Canceled;
9 s  w4 X$ t6 [  l　 　}</P>
<>　 　__declspec(dllexport) int pascal CloseStatusWindow(){
% r' I9 T- q3 M9 o　 　 if (gi_WindowActive){
　 　gi_RequestClose=1;
　 　 while(gi_RequestClose);
' a* O2 _% {* y6 p7 ~" e　 　}</P>
<>　 　 return gi_Canceled;
　 　}</P>
<>
----(2) 窗 体StatusForm 的 代 码： </P>
<>　 　TStatusForm ＊StatusForm;
　 　extern int gi_Canceled;
　 　extern int gi_AVIType;
　 　extern TCommonAVI g_CommonAVI[];
7 T! L0 P) I4 M3 B3 i9 g　 　__fastcall TStatusForm::TStatusForm
4 f9 H5 X. Z( G; A$ L6 ^(HWND ParentWindow)
　 　 : TForm(ParentWindow)
" h" K! O! @) q' b+ X/ q3 {" J) w　 　{
　 　 gi_Canceled=0;
　 　}
( p" Q5 g% \% I9 \　 　// 取 消 按 钮 并 不 直 接 关 闭 窗 体，
而 指 示 设 置 取 消 标 志， 供 调 用 者 查 看
5 R3 v" H( }1 a* _　 　void __fastcall TStatusForm::Button_CancelClick
(TObject ＊Sender)
, F5 j2 O- S( s4 b+ S' `　 　{
' B/ O# |5 F* S3 c: b( c　 　gi_Canceled=1;
　 　// ModalResult=mrCancel;
　 　}
　 　 　// 激 活 动 画， 在FORMCREATE 事 件 中
　 　void __fastcall TStatusForm::FormCreate
(TObject ＊Sender)
　 　{
　 　 Animate1 －&gt;CommonAVI=g_CommonAVI[gi_AVI
4 ~, q  A& v, d# iType];
　 　 Animate1 －&gt;Active = true;
* r/ y& |, U3 J  G9 L2 a6 k　 　}
/ K$ e: |, r& f" C  ?, L$ V1 S　
　extern int gi_RequestClose;
　// 定 时 器 事 件 检 测 到 结 束 标 志 关 闭 窗 体
　void __fastcall TStatusForm::Timer1Timer
2 @( P, u# M/ \: b+ H" D(TObject ＊Sender)
" y$ C" ~5 L; ~5 K7 l　 　{
  ^; K) }1 d0 o% C" M　 　 if (gi_RequestClose){
- N1 U$ c8 R/ ]　 　 ModalResult=mrOk;
　 　 }
4 s1 F# \4 ^. ?9 \7 B1 @* V　 　}</P>
2 v% _* P- @( e% i<>v6. 设 置 编 译 选 项： 打 开Project Options 对 话 框， 清 除Linker 属 性 页 中 的 Use Dynamic RTL 标 志， 清 除Packages 属 性 页 中 的Build with runtime packages。 这 样 只 要 单 个DLL 就 可 以 运 行 了， 而 不 必 安 装 一 些 动 态 连 接 运 行 时 间 库。 </P>
<>二、 使 用 动 画DLL
' C9 y+ R( r5 Z2 D. v----1. 定 义： </P>
8 @6 F, n& h8 B9 ?5 \<>　 　//Declare －&gt; Global External Functions
* }6 u3 o! k! M1 H　 　FUNCTION Long ShowStatusWindow
(Long AVIType,String WinTitle,long hWnd)
＆LIBRARY “STATWIN.DLL" ALIAS FOR
1 P4 o! e- C+ s& R  ]# g9 z% M# n  {“Show StatusWindow"</P>
* [3 f7 E" c  ?2 h<>　 　FUNCTION Long GetCancelStatus
(Long CloseWindow) ＆LIBRARY
“STATWIN.DLL" ALIAS FOR “GetStatus"</P>
+ {7 z" B: K4 W<>　 　FUNCTION Long CloseStatusWindow() ＆
　LIBRARY “STATWIN.DLL" ALIAS FOR
* v0 I1 c+ P% h4 [5 m% ?“CloseStatusWindow"</P>
+ p8 p# B. e' j. J! j, @<>----2. 调 用： </P>
" ~" i+ Q. q: N0 v& t* S0 _6 p5 g+ T<>　 　long ll_EndTime
7 k; J- Y+ [( E% f7 B+ H, L9 H/ @　 　// 显 示 查 找 文 件 夹 动 画
  Z3 m) |% a: f9 ~; a- \) a) z　 　ShowStatusWindow(2)
* i+ \" ]( s& n5 i$ E1 Q) c　 　setpointer(HourGlass!)</P>
<>　 　ll_EndTime = Cpu() ＋ 10 ＊ 1000
0 {6 q' ]- G5 ^5 b　 　DO
　 　 if GetCancelStatus(0)=1 then
　 　 exit
, q: p& ~( u/ r1 c2 y3 U　 　end if
　 　 // 做 想 做 的 事 情
　 　LOOP UNTIL cpu() &gt; ll_EndTime</P>
<>　 　CloseStatusWindow() </P>
<>
7 k) n1 A% s1 b4 P- H& d( [3 ~ </P>