用C＋＋Builder开发动画DLL

韩冰

<>我 们 在Windows98 环 境 下 执 行 拷 贝 文 件、 查 找 文 件 等 计 算 机 耗 时 较 长 的 操 作 时，Windows 会 显 示 一 个 小 小 的 动 画， 指 示 正 在 进 行 的 操 作， 与 死 板 的 静 止 图 像 相 比 增 色 不 少。 那 么 我 们 自 己 开 发 软 件 时， 能 否 也 显 示 一 个 这 样 的 动 画 提 示 呢 ？ 笔 者 开 发 了 一 个 能 够 在PB 下 调 用 的 动 画DLL， 由 于 采 用 多 线 程 编 程，PB 调 用 的DLL 函 数 能 够 及 时 将 控 制 权 交 还 给PB， 不 影 响 应 用 系 统 的 运 转。 </P>
<>一、 代 码 与 编 译 选 项
. W3 ~1 V6 q& U  k在C ＋ ＋Builder 中 创 建 一 个 空 白 的DLL 项 目。
创 建 一 个 空 白 的Form， 修 改 它 的 属 性 为:
# ~  p4 f2 `1 p1 ~! C" o, @BorderStyle=bsDialog
1 W6 t: R' R4 |# b* sBorderIcons 的 子 属 性 均 为False
4 T& D+ b! C0 c+ n) H$ i4 l: ]( XFormStyle=fsStayOnTop
Position= poScreenCenter
Name=StatusForm</P>
<>在Form 上 添 加 一 个Win32 下 的Animate 控 件Animate1， 修 改 它 的 属 性 为
2 W4 r$ M7 h. mAlign=alTop</P>
<>在Form 上 添 加 一 个Standard 下 的Button 控 件Button_Cancel， 再 添 加System 下 的Timer 控 件Timer1， 设 置 定 时Interval 时 间 位250， 较 快 响 应 用 户 的 取 消 请 求。
6 ~6 [* ^( i: [3 K----因 为PB 应 用 系 统 与 动 画 窗 体 代 码 分 别 属 于 两 个 线 程， 不 能 采 用PB 线 程 直 接 关 闭 动 画 窗 体 线 程 的 窗 口， 否 则 会 引 起 系 统 运 行 不 正 常， 因 此 采 用PB 线 程 设 置 关 闭 标 志， 而 动 画 线 程 采 用Timer 控 件 定 时 检 查 标 志， 一 旦 检 测 到 关 闭 标 志， 就 关 闭 窗 口， 清 除 线 程 标 志， 结 束 动 画 线 程。 </P>
+ ^( q$ }# w  o  [; \8 a9 {; r<>----5. 下 面 给 出 编 码 及 编 码 原 理： </P>
<>----(1)DLL 主 体 代 码： </P>
, w4 Z) Y+ x. W* J<>/ ＊DLL 主 体 代 码
　 ＊ 定 义DLL 公 用 变 量
& Q7 R( Q7 Y6 j/ C4 f, k＊g_CommonAVI 对Animate 控 件
动 画 类 型 索 引
　＊gi_Canceled Button_Cancel
按 钮 是 否 被 选 择 过
) J7 x" b" h2 k( @! j7 ?5 R　＊gi_AVIType 要 显 示 的 动 画 类 型，
6 J! Z% j8 m) a* Q9 n由DLL 输 出 函 数 做 为 参 数 输 入
　＊gi_RequestClose 请 求 动 画 线 程 关 闭 标 志
　＊gi_WindowActive 动 画 窗 口 所 处 的 状 态
8 U; P. B) b& ~% D1 @　＊lpsWinTitle 动 画 窗 体 的 标 题，
由DLL 输 出 函 数 做 为 参 数 输 入
/ F% S& d. m5 @3 X& u　＊/</P>
% h1 Y& P! U# b. \4 W+ g<>　 　TCommonAVI g_CommonAVI[]={
1 D8 H* ?& {! c- {( D3 Q6 S　 　 aviNone, aviFindFolder,
　 　 aviFindFile, aviFindComputer,
　 　aviCopyFiles, aviCopyFile,
　 　 aviRecycleFile, aviEmptyRecycle,
　 　aviDeleteFile
& s4 s! _( }- k: _' Y　 　};
6 x! `% w& n# Y& u2 @/ `9 y' p' R. y　 　int gi_Canceled=0,gi_AVIType=0;
　 　int gi_RequestClose=0,gi_WindowActive=0;
  T& g& X; a# {6 k6 v: l　 　char lpsWinTitle[256];
　 　HWND hWndParent=NULL;</P>
7 T* @. V, Q! \0 u<>　 　/ ＊ 定 义DLL 输 出 函 数 ＊/
7 D2 e5 r- z- h$ w. T. h7 b7 h　 　extern “C" __declspec(dllexport) int pascal Dll
? EntryPoint(HINSTANCE hinst, unsigned
long reason, void ＊);
　 　extern “C" __declspec(dllexport) int pascal
8 s( ^7 \; R1 W6 }$ R( XShowStatus Window
(int AVIType,LPSTR WinTitle,long hWnd);
/ H+ p* r( e( L6 Sextern “C" __declspec(dllexport)
int pascal GetStatus(int ai_CloseWin);
extern “C" __declspec(dllexport)
int pascal CloseStatusWindow();</P>
6 o# X* X0 p# b4 j5 s<>　 　 / ＊ 定 义 线 程TformThread: ＊/
　 　class TFormThread : public TThread{
　 　public: // User declarations
　 　__fastcall TFormThread(bool CreateSuspended);
9 h  n$ `- c6 v5 j  P3 G! o　 　void __fastcall Execute(void);
: K8 j/ a& D2 W, z8 ]3 q7 T6 J　 　};
! h3 w) H9 ]3 I. Y' j( r  R　 　__fastcall TFormThread::
TFormThread(bool CreateSuspended):
TThread(CreateSuspended){
　 　}
/ ＊ 动 画 线 程 执 行 代 码，
动 画 窗 体 的 定 时 器 控 件 会 关 闭 它，
* _7 _4 Q+ ^' j7 V清 除 窗 体 存 在 标 志 后 结 束 线 程 的 运 行
# w) C; q" c- _＊/
　 　void __fastcall TFormThread::Execute(void){
　 　gi_WindowActive=1;
( s& O4 k$ R+ P# M" A　 　 StatusForm=new TStatusForm(NULL);</P>
; L. T! i0 B# J. _$ P+ d+ R7 W/ L<>　 　 StatusForm －&gt;Caption=lpsWinTitle;
1 ^: y. }- U+ g　 　 StatusForm －&gt;ShowModal();
( V+ N& [+ \" u/ K" V1 \5 `3 x　 　 gi_WindowActive=0;
/ E3 q) i, u& r0 G8 k/ T3 c( T　 　 delete StatusForm;
& P* M  t9 i; v: R5 B5 D- k　 　 gi_RequestClose=0;
  R) p. D3 P2 j2 j0 e2 V( A* c　 　}
　 　/ ＊ 定 义 一 个 线 程 实 例 指 针 ＊/
- a' r3 A4 Q1 H, q: Q　 　TFormThread ＊FormThread;
　 　 / ＊ 输 出 函 数 代 码 实 现 部 分
　 　 ＊ DllEntryPoint 32 位DLL 入 口
　 　 ＊ ShowStatusWindow 显 示 动 画 窗 口，
4 K" y: D* D! T( `" b) \它 通 过 创 建 一 个 线 程 来 创 建 窗 口，
3 a8 C% i$ C$ k( F; a/ ~避 免 由 于 窗 口 的MODAL 属 性 而 使
' S8 @* }; p5 r, y. n0 Z: v0 e控 制 权 不 能 及 时 的 返 还 给 调 用 者
　 　 ＊ GetStatus 取 得“ 取 消” 状 态，
即 用 户 有 没 有 选 择“ 取 消” 按 钮
& I2 [4 T7 A0 g4 N1 D: }　 　 ＊ CloseStatusWindow 关 闭 动 画 窗 口，
　 　 ＊/
$ ^* D! }1 l* o: U& Z1 ~　 　__declspec(dllexport) int WINAPI DllEntryPoint
& n" U) |9 H9 P% Q) z" K(HINSTANCE hinst, unsigned long reason, void ＊)
& r( m$ P/ J( a$ {0 {+ I( P　 　{
　 　return 1;
& S% @6 ]4 j) m7 Z8 A　 　}</P>
5 s" l! n0 S% s: Y; d<>　__declspec(dllexport) int pascal ShowStatusWindow
2 I3 \0 d, C3 c4 d7 A/ E(int AVIType,LPSTR WinTitle,long hWnd){
$ p- a& I$ T0 Y, j8 U, I! n8 n) b' z　hWndParent=(HWND)hWnd;
* D4 j" d5 k1 a+ hmemset(lpsWinTitle,0,sizeof(lpsWinTitle));
0 H1 M- m7 p& Q% A( H　strncpy(lpsWinTitle,WinTitle,sizeof(lpsWin Title) －1);
if (AVIType&gt;0 ＆ ＆ AVIType&lt;=8) gi_AVIType="AVIType;" 　 　 FormThread="new" TFormThread(true); 　 　 　 FormThread －&gtriority = tpNormal;
/ K  Q, m0 _" Y) T. S2 h$ x　 　 FormThread －&gt;Resume();
; q/ U' `7 Q  O1 X' y) k　 　}</P>
<>　__declspec(dllexport) int pascal GetStatus
' m4 [! c# \6 |* i(int ai_CloseWin){
　 　if (gi_Canceled)
+ s9 m2 b% i- D2 K2 g8 _　 　if (gi_WindowActive){
　 　gi_RequestClose=1;
　 　 while(gi_RequestClose);
6 ~6 a$ c4 }. l- u) Q$ U6 B　 　 }</P>
5 W7 h' q# _; W4 [' ?; u- ?<>　 　 return gi_Canceled;
- d; P" G* E+ Y* A5 B7 m　 　}</P>
) X; }  e6 c0 D& C3 m<>　 　__declspec(dllexport) int pascal CloseStatusWindow(){
　 　 if (gi_WindowActive){
6 }) o# D- K9 ?4 Q8 G　 　gi_RequestClose=1;
# e6 j6 G( a0 Z3 ^+ s　 　 while(gi_RequestClose);
9 U+ J4 o6 n) }* P7 j/ e: B　 　}</P>
<>　 　 return gi_Canceled;
　 　}</P>
* }8 g1 X# |8 E<>
% M# M5 {* P4 b. {/ t4 [----(2) 窗 体StatusForm 的 代 码： </P>
9 @! u( g' q9 ~0 r- E. A+ O<>　 　TStatusForm ＊StatusForm;
　 　extern int gi_Canceled;
7 `! W; q$ T) f- S, Y" E　 　extern int gi_AVIType;
3 _4 q* ^2 r! h; ^/ l　 　extern TCommonAVI g_CommonAVI[];
　 　__fastcall TStatusForm::TStatusForm
+ W4 e/ o, _% H! p+ N(HWND ParentWindow)
　 　 : TForm(ParentWindow)
　 　{
　 　 gi_Canceled=0;
! S: Q9 U5 M/ C$ j5 }　 　}
& z2 N0 i8 U4 L5 V　 　// 取 消 按 钮 并 不 直 接 关 闭 窗 体，
  P: c$ d8 Q0 B0 b而 指 示 设 置 取 消 标 志， 供 调 用 者 查 看
　 　void __fastcall TStatusForm::Button_CancelClick
) A( c. c& u$ H1 h1 g(TObject ＊Sender)
　 　{
2 M9 N& F3 K7 t: Q" O" B3 \　 　gi_Canceled=1;
　 　// ModalResult=mrCancel;
　 　}
! _0 j, J6 @4 M& G4 C　 　 　// 激 活 动 画， 在FORMCREATE 事 件 中
　 　void __fastcall TStatusForm::FormCreate
: {& G! v3 T2 l: B: y* Y+ v(TObject ＊Sender)
0 F# ^8 e+ b9 _* _2 E6 k* L+ e　 　{
9 D) e# \( ^9 }2 s& d, S　 　 Animate1 －&gt;CommonAVI=g_CommonAVI[gi_AVI
2 u0 V/ H" r( ]) d! _: CType];
　 　 Animate1 －&gt;Active = true;
　 　}
, |3 T: V9 R5 O% ?! t4 \　
% u7 w1 u( I" a! P& h　extern int gi_RequestClose;
8 N( x+ o4 s2 a7 e; d/ A　// 定 时 器 事 件 检 测 到 结 束 标 志 关 闭 窗 体
　void __fastcall TStatusForm::Timer1Timer
2 X+ q3 t5 d2 i% q% W(TObject ＊Sender)
5 r! U* |$ q# l8 a  Q　 　{
% ?4 p9 ]% L$ w# _! y) X4 @　 　 if (gi_RequestClose){
　 　 ModalResult=mrOk;
　 　 }
* E: S8 l$ j9 p　 　}</P>
<>v6. 设 置 编 译 选 项： 打 开Project Options 对 话 框， 清 除Linker 属 性 页 中 的 Use Dynamic RTL 标 志， 清 除Packages 属 性 页 中 的Build with runtime packages。 这 样 只 要 单 个DLL 就 可 以 运 行 了， 而 不 必 安 装 一 些 动 态 连 接 运 行 时 间 库。 </P>
7 c$ s" N. v. U3 K6 B8 B<>二、 使 用 动 画DLL
----1. 定 义： </P>
<>　 　//Declare －&gt; Global External Functions
　 　FUNCTION Long ShowStatusWindow
0 m/ a" ]; P. x9 N(Long AVIType,String WinTitle,long hWnd)
＆LIBRARY “STATWIN.DLL" ALIAS FOR
“Show StatusWindow"</P>
<>　 　FUNCTION Long GetCancelStatus
$ d$ [0 H1 C* r- a& `7 n(Long CloseWindow) ＆LIBRARY
  T3 r2 F. {( t3 ^2 u“STATWIN.DLL" ALIAS FOR “GetStatus"</P>
<>　 　FUNCTION Long CloseStatusWindow() ＆
& z, s- y2 V2 U1 }　LIBRARY “STATWIN.DLL" ALIAS FOR
“CloseStatusWindow"</P>
<>----2. 调 用： </P>
<>　 　long ll_EndTime
　 　// 显 示 查 找 文 件 夹 动 画
" H$ ]6 J' w0 b- T9 l3 T. s1 [/ }　 　ShowStatusWindow(2)
　 　setpointer(HourGlass!)</P>
: C# @. G, ]' F: w/ C<>　 　ll_EndTime = Cpu() ＋ 10 ＊ 1000
　 　DO
' \1 R/ B- x' x6 S3 I; A( T6 {　 　 if GetCancelStatus(0)=1 then
) Y, M+ k& k- x9 p. F, \; C　 　 exit
　 　end if
2 i: d4 ?+ c8 h; E$ u1 t　 　 // 做 想 做 的 事 情
　 　LOOP UNTIL cpu() &gt; ll_EndTime</P>
: w! M, D1 h' U0 S% _<>　 　CloseStatusWindow() </P>
  r; c0 w) M9 V; m4 ~8 V: o<>
. K% R  y( q- R2 K" l8 d </P>