用C＋＋Builder开发动画DLL

韩冰

<>我 们 在Windows98 环 境 下 执 行 拷 贝 文 件、 查 找 文 件 等 计 算 机 耗 时 较 长 的 操 作 时，Windows 会 显 示 一 个 小 小 的 动 画， 指 示 正 在 进 行 的 操 作， 与 死 板 的 静 止 图 像 相 比 增 色 不 少。 那 么 我 们 自 己 开 发 软 件 时， 能 否 也 显 示 一 个 这 样 的 动 画 提 示 呢 ？ 笔 者 开 发 了 一 个 能 够 在PB 下 调 用 的 动 画DLL， 由 于 采 用 多 线 程 编 程，PB 调 用 的DLL 函 数 能 够 及 时 将 控 制 权 交 还 给PB， 不 影 响 应 用 系 统 的 运 转。 </P>
0 _) W8 u% t" c<>一、 代 码 与 编 译 选 项
( c+ i/ j5 `" R: o/ T4 [在C ＋ ＋Builder 中 创 建 一 个 空 白 的DLL 项 目。
# u9 W2 l8 Z) T# b/ W创 建 一 个 空 白 的Form， 修 改 它 的 属 性 为:
BorderStyle=bsDialog
BorderIcons 的 子 属 性 均 为False
" \" e- y; n! m- u. jFormStyle=fsStayOnTop
Position= poScreenCenter
9 N9 ~5 D; F; e+ kName=StatusForm</P>
<>在Form 上 添 加 一 个Win32 下 的Animate 控 件Animate1， 修 改 它 的 属 性 为
) C: s8 H6 f$ E: A7 u- N" x8 pAlign=alTop</P>
<>在Form 上 添 加 一 个Standard 下 的Button 控 件Button_Cancel， 再 添 加System 下 的Timer 控 件Timer1， 设 置 定 时Interval 时 间 位250， 较 快 响 应 用 户 的 取 消 请 求。
----因 为PB 应 用 系 统 与 动 画 窗 体 代 码 分 别 属 于 两 个 线 程， 不 能 采 用PB 线 程 直 接 关 闭 动 画 窗 体 线 程 的 窗 口， 否 则 会 引 起 系 统 运 行 不 正 常， 因 此 采 用PB 线 程 设 置 关 闭 标 志， 而 动 画 线 程 采 用Timer 控 件 定 时 检 查 标 志， 一 旦 检 测 到 关 闭 标 志， 就 关 闭 窗 口， 清 除 线 程 标 志， 结 束 动 画 线 程。 </P>
! f, q9 c0 F& Q: N) t! m2 a<>----5. 下 面 给 出 编 码 及 编 码 原 理： </P>
& j, I8 _$ w7 S' F* w; k: b<>----(1)DLL 主 体 代 码： </P>
<>/ ＊DLL 主 体 代 码
　 ＊ 定 义DLL 公 用 变 量
+ @4 [6 ~9 z! ]＊g_CommonAVI 对Animate 控 件
/ e' B* u/ s- Y, w动 画 类 型 索 引
　＊gi_Canceled Button_Cancel
7 J% h4 _/ t( e. ?按 钮 是 否 被 选 择 过
　＊gi_AVIType 要 显 示 的 动 画 类 型，
+ Y* B/ }' K  x/ E' @4 n) U由DLL 输 出 函 数 做 为 参 数 输 入
  V6 Z/ N* u3 d6 q) T5 u8 V　＊gi_RequestClose 请 求 动 画 线 程 关 闭 标 志
　＊gi_WindowActive 动 画 窗 口 所 处 的 状 态
　＊lpsWinTitle 动 画 窗 体 的 标 题，
由DLL 输 出 函 数 做 为 参 数 输 入
( F9 c. V* B) c3 ~6 u7 m/ Q　＊/</P>
<>　 　TCommonAVI g_CommonAVI[]={
　 　 aviNone, aviFindFolder,
& H7 R' E. ]8 C/ T  y8 l# X　 　 aviFindFile, aviFindComputer,
　 　aviCopyFiles, aviCopyFile,
　 　 aviRecycleFile, aviEmptyRecycle,
　 　aviDeleteFile
+ x; Y$ L. f3 e! N4 f1 c3 V7 Z　 　};
　 　int gi_Canceled=0,gi_AVIType=0;
　 　int gi_RequestClose=0,gi_WindowActive=0;
1 m9 \. u1 L6 ]$ ], H* `. u9 ~) c　 　char lpsWinTitle[256];
　 　HWND hWndParent=NULL;</P>
<>　 　/ ＊ 定 义DLL 输 出 函 数 ＊/
. T$ I; \( L0 m) h' s% K' a6 D0 e　 　extern “C" __declspec(dllexport) int pascal Dll
? EntryPoint(HINSTANCE hinst, unsigned
) C8 c% T( B3 X$ B: m. @5 W) Q; b( nlong reason, void ＊);
　 　extern “C" __declspec(dllexport) int pascal
ShowStatus Window
(int AVIType,LPSTR WinTitle,long hWnd);
0 {7 F  u1 r. `$ V2 S8 U! W; i" [extern “C" __declspec(dllexport)
7 B- X4 }8 ?" j' U  j* zint pascal GetStatus(int ai_CloseWin);
# c- X5 M/ T4 D# P" c) z0 gextern “C" __declspec(dllexport)
int pascal CloseStatusWindow();</P>
<>　 　 / ＊ 定 义 线 程TformThread: ＊/
　 　class TFormThread : public TThread{
  K+ e. {7 w8 X" p# s　 　public: // User declarations
　 　__fastcall TFormThread(bool CreateSuspended);
　 　void __fastcall Execute(void);
, a- I# r( Z( d9 O9 K　 　};
5 ]1 W  r6 l# y/ }! D2 d　 　__fastcall TFormThread::
TFormThread(bool CreateSuspended):
4 L8 \  s2 X; yTThread(CreateSuspended){
　 　}
( l. K8 o  D# F/ H/ ＊ 动 画 线 程 执 行 代 码，
动 画 窗 体 的 定 时 器 控 件 会 关 闭 它，
清 除 窗 体 存 在 标 志 后 结 束 线 程 的 运 行
" l  L% H& k8 z$ {＊/
　 　void __fastcall TFormThread::Execute(void){
; S% U# I& }# L/ }( ~　 　gi_WindowActive=1;
　 　 StatusForm=new TStatusForm(NULL);</P>
. I/ I4 Z+ w; }1 H! ?4 x<>　 　 StatusForm －&gt;Caption=lpsWinTitle;
0 v6 e5 E$ ~4 O9 e% |　 　 StatusForm －&gt;ShowModal();
　 　 gi_WindowActive=0;
" s2 P9 d- D0 G8 i5 g& q4 ~* H3 j9 K　 　 delete StatusForm;
0 F7 X& Q) V1 b/ Z  ~) l4 [/ T　 　 gi_RequestClose=0;
　 　}
　 　/ ＊ 定 义 一 个 线 程 实 例 指 针 ＊/
1 d2 {) _: q; T5 [　 　TFormThread ＊FormThread;
( `" N) Y2 ^) d& U　 　 / ＊ 输 出 函 数 代 码 实 现 部 分
　 　 ＊ DllEntryPoint 32 位DLL 入 口
' r, q' B0 ^& B2 `$ S" `　 　 ＊ ShowStatusWindow 显 示 动 画 窗 口，
它 通 过 创 建 一 个 线 程 来 创 建 窗 口，
3 v7 L& o  l5 Z% n( d# q$ V; i- a) d" x避 免 由 于 窗 口 的MODAL 属 性 而 使
" D7 G! O6 {0 e" W: I, F控 制 权 不 能 及 时 的 返 还 给 调 用 者
1 f5 s' [' }: [' C　 　 ＊ GetStatus 取 得“ 取 消” 状 态，
3 V' }( B( m! I- w即 用 户 有 没 有 选 择“ 取 消” 按 钮
& f1 B# m1 `1 X) p; r* w　 　 ＊ CloseStatusWindow 关 闭 动 画 窗 口，
　 　 ＊/
　 　__declspec(dllexport) int WINAPI DllEntryPoint
(HINSTANCE hinst, unsigned long reason, void ＊)
: m1 P) G/ B+ ~9 Y$ {6 n/ `( ~　 　{
) J7 Z8 o; Y' H* {% h# s, n. q　 　return 1;
　 　}</P>
# V, N. P: c0 A% X<>　__declspec(dllexport) int pascal ShowStatusWindow
$ k- X6 a) u5 {' r! f(int AVIType,LPSTR WinTitle,long hWnd){
　hWndParent=(HWND)hWnd;
1 T& B. h6 K. B& Lmemset(lpsWinTitle,0,sizeof(lpsWinTitle));
　strncpy(lpsWinTitle,WinTitle,sizeof(lpsWin Title) －1);
2 j! p# U' w! k$ M# F. Kif (AVIType&gt;0 ＆ ＆ AVIType&lt;=8) gi_AVIType="AVIType;" 　 　 FormThread="new" TFormThread(true); 　 　 　 FormThread －&gtriority = tpNormal;
' z) K, j( p% q* t　 　 FormThread －&gt;Resume();
　 　}</P>
<>　__declspec(dllexport) int pascal GetStatus
( }7 M$ m6 \4 M$ e9 c5 o9 ^, X(int ai_CloseWin){
　 　if (gi_Canceled)
) }  x+ Q- S7 b, z) H0 a　 　if (gi_WindowActive){
/ n4 n5 b" \. C+ f4 B' O& K0 B5 L　 　gi_RequestClose=1;
' N, D$ h, n  c　 　 while(gi_RequestClose);
" a  I5 @3 T7 S/ v" y　 　 }</P>
<>　 　 return gi_Canceled;
$ N! U. U8 M2 ?  P" l　 　}</P>
<>　 　__declspec(dllexport) int pascal CloseStatusWindow(){
; N# p! a9 d6 \; r) m& m- D　 　 if (gi_WindowActive){
　 　gi_RequestClose=1;
, ]. \$ n; b! q$ M　 　 while(gi_RequestClose);
. I) R. z4 M" l. ]/ q　 　}</P>
- r' ]+ A8 U' n  N! X6 i1 [<>　 　 return gi_Canceled;
　 　}</P>
<>
----(2) 窗 体StatusForm 的 代 码： </P>
  j; f  {9 O, J+ f% }$ y. r5 H& b* z<>　 　TStatusForm ＊StatusForm;
: ?& {  c6 D; G1 _　 　extern int gi_Canceled;
　 　extern int gi_AVIType;
　 　extern TCommonAVI g_CommonAVI[];
　 　__fastcall TStatusForm::TStatusForm
# R8 H* g1 c/ k$ ]/ K(HWND ParentWindow)
2 D& z, N/ o% d5 s# H　 　 : TForm(ParentWindow)
　 　{
: R2 d; B% a; \# M9 U- _. P# k　 　 gi_Canceled=0;
　 　}
　 　// 取 消 按 钮 并 不 直 接 关 闭 窗 体，
% F# |0 p  _% v而 指 示 设 置 取 消 标 志， 供 调 用 者 查 看
+ t& X  ?# G3 p. L, c1 ~　 　void __fastcall TStatusForm::Button_CancelClick
(TObject ＊Sender)
+ G5 x" Y6 q7 x& m: r1 D　 　{
. ~; z# u9 C" a+ k　 　gi_Canceled=1;
　 　// ModalResult=mrCancel;
　 　}
* E9 q3 k6 T4 B: d9 w. r: x　 　 　// 激 活 动 画， 在FORMCREATE 事 件 中
3 f* P" [: B; `2 O) D　 　void __fastcall TStatusForm::FormCreate
! z, `" s' D: v% u9 y4 l& S(TObject ＊Sender)
　 　{
　 　 Animate1 －&gt;CommonAVI=g_CommonAVI[gi_AVI
Type];
　 　 Animate1 －&gt;Active = true;
& ]6 p  i& K& g  |5 q　 　}
6 W* U! f1 D) K2 B2 v　
* }9 F1 z- i. U4 Z4 n/ p　extern int gi_RequestClose;
　// 定 时 器 事 件 检 测 到 结 束 标 志 关 闭 窗 体
# d9 s% u$ T) f; u* r$ |" I　void __fastcall TStatusForm::Timer1Timer
  b" W5 E& s# G, ?8 k(TObject ＊Sender)
　 　{
　 　 if (gi_RequestClose){
　 　 ModalResult=mrOk;
　 　 }
2 W- l2 D# D& T9 L　 　}</P>
$ e) ~& _, j- m5 g/ ~<>v6. 设 置 编 译 选 项： 打 开Project Options 对 话 框， 清 除Linker 属 性 页 中 的 Use Dynamic RTL 标 志， 清 除Packages 属 性 页 中 的Build with runtime packages。 这 样 只 要 单 个DLL 就 可 以 运 行 了， 而 不 必 安 装 一 些 动 态 连 接 运 行 时 间 库。 </P>
<>二、 使 用 动 画DLL
----1. 定 义： </P>
<>　 　//Declare －&gt; Global External Functions
7 Q' r) M2 p9 N3 a　 　FUNCTION Long ShowStatusWindow
, T6 \' D8 K% d/ ?  H: H(Long AVIType,String WinTitle,long hWnd)
＆LIBRARY “STATWIN.DLL" ALIAS FOR
“Show StatusWindow"</P>
8 I% E6 Z; s3 c( `0 V<>　 　FUNCTION Long GetCancelStatus
(Long CloseWindow) ＆LIBRARY
1 ~" _- S( x3 k  h3 {“STATWIN.DLL" ALIAS FOR “GetStatus"</P>
<>　 　FUNCTION Long CloseStatusWindow() ＆
　LIBRARY “STATWIN.DLL" ALIAS FOR
2 k! W  `1 N3 I“CloseStatusWindow"</P>
<>----2. 调 用： </P>
<>　 　long ll_EndTime
( o) @' ?0 n5 D- A　 　// 显 示 查 找 文 件 夹 动 画
, h# \* E6 t; X1 a6 I　 　ShowStatusWindow(2)
! a9 \4 S  x1 T* p　 　setpointer(HourGlass!)</P>
<>　 　ll_EndTime = Cpu() ＋ 10 ＊ 1000
　 　DO
) N- O& i4 l: a- r% Q8 L: e; A& `　 　 if GetCancelStatus(0)=1 then
0 h/ O  W# T  F　 　 exit
　 　end if
( `. H$ W. q, V: i* W　 　 // 做 想 做 的 事 情
　 　LOOP UNTIL cpu() &gt; ll_EndTime</P>
% G( D4 z; J* Q. W7 i( o- S<>　 　CloseStatusWindow() </P>
<>
</P>