用C＋＋Builder开发动画DLL

韩冰

<>我 们 在Windows98 环 境 下 执 行 拷 贝 文 件、 查 找 文 件 等 计 算 机 耗 时 较 长 的 操 作 时，Windows 会 显 示 一 个 小 小 的 动 画， 指 示 正 在 进 行 的 操 作， 与 死 板 的 静 止 图 像 相 比 增 色 不 少。 那 么 我 们 自 己 开 发 软 件 时， 能 否 也 显 示 一 个 这 样 的 动 画 提 示 呢 ？ 笔 者 开 发 了 一 个 能 够 在PB 下 调 用 的 动 画DLL， 由 于 采 用 多 线 程 编 程，PB 调 用 的DLL 函 数 能 够 及 时 将 控 制 权 交 还 给PB， 不 影 响 应 用 系 统 的 运 转。 </P>
<>一、 代 码 与 编 译 选 项
$ Z% ]2 B; D5 C. o# j在C ＋ ＋Builder 中 创 建 一 个 空 白 的DLL 项 目。
( b' y# C% V! x0 P) d创 建 一 个 空 白 的Form， 修 改 它 的 属 性 为:
$ ~! j) @7 J% E# lBorderStyle=bsDialog
BorderIcons 的 子 属 性 均 为False
FormStyle=fsStayOnTop
Position= poScreenCenter
Name=StatusForm</P>
<>在Form 上 添 加 一 个Win32 下 的Animate 控 件Animate1， 修 改 它 的 属 性 为
1 i& o% I0 S8 u* V+ QAlign=alTop</P>
<>在Form 上 添 加 一 个Standard 下 的Button 控 件Button_Cancel， 再 添 加System 下 的Timer 控 件Timer1， 设 置 定 时Interval 时 间 位250， 较 快 响 应 用 户 的 取 消 请 求。
& a* r; j& z+ f/ V' i* S; t----因 为PB 应 用 系 统 与 动 画 窗 体 代 码 分 别 属 于 两 个 线 程， 不 能 采 用PB 线 程 直 接 关 闭 动 画 窗 体 线 程 的 窗 口， 否 则 会 引 起 系 统 运 行 不 正 常， 因 此 采 用PB 线 程 设 置 关 闭 标 志， 而 动 画 线 程 采 用Timer 控 件 定 时 检 查 标 志， 一 旦 检 测 到 关 闭 标 志， 就 关 闭 窗 口， 清 除 线 程 标 志， 结 束 动 画 线 程。 </P>
, ^3 z; j2 I# M+ ^4 C<>----5. 下 面 给 出 编 码 及 编 码 原 理： </P>
! t4 @6 \5 K/ R; Y7 \# a<>----(1)DLL 主 体 代 码： </P>
<>/ ＊DLL 主 体 代 码
　 ＊ 定 义DLL 公 用 变 量
3 _% {( D2 U' W＊g_CommonAVI 对Animate 控 件
7 _) _1 t, E( `4 E( h" x动 画 类 型 索 引
　＊gi_Canceled Button_Cancel
按 钮 是 否 被 选 择 过
9 a1 q3 t2 t6 Z　＊gi_AVIType 要 显 示 的 动 画 类 型，
5 ^5 \( u' z0 N由DLL 输 出 函 数 做 为 参 数 输 入
　＊gi_RequestClose 请 求 动 画 线 程 关 闭 标 志
　＊gi_WindowActive 动 画 窗 口 所 处 的 状 态
/ @) R3 O, R! P; L; d6 A　＊lpsWinTitle 动 画 窗 体 的 标 题，
4 `9 _0 L' ^+ {7 Z" u- e由DLL 输 出 函 数 做 为 参 数 输 入
　＊/</P>
<>　 　TCommonAVI g_CommonAVI[]={
( |2 b3 |# t( o, C3 F8 C% x  j　 　 aviNone, aviFindFolder,
　 　 aviFindFile, aviFindComputer,
　 　aviCopyFiles, aviCopyFile,
　 　 aviRecycleFile, aviEmptyRecycle,
+ t- f- w% ]5 D1 I# f/ K　 　aviDeleteFile
2 Z' G& y1 E2 ~; |! W! W. z　 　};
　 　int gi_Canceled=0,gi_AVIType=0;
　 　int gi_RequestClose=0,gi_WindowActive=0;
- z3 v: ~, Q/ a5 P　 　char lpsWinTitle[256];
　 　HWND hWndParent=NULL;</P>
4 E9 n% K* Z4 A0 J. N* F5 l' Y, t1 H<>　 　/ ＊ 定 义DLL 输 出 函 数 ＊/
  i8 x# K5 T9 N: Y6 p7 y　 　extern “C" __declspec(dllexport) int pascal Dll
? EntryPoint(HINSTANCE hinst, unsigned
long reason, void ＊);
　 　extern “C" __declspec(dllexport) int pascal
; m% D, O( N, C/ C2 ^ShowStatus Window
(int AVIType,LPSTR WinTitle,long hWnd);
% u& ^0 q4 I( }; X% s7 Xextern “C" __declspec(dllexport)
int pascal GetStatus(int ai_CloseWin);
extern “C" __declspec(dllexport)
int pascal CloseStatusWindow();</P>
; b0 f5 D) V" K<>　 　 / ＊ 定 义 线 程TformThread: ＊/
　 　class TFormThread : public TThread{
　 　public: // User declarations
% p5 ?- l2 ^# a　 　__fastcall TFormThread(bool CreateSuspended);
　 　void __fastcall Execute(void);
: m: Y9 t/ c5 s8 B　 　};
$ Y& J. R0 I$ Y　 　__fastcall TFormThread::
TFormThread(bool CreateSuspended):
TThread(CreateSuspended){
+ _6 Z, w; k( A' W4 V9 x　 　}
/ ＊ 动 画 线 程 执 行 代 码，
动 画 窗 体 的 定 时 器 控 件 会 关 闭 它，
  N) v* t' P( Q" z清 除 窗 体 存 在 标 志 后 结 束 线 程 的 运 行
, _# w8 x* T1 J# M＊/
　 　void __fastcall TFormThread::Execute(void){
　 　gi_WindowActive=1;
; p1 S  S8 a* h' M　 　 StatusForm=new TStatusForm(NULL);</P>
<>　 　 StatusForm －&gt;Caption=lpsWinTitle;
　 　 StatusForm －&gt;ShowModal();
7 {! ]1 V" I8 ~　 　 gi_WindowActive=0;
7 i. Y% R1 S- t0 t　 　 delete StatusForm;
$ o/ c( M/ Q5 U) O) r. G) Y4 n　 　 gi_RequestClose=0;
　 　}
5 S- }3 _! ^) q: m$ v/ c+ d. G6 X　 　/ ＊ 定 义 一 个 线 程 实 例 指 针 ＊/
% A/ [8 x# p* N! N　 　TFormThread ＊FormThread;
6 R, Z. m0 S2 E　 　 / ＊ 输 出 函 数 代 码 实 现 部 分
) I8 ]$ N$ J; w1 `: m$ a　 　 ＊ DllEntryPoint 32 位DLL 入 口
$ i2 H* U& q, j2 _( F4 y, M) k- q　 　 ＊ ShowStatusWindow 显 示 动 画 窗 口，
( K% t; d6 g( X8 d" O它 通 过 创 建 一 个 线 程 来 创 建 窗 口，
避 免 由 于 窗 口 的MODAL 属 性 而 使
  m! b; w! b1 d% ]& J/ x0 Z控 制 权 不 能 及 时 的 返 还 给 调 用 者
　 　 ＊ GetStatus 取 得“ 取 消” 状 态，
8 X5 X5 y: K) e+ U$ B" J8 d即 用 户 有 没 有 选 择“ 取 消” 按 钮
5 ]  @0 _% c  n8 Y　 　 ＊ CloseStatusWindow 关 闭 动 画 窗 口，
　 　 ＊/
9 P+ @9 V6 `8 j) M  ^　 　__declspec(dllexport) int WINAPI DllEntryPoint
/ p/ c2 E! ~$ P/ O1 p" F. L(HINSTANCE hinst, unsigned long reason, void ＊)
) n9 J+ y% T3 e& K! n　 　{
　 　return 1;
　 　}</P>
+ |: ^8 d9 t) k, E# E. X<>　__declspec(dllexport) int pascal ShowStatusWindow
(int AVIType,LPSTR WinTitle,long hWnd){
9 ^# }7 j" T+ N- p　hWndParent=(HWND)hWnd;
1 f$ d  }  P' W# S; vmemset(lpsWinTitle,0,sizeof(lpsWinTitle));
- {+ @4 l- u. @1 j! ~' g  q　strncpy(lpsWinTitle,WinTitle,sizeof(lpsWin Title) －1);
) P! l! t! E2 ]if (AVIType&gt;0 ＆ ＆ AVIType&lt;=8) gi_AVIType="AVIType;" 　 　 FormThread="new" TFormThread(true); 　 　 　 FormThread －&gtriority = tpNormal;
/ m& V2 [8 T1 q5 P0 D　 　 FormThread －&gt;Resume();
　 　}</P>
3 H+ y4 W3 z2 v/ n+ C2 \<>　__declspec(dllexport) int pascal GetStatus
8 I! B, @' ^! u/ g5 Q* K(int ai_CloseWin){
　 　if (gi_Canceled)
! Y  e4 s/ a0 U: i2 b. j　 　if (gi_WindowActive){
　 　gi_RequestClose=1;
2 A% t  H0 c+ c　 　 while(gi_RequestClose);
+ [4 j$ D1 l9 ?& H3 j9 Z　 　 }</P>
<>　 　 return gi_Canceled;
* T/ Y; O; t5 x　 　}</P>
<>　 　__declspec(dllexport) int pascal CloseStatusWindow(){
　 　 if (gi_WindowActive){
# h9 X7 q5 B$ P! {　 　gi_RequestClose=1;
　 　 while(gi_RequestClose);
　 　}</P>
! f, \: F6 R; L5 Z2 O<>　 　 return gi_Canceled;
　 　}</P>
1 o: K% ], G& s* |& U. I<>
----(2) 窗 体StatusForm 的 代 码： </P>
$ Z7 D6 ^" D# M4 x; d9 T+ d( b0 y<>　 　TStatusForm ＊StatusForm;
　 　extern int gi_Canceled;
　 　extern int gi_AVIType;
　 　extern TCommonAVI g_CommonAVI[];
  p* L- B% q2 v% I　 　__fastcall TStatusForm::TStatusForm
* M+ v: Q3 e  h) z+ b  ~(HWND ParentWindow)
　 　 : TForm(ParentWindow)
　 　{
　 　 gi_Canceled=0;
　 　}
+ `: j& D! ?; [* V　 　// 取 消 按 钮 并 不 直 接 关 闭 窗 体，
而 指 示 设 置 取 消 标 志， 供 调 用 者 查 看
& N! d, H+ M5 F+ A  T　 　void __fastcall TStatusForm::Button_CancelClick
1 t7 A% r" L9 y3 r- U& W(TObject ＊Sender)
　 　{
　 　gi_Canceled=1;
$ `' G( }* G( t  N/ z4 U　 　// ModalResult=mrCancel;
　 　}
　 　 　// 激 活 动 画， 在FORMCREATE 事 件 中
- ?0 o* M0 l: v: p　 　void __fastcall TStatusForm::FormCreate
# K" |" M$ L& k1 K' \5 b(TObject ＊Sender)
　 　{
　 　 Animate1 －&gt;CommonAVI=g_CommonAVI[gi_AVI
Type];
　 　 Animate1 －&gt;Active = true;
　 　}
　
　extern int gi_RequestClose;
　// 定 时 器 事 件 检 测 到 结 束 标 志 关 闭 窗 体
　void __fastcall TStatusForm::Timer1Timer
$ O) {6 m$ _, X' d9 P0 |" [(TObject ＊Sender)
　 　{
( K% ^1 ^/ @1 N7 f　 　 if (gi_RequestClose){
1 R7 Y1 y& w7 s3 d& J% L　 　 ModalResult=mrOk;
, T0 g  v- V" W) D' }, n/ T　 　 }
　 　}</P>
6 R' X9 `! s2 [<>v6. 设 置 编 译 选 项： 打 开Project Options 对 话 框， 清 除Linker 属 性 页 中 的 Use Dynamic RTL 标 志， 清 除Packages 属 性 页 中 的Build with runtime packages。 这 样 只 要 单 个DLL 就 可 以 运 行 了， 而 不 必 安 装 一 些 动 态 连 接 运 行 时 间 库。 </P>
# V8 l7 R+ h3 f/ s! b! ?$ t<>二、 使 用 动 画DLL
----1. 定 义： </P>
( U$ x8 ~3 t! K( l  s7 d: X<>　 　//Declare －&gt; Global External Functions
$ }7 A2 R. g2 x& i2 n) H　 　FUNCTION Long ShowStatusWindow
(Long AVIType,String WinTitle,long hWnd)
; Y4 [& `. n% \3 K& e8 m7 A+ `9 a＆LIBRARY “STATWIN.DLL" ALIAS FOR
“Show StatusWindow"</P>
<>　 　FUNCTION Long GetCancelStatus
(Long CloseWindow) ＆LIBRARY
“STATWIN.DLL" ALIAS FOR “GetStatus"</P>
" S8 D7 Y6 Q, R7 J<>　 　FUNCTION Long CloseStatusWindow() ＆
　LIBRARY “STATWIN.DLL" ALIAS FOR
“CloseStatusWindow"</P>
<>----2. 调 用： </P>
<>　 　long ll_EndTime
　 　// 显 示 查 找 文 件 夹 动 画
/ [: Q$ S' C# g7 x1 |2 i. h/ ?　 　ShowStatusWindow(2)
　 　setpointer(HourGlass!)</P>
<>　 　ll_EndTime = Cpu() ＋ 10 ＊ 1000
　 　DO
1 a) g. M/ Q4 p4 v: }　 　 if GetCancelStatus(0)=1 then
　 　 exit
　 　end if
　 　 // 做 想 做 的 事 情
　 　LOOP UNTIL cpu() &gt; ll_EndTime</P>
6 Y; k0 v8 [- `/ N3 c7 r- H<>　 　CloseStatusWindow() </P>
0 f" [0 A4 W3 [2 N/ N<>
- P0 s0 ]' h- ~- S </P>