用C＋＋Builder开发动画DLL

韩冰

<>我 们 在Windows98 环 境 下 执 行 拷 贝 文 件、 查 找 文 件 等 计 算 机 耗 时 较 长 的 操 作 时，Windows 会 显 示 一 个 小 小 的 动 画， 指 示 正 在 进 行 的 操 作， 与 死 板 的 静 止 图 像 相 比 增 色 不 少。 那 么 我 们 自 己 开 发 软 件 时， 能 否 也 显 示 一 个 这 样 的 动 画 提 示 呢 ？ 笔 者 开 发 了 一 个 能 够 在PB 下 调 用 的 动 画DLL， 由 于 采 用 多 线 程 编 程，PB 调 用 的DLL 函 数 能 够 及 时 将 控 制 权 交 还 给PB， 不 影 响 应 用 系 统 的 运 转。 </P>
<>一、 代 码 与 编 译 选 项
9 Q  M0 j1 R' }在C ＋ ＋Builder 中 创 建 一 个 空 白 的DLL 项 目。
创 建 一 个 空 白 的Form， 修 改 它 的 属 性 为:
BorderStyle=bsDialog
BorderIcons 的 子 属 性 均 为False
FormStyle=fsStayOnTop
6 _) R0 Q5 W( u0 C3 ?: SPosition= poScreenCenter
Name=StatusForm</P>
<>在Form 上 添 加 一 个Win32 下 的Animate 控 件Animate1， 修 改 它 的 属 性 为
- D$ C. _0 B. k, XAlign=alTop</P>
<>在Form 上 添 加 一 个Standard 下 的Button 控 件Button_Cancel， 再 添 加System 下 的Timer 控 件Timer1， 设 置 定 时Interval 时 间 位250， 较 快 响 应 用 户 的 取 消 请 求。
----因 为PB 应 用 系 统 与 动 画 窗 体 代 码 分 别 属 于 两 个 线 程， 不 能 采 用PB 线 程 直 接 关 闭 动 画 窗 体 线 程 的 窗 口， 否 则 会 引 起 系 统 运 行 不 正 常， 因 此 采 用PB 线 程 设 置 关 闭 标 志， 而 动 画 线 程 采 用Timer 控 件 定 时 检 查 标 志， 一 旦 检 测 到 关 闭 标 志， 就 关 闭 窗 口， 清 除 线 程 标 志， 结 束 动 画 线 程。 </P>
. s$ c, t1 v& _# i<>----5. 下 面 给 出 编 码 及 编 码 原 理： </P>
6 q" |9 v# c2 }<>----(1)DLL 主 体 代 码： </P>
<>/ ＊DLL 主 体 代 码
　 ＊ 定 义DLL 公 用 变 量
8 ?' Q- ^# u  T' K＊g_CommonAVI 对Animate 控 件
2 g. z# Q7 y  S9 B+ z动 画 类 型 索 引
8 \' u0 V+ U, k2 q! j1 A' z　＊gi_Canceled Button_Cancel
) E+ W& H) I2 O: o8 F按 钮 是 否 被 选 择 过
　＊gi_AVIType 要 显 示 的 动 画 类 型，
由DLL 输 出 函 数 做 为 参 数 输 入
: u% z/ Z# x2 e- M　＊gi_RequestClose 请 求 动 画 线 程 关 闭 标 志
" ]! g- S! S2 y- f# y　＊gi_WindowActive 动 画 窗 口 所 处 的 状 态
% ?  E6 i% I6 ?! d, [, \! M　＊lpsWinTitle 动 画 窗 体 的 标 题，
! |) T$ b6 ?4 _! w$ }2 e由DLL 输 出 函 数 做 为 参 数 输 入
- A4 i% T$ [: o. Z; i　＊/</P>
6 {7 D/ o9 e7 F2 K+ B2 O<>　 　TCommonAVI g_CommonAVI[]={
3 K0 ^6 v* g, m+ D4 \　 　 aviNone, aviFindFolder,
　 　 aviFindFile, aviFindComputer,
　 　aviCopyFiles, aviCopyFile,
) G: f" z/ T3 N1 J$ t　 　 aviRecycleFile, aviEmptyRecycle,
4 r# \" p  C* ~1 |, q& S/ |; ]- n　 　aviDeleteFile
　 　};
　 　int gi_Canceled=0,gi_AVIType=0;
! Q, ]0 y! }( Z1 n　 　int gi_RequestClose=0,gi_WindowActive=0;
4 `* E+ E9 W1 z　 　char lpsWinTitle[256];
& o# N6 j% |, T7 Y. P' m　 　HWND hWndParent=NULL;</P>
5 Q3 Y3 T/ c) `3 ^: E: T<>　 　/ ＊ 定 义DLL 输 出 函 数 ＊/
# n7 R3 C9 F+ u" s. z6 k　 　extern “C" __declspec(dllexport) int pascal Dll
$ E/ H$ t; U$ C" O$ ~3 ?3 Z, [? EntryPoint(HINSTANCE hinst, unsigned
long reason, void ＊);
* ?) o* z4 L" u. w  y5 `　 　extern “C" __declspec(dllexport) int pascal
/ S2 _8 z8 P1 `4 P, q; `6 m2 Z! L8 CShowStatus Window
0 ?( G6 W0 p4 @; q  w(int AVIType,LPSTR WinTitle,long hWnd);
extern “C" __declspec(dllexport)
! \# m0 J$ C# M( P" {- Kint pascal GetStatus(int ai_CloseWin);
! K4 U! l: u4 N# ~4 Wextern “C" __declspec(dllexport)
  w# s4 T4 Z! v+ Iint pascal CloseStatusWindow();</P>
0 \' W5 X# N9 U; o, q<>　 　 / ＊ 定 义 线 程TformThread: ＊/
　 　class TFormThread : public TThread{
　 　public: // User declarations
: V: A" }. @5 R6 I: @' m4 V! {　 　__fastcall TFormThread(bool CreateSuspended);
, Y3 f; Y2 ^) }　 　void __fastcall Execute(void);
　 　};
　 　__fastcall TFormThread::
TFormThread(bool CreateSuspended):
! e* }3 Z9 I1 y- XTThread(CreateSuspended){
6 M, n* S' x# j　 　}
3 c! ~: R& v7 Z8 @) E3 J! f/ ＊ 动 画 线 程 执 行 代 码，
1 @) r, F* q  z" i8 E2 P9 P0 {2 c动 画 窗 体 的 定 时 器 控 件 会 关 闭 它，
清 除 窗 体 存 在 标 志 后 结 束 线 程 的 运 行
8 B1 A0 }" W$ T0 `* d) ]＊/
9 m- x. k' X& T- h: R0 `& K　 　void __fastcall TFormThread::Execute(void){
　 　gi_WindowActive=1;
　 　 StatusForm=new TStatusForm(NULL);</P>
<>　 　 StatusForm －&gt;Caption=lpsWinTitle;
  N8 o0 B+ Z2 m( H4 R  q! D　 　 StatusForm －&gt;ShowModal();
6 e' w  w8 G( s0 g( E1 ~( E! y　 　 gi_WindowActive=0;
　 　 delete StatusForm;
　 　 gi_RequestClose=0;
& r4 l: {$ w$ W/ r/ [　 　}
　 　/ ＊ 定 义 一 个 线 程 实 例 指 针 ＊/
0 {) C. y: _4 W9 i! X　 　TFormThread ＊FormThread;
, R) w$ M. v8 V$ k　 　 / ＊ 输 出 函 数 代 码 实 现 部 分
　 　 ＊ DllEntryPoint 32 位DLL 入 口
9 L5 b0 m! l! D8 k- a" ]5 `" J* k　 　 ＊ ShowStatusWindow 显 示 动 画 窗 口，
它 通 过 创 建 一 个 线 程 来 创 建 窗 口，
避 免 由 于 窗 口 的MODAL 属 性 而 使
1 ^0 f+ _* q" [! Q! e) y控 制 权 不 能 及 时 的 返 还 给 调 用 者
: t  o9 ~9 I1 g/ _+ q1 q+ S　 　 ＊ GetStatus 取 得“ 取 消” 状 态，
即 用 户 有 没 有 选 择“ 取 消” 按 钮
　 　 ＊ CloseStatusWindow 关 闭 动 画 窗 口，
# e  J) A* [( ?+ e. N. S/ i+ R! Y　 　 ＊/
3 P: }% o% U* L* w2 l' v# ~　 　__declspec(dllexport) int WINAPI DllEntryPoint
(HINSTANCE hinst, unsigned long reason, void ＊)
. R2 u+ ^. S. D; @/ n　 　{
　 　return 1;
% `. m( a% v4 n/ J　 　}</P>
<>　__declspec(dllexport) int pascal ShowStatusWindow
0 j3 m/ X$ `5 b$ G(int AVIType,LPSTR WinTitle,long hWnd){
+ y  H( q1 h, Q# C  v, K　hWndParent=(HWND)hWnd;
1 V( k! _' w3 B7 N$ zmemset(lpsWinTitle,0,sizeof(lpsWinTitle));
　strncpy(lpsWinTitle,WinTitle,sizeof(lpsWin Title) －1);
1 r" d9 y) a5 m' p6 c  tif (AVIType&gt;0 ＆ ＆ AVIType&lt;=8) gi_AVIType="AVIType;" 　 　 FormThread="new" TFormThread(true); 　 　 　 FormThread －&gtriority = tpNormal;
　 　 FormThread －&gt;Resume();
% N% Y" ~5 C; F! C9 B　 　}</P>
<>　__declspec(dllexport) int pascal GetStatus
(int ai_CloseWin){
　 　if (gi_Canceled)
4 e. ~. J- _  t& |* d7 Z　 　if (gi_WindowActive){
5 Q# W  }  N* \+ c　 　gi_RequestClose=1;
　 　 while(gi_RequestClose);
　 　 }</P>
# X2 O1 F1 P! K6 E; b0 d& x<>　 　 return gi_Canceled;
　 　}</P>
* w+ z6 _, k" F! d8 |<>　 　__declspec(dllexport) int pascal CloseStatusWindow(){
* }) F' R5 I; [- \8 P8 n　 　 if (gi_WindowActive){
+ ?* O% @5 O7 ^* J1 j　 　gi_RequestClose=1;
- l0 x/ Z: z( [3 y　 　 while(gi_RequestClose);
　 　}</P>
4 u/ J! z" D4 y: Y, w) F) i/ ]<>　 　 return gi_Canceled;
$ z. w  F  l' |  k1 k　 　}</P>
<>
----(2) 窗 体StatusForm 的 代 码： </P>
<>　 　TStatusForm ＊StatusForm;
- u- g- o+ K+ u7 |) f; B　 　extern int gi_Canceled;
　 　extern int gi_AVIType;
　 　extern TCommonAVI g_CommonAVI[];
　 　__fastcall TStatusForm::TStatusForm
2 ]! \: ^3 h. g& {$ T" |(HWND ParentWindow)
( l7 h1 U3 z- G3 \' ]& d　 　 : TForm(ParentWindow)
　 　{
　 　 gi_Canceled=0;
　 　}
( Q2 \, {3 j* y　 　// 取 消 按 钮 并 不 直 接 关 闭 窗 体，
6 x1 H/ d/ H( ]! d# y, r- J而 指 示 设 置 取 消 标 志， 供 调 用 者 查 看
8 C  v: f) @2 [1 F　 　void __fastcall TStatusForm::Button_CancelClick
- J1 j* p% u8 m2 E(TObject ＊Sender)
* ~/ ]# ?  t. M( m" p3 I7 ]+ P　 　{
　 　gi_Canceled=1;
　 　// ModalResult=mrCancel;
　 　}
( i- Q6 k- o- [, `* H- T　 　 　// 激 活 动 画， 在FORMCREATE 事 件 中
7 |6 @: j3 f) ~9 G1 j& f% J; r8 w6 Q　 　void __fastcall TStatusForm::FormCreate
(TObject ＊Sender)
8 H/ R' d' N: t% D　 　{
　 　 Animate1 －&gt;CommonAVI=g_CommonAVI[gi_AVI
6 C0 |) ?: L6 N* u) C/ O- vType];
　 　 Animate1 －&gt;Active = true;
. x) S3 h. j$ T! }　 　}
　
　extern int gi_RequestClose;
　// 定 时 器 事 件 检 测 到 结 束 标 志 关 闭 窗 体
　void __fastcall TStatusForm::Timer1Timer
6 v# ^) b% v! s# o(TObject ＊Sender)
　 　{
4 F9 F) l5 L% m2 ?4 k　 　 if (gi_RequestClose){
  b$ v5 ~8 S/ T' L: @$ W) {　 　 ModalResult=mrOk;
　 　 }
　 　}</P>
/ H4 J& \7 f5 R+ ]$ h& z* `  G<>v6. 设 置 编 译 选 项： 打 开Project Options 对 话 框， 清 除Linker 属 性 页 中 的 Use Dynamic RTL 标 志， 清 除Packages 属 性 页 中 的Build with runtime packages。 这 样 只 要 单 个DLL 就 可 以 运 行 了， 而 不 必 安 装 一 些 动 态 连 接 运 行 时 间 库。 </P>
( }4 t; @) g* Y- x6 o& Z0 m<>二、 使 用 动 画DLL
; h- I2 W8 F+ j----1. 定 义： </P>
<>　 　//Declare －&gt; Global External Functions
1 Z8 ?8 I/ t" o' E% U% ^( P, p　 　FUNCTION Long ShowStatusWindow
(Long AVIType,String WinTitle,long hWnd)
＆LIBRARY “STATWIN.DLL" ALIAS FOR
“Show StatusWindow"</P>
  r6 n3 W' T' i2 \/ c& v<>　 　FUNCTION Long GetCancelStatus
(Long CloseWindow) ＆LIBRARY
“STATWIN.DLL" ALIAS FOR “GetStatus"</P>
<>　 　FUNCTION Long CloseStatusWindow() ＆
& @' c) }3 C: z# o" I& X　LIBRARY “STATWIN.DLL" ALIAS FOR
“CloseStatusWindow"</P>
<>----2. 调 用： </P>
<>　 　long ll_EndTime
　 　// 显 示 查 找 文 件 夹 动 画
, ~# w) X5 C- z4 m; J4 o  k　 　ShowStatusWindow(2)
　 　setpointer(HourGlass!)</P>
<>　 　ll_EndTime = Cpu() ＋ 10 ＊ 1000
　 　DO
4 y) a1 C: N. m0 x% b1 R; M& S/ o, X　 　 if GetCancelStatus(0)=1 then
% ?9 A2 `: p* X3 Z　 　 exit
　 　end if
　 　 // 做 想 做 的 事 情
! l/ b# r0 O2 b/ |; C　 　LOOP UNTIL cpu() &gt; ll_EndTime</P>
<>　 　CloseStatusWindow() </P>
<>
( D* f9 z$ g+ L- _7 ^ </P>