用C＋＋Builder开发动画DLL

韩冰

<>我 们 在Windows98 环 境 下 执 行 拷 贝 文 件、 查 找 文 件 等 计 算 机 耗 时 较 长 的 操 作 时，Windows 会 显 示 一 个 小 小 的 动 画， 指 示 正 在 进 行 的 操 作， 与 死 板 的 静 止 图 像 相 比 增 色 不 少。 那 么 我 们 自 己 开 发 软 件 时， 能 否 也 显 示 一 个 这 样 的 动 画 提 示 呢 ？ 笔 者 开 发 了 一 个 能 够 在PB 下 调 用 的 动 画DLL， 由 于 采 用 多 线 程 编 程，PB 调 用 的DLL 函 数 能 够 及 时 将 控 制 权 交 还 给PB， 不 影 响 应 用 系 统 的 运 转。 </P>
<>一、 代 码 与 编 译 选 项
在C ＋ ＋Builder 中 创 建 一 个 空 白 的DLL 项 目。
9 w% E  x2 }! W0 m7 f2 u  {创 建 一 个 空 白 的Form， 修 改 它 的 属 性 为:
BorderStyle=bsDialog
BorderIcons 的 子 属 性 均 为False
FormStyle=fsStayOnTop
Position= poScreenCenter
Name=StatusForm</P>
4 c$ P7 ^! ?: S. D7 @<>在Form 上 添 加 一 个Win32 下 的Animate 控 件Animate1， 修 改 它 的 属 性 为
' V5 w0 Z% Y; z5 V4 u# }) h8 ]Align=alTop</P>
- [+ G( @9 I! b* q$ q<>在Form 上 添 加 一 个Standard 下 的Button 控 件Button_Cancel， 再 添 加System 下 的Timer 控 件Timer1， 设 置 定 时Interval 时 间 位250， 较 快 响 应 用 户 的 取 消 请 求。
& p$ v1 C. J4 L* T2 n----因 为PB 应 用 系 统 与 动 画 窗 体 代 码 分 别 属 于 两 个 线 程， 不 能 采 用PB 线 程 直 接 关 闭 动 画 窗 体 线 程 的 窗 口， 否 则 会 引 起 系 统 运 行 不 正 常， 因 此 采 用PB 线 程 设 置 关 闭 标 志， 而 动 画 线 程 采 用Timer 控 件 定 时 检 查 标 志， 一 旦 检 测 到 关 闭 标 志， 就 关 闭 窗 口， 清 除 线 程 标 志， 结 束 动 画 线 程。 </P>
<>----5. 下 面 给 出 编 码 及 编 码 原 理： </P>
; ]& X4 W+ f, A<>----(1)DLL 主 体 代 码： </P>
<>/ ＊DLL 主 体 代 码
' J) T- ]# m9 T! m1 a) H　 ＊ 定 义DLL 公 用 变 量
8 T+ i; h! m6 ]4 `1 U: t＊g_CommonAVI 对Animate 控 件
动 画 类 型 索 引
( t, i4 i6 t* E　＊gi_Canceled Button_Cancel
9 j) e# N" G: V( H+ @按 钮 是 否 被 选 择 过
% v) W2 M- C3 L, t; O8 B! ~　＊gi_AVIType 要 显 示 的 动 画 类 型，
由DLL 输 出 函 数 做 为 参 数 输 入
9 n0 f/ p6 G0 l- E# m　＊gi_RequestClose 请 求 动 画 线 程 关 闭 标 志
9 A; A' q+ A. N5 d　＊gi_WindowActive 动 画 窗 口 所 处 的 状 态
5 p1 ]( H* C3 v: t* q$ E# S　＊lpsWinTitle 动 画 窗 体 的 标 题，
4 L1 K5 E' Y. a9 g3 }/ U由DLL 输 出 函 数 做 为 参 数 输 入
　＊/</P>
<>　 　TCommonAVI g_CommonAVI[]={
　 　 aviNone, aviFindFolder,
　 　 aviFindFile, aviFindComputer,
) o; Y9 k6 p, I7 s$ C/ J$ B　 　aviCopyFiles, aviCopyFile,
　 　 aviRecycleFile, aviEmptyRecycle,
9 H+ l( S2 R0 t7 J2 ^　 　aviDeleteFile
　 　};
　 　int gi_Canceled=0,gi_AVIType=0;
9 a1 L- v5 F$ U) @2 c# m　 　int gi_RequestClose=0,gi_WindowActive=0;
　 　char lpsWinTitle[256];
, w7 J9 Q1 ?  s0 {# }　 　HWND hWndParent=NULL;</P>
8 ]# g8 Y7 B/ e7 R<>　 　/ ＊ 定 义DLL 输 出 函 数 ＊/
　 　extern “C" __declspec(dllexport) int pascal Dll
? EntryPoint(HINSTANCE hinst, unsigned
long reason, void ＊);
; K8 Q" y' {, }# o" N  M　 　extern “C" __declspec(dllexport) int pascal
& Q" E) P( e8 X0 h( y. v9 p- yShowStatus Window
(int AVIType,LPSTR WinTitle,long hWnd);
extern “C" __declspec(dllexport)
int pascal GetStatus(int ai_CloseWin);
* e2 o( U6 t2 I% j! O- Bextern “C" __declspec(dllexport)
8 b  L9 P/ X1 K; S3 H( h% Z% Q2 Iint pascal CloseStatusWindow();</P>
2 k. q: t, `6 \# g  n) Q# S8 T<>　 　 / ＊ 定 义 线 程TformThread: ＊/
8 T+ {. y; m3 ^1 G+ f% h& l! l+ c　 　class TFormThread : public TThread{
　 　public: // User declarations
　 　__fastcall TFormThread(bool CreateSuspended);
　 　void __fastcall Execute(void);
8 u* [) T) \% I, V, H. N% ~　 　};
　 　__fastcall TFormThread::
TFormThread(bool CreateSuspended):
/ e' ~: |5 F4 p* n* L0 oTThread(CreateSuspended){
　 　}
/ ＊ 动 画 线 程 执 行 代 码，
动 画 窗 体 的 定 时 器 控 件 会 关 闭 它，
7 r. @+ O0 ]  D9 |5 `0 B" F7 D. o清 除 窗 体 存 在 标 志 后 结 束 线 程 的 运 行
＊/
　 　void __fastcall TFormThread::Execute(void){
+ e: I( _9 ]$ V9 W　 　gi_WindowActive=1;
& e1 T; Y; ?: Q　 　 StatusForm=new TStatusForm(NULL);</P>
1 p+ f! l4 Y5 F# `/ M+ t1 P/ a<>　 　 StatusForm －&gt;Caption=lpsWinTitle;
5 `  s, H! k: J" }; j0 s' h, F) ]  ^　 　 StatusForm －&gt;ShowModal();
　 　 gi_WindowActive=0;
9 l$ |9 [1 K2 ]9 q: z　 　 delete StatusForm;
. i7 z* ?- G! z7 Q# L　 　 gi_RequestClose=0;
0 r6 L" L' l# j7 M" z/ Q( ~　 　}
% [: `; P+ ~# f: w" L　 　/ ＊ 定 义 一 个 线 程 实 例 指 针 ＊/
　 　TFormThread ＊FormThread;
: ]6 W: ~& A7 p. f! a. S: e　 　 / ＊ 输 出 函 数 代 码 实 现 部 分
. z3 ~! o& w; ~, j1 T3 b+ W! e  c　 　 ＊ DllEntryPoint 32 位DLL 入 口
　 　 ＊ ShowStatusWindow 显 示 动 画 窗 口，
; ^5 Z' c& W5 o! k- n, S& {它 通 过 创 建 一 个 线 程 来 创 建 窗 口，
避 免 由 于 窗 口 的MODAL 属 性 而 使
  g9 p' m: |( v% \3 C$ u% D控 制 权 不 能 及 时 的 返 还 给 调 用 者
: z/ f4 x% z1 h" P* K　 　 ＊ GetStatus 取 得“ 取 消” 状 态，
即 用 户 有 没 有 选 择“ 取 消” 按 钮
　 　 ＊ CloseStatusWindow 关 闭 动 画 窗 口，
　 　 ＊/
- l7 W! T7 ]# j7 c  J　 　__declspec(dllexport) int WINAPI DllEntryPoint
  r7 m. _) u9 b! t9 T& p6 Y2 i& _8 n(HINSTANCE hinst, unsigned long reason, void ＊)
% j3 s4 z  o( j' \" w$ A# H　 　{
# X- S" ~7 A6 X% n7 O　 　return 1;
　 　}</P>
<>　__declspec(dllexport) int pascal ShowStatusWindow
(int AVIType,LPSTR WinTitle,long hWnd){
- ?5 S( D! B6 g5 R　hWndParent=(HWND)hWnd;
8 E+ D$ @5 F" ~5 N' ^. f2 K$ lmemset(lpsWinTitle,0,sizeof(lpsWinTitle));
　strncpy(lpsWinTitle,WinTitle,sizeof(lpsWin Title) －1);
if (AVIType&gt;0 ＆ ＆ AVIType&lt;=8) gi_AVIType="AVIType;" 　 　 FormThread="new" TFormThread(true); 　 　 　 FormThread －&gtriority = tpNormal;
" Y& w. E: K. Y) K　 　 FormThread －&gt;Resume();
6 W8 }+ E3 E: x' D% G7 e　 　}</P>
; K( R; f) W8 d# Y8 M8 p) B<>　__declspec(dllexport) int pascal GetStatus
8 L7 m" w. D( [(int ai_CloseWin){
　 　if (gi_Canceled)
　 　if (gi_WindowActive){
% V* T: ~+ r4 K1 w/ u& X, u8 g9 u　 　gi_RequestClose=1;
3 ~5 E/ V+ [9 Y6 ~: [# P　 　 while(gi_RequestClose);
　 　 }</P>
: d: J, d  R, i6 H+ K<>　 　 return gi_Canceled;
　 　}</P>
1 P5 N6 C8 L  [. V2 z0 [: u  V& v<>　 　__declspec(dllexport) int pascal CloseStatusWindow(){
　 　 if (gi_WindowActive){
　 　gi_RequestClose=1;
　 　 while(gi_RequestClose);
- ^0 v, O: U# R+ q7 H; k" j& y　 　}</P>
<>　 　 return gi_Canceled;
　 　}</P>
" U' f4 t6 |$ ?<>
----(2) 窗 体StatusForm 的 代 码： </P>
* F: \7 K& O! o- A<>　 　TStatusForm ＊StatusForm;
　 　extern int gi_Canceled;
　 　extern int gi_AVIType;
9 y1 x3 ^& A( g. ?0 X' {8 Q# h　 　extern TCommonAVI g_CommonAVI[];
　 　__fastcall TStatusForm::TStatusForm
(HWND ParentWindow)
　 　 : TForm(ParentWindow)
/ F: K) u7 B/ m0 T7 s　 　{
& H4 W3 I$ ]4 D　 　 gi_Canceled=0;
2 S! ^; S" V! R0 H: H　 　}
$ }/ d$ o2 z( Z* `　 　// 取 消 按 钮 并 不 直 接 关 闭 窗 体，
% K1 ?' R8 }5 F" ~6 p7 H' ]而 指 示 设 置 取 消 标 志， 供 调 用 者 查 看
. x2 m/ }- s* |/ y) l　 　void __fastcall TStatusForm::Button_CancelClick
4 O8 w) e0 A; C1 g6 }6 q(TObject ＊Sender)
3 n0 d( U4 L! T4 v　 　{
　 　gi_Canceled=1;
) Y2 v4 x! c. I6 F0 z　 　// ModalResult=mrCancel;
2 i8 d. A+ r2 |3 h0 `3 N. y) s0 r　 　}
　 　 　// 激 活 动 画， 在FORMCREATE 事 件 中
　 　void __fastcall TStatusForm::FormCreate
(TObject ＊Sender)
2 u# u# q5 T4 {. p& K　 　{
, x* P$ a, C( z# ?. m" f　 　 Animate1 －&gt;CommonAVI=g_CommonAVI[gi_AVI
Type];
" [0 G" j( A9 y1 K　 　 Animate1 －&gt;Active = true;
　 　}
　
+ v5 S7 k7 l. m& h　extern int gi_RequestClose;
2 s  ?( U* u; s2 O* ^0 ^　// 定 时 器 事 件 检 测 到 结 束 标 志 关 闭 窗 体
9 C( Q. B. h! N% {$ Z  n  k　void __fastcall TStatusForm::Timer1Timer
% S$ g- q# s5 J" p; k2 X" ^/ d(TObject ＊Sender)
　 　{
　 　 if (gi_RequestClose){
　 　 ModalResult=mrOk;
# A* Q) G( T( f' T. Y* x- }7 C% o5 r　 　 }
" ~/ r4 n& b9 Q4 j' [　 　}</P>
<>v6. 设 置 编 译 选 项： 打 开Project Options 对 话 框， 清 除Linker 属 性 页 中 的 Use Dynamic RTL 标 志， 清 除Packages 属 性 页 中 的Build with runtime packages。 这 样 只 要 单 个DLL 就 可 以 运 行 了， 而 不 必 安 装 一 些 动 态 连 接 运 行 时 间 库。 </P>
<>二、 使 用 动 画DLL
----1. 定 义： </P>
<>　 　//Declare －&gt; Global External Functions
* h* L9 D3 c  h. Z. U5 s　 　FUNCTION Long ShowStatusWindow
! I$ j6 k$ Y6 `; S" `(Long AVIType,String WinTitle,long hWnd)
＆LIBRARY “STATWIN.DLL" ALIAS FOR
“Show StatusWindow"</P>
<>　 　FUNCTION Long GetCancelStatus
(Long CloseWindow) ＆LIBRARY
“STATWIN.DLL" ALIAS FOR “GetStatus"</P>
<>　 　FUNCTION Long CloseStatusWindow() ＆
. u* ~9 O. Q4 d- U　LIBRARY “STATWIN.DLL" ALIAS FOR
% m+ Y5 Y0 j/ H" _6 v; ]+ u“CloseStatusWindow"</P>
<>----2. 调 用： </P>
<>　 　long ll_EndTime
　 　// 显 示 查 找 文 件 夹 动 画
( K" f6 b: {# Q/ g2 t　 　ShowStatusWindow(2)
* K$ y3 [5 O2 e/ \" w% ^　 　setpointer(HourGlass!)</P>
+ C7 n6 @8 g" D* A( L1 r& }7 ?/ n<>　 　ll_EndTime = Cpu() ＋ 10 ＊ 1000
# m  O' V. ?7 Q  |# p$ M　 　DO
( U: o' R% i9 F  |9 n+ O　 　 if GetCancelStatus(0)=1 then
6 L' D2 G- g' n4 |. k  {9 i　 　 exit
1 r3 S" V- q8 ], x% b" ?, v　 　end if
　 　 // 做 想 做 的 事 情
' e7 Z4 H* S* I! M4 N& w　 　LOOP UNTIL cpu() &gt; ll_EndTime</P>
/ |$ w1 m  Q( P9 R1 z1 U<>　 　CloseStatusWindow() </P>
<>
</P>