用户登录  |  用户注册
首 页商业源码原创产品编程论坛
当前位置:PB创新网文章中心编程技巧编程其他

用C++Builder开发动画DLL

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2009-03-16 19:37:03
我 们 在Windows98 环 境 下 执 行 拷 贝 文 件、 查 找 文 件 等 计 算 机 耗 时 较 长 的 操 作 时,Windows 会 显 示 一 个 小 小 的 动 画, 指 示 正 在 进 行 的 操 作, 与 死 板 的 静 止 图 像 相 比 增 色 不 少。 那 么 我 们 自 己 开 发 软 件 时, 能 否 也 显 示 一 个 这 样 的 动 画 提 示 呢 ? 笔 者 开 发 了 一 个 能 够 在PB 下 调 用 的 动 画DLL, 由 于 采 用 多 线 程 编 程,PB 调 用 的DLL 函 数 能 够 及 时 将 控 制 权 交 还 给PB, 不 影 响 应 用 系 统 的 运 转。 

一、 代 码 与 编 译 选 项
在C + +Builder 中 创 建 一 个 空 白 的DLL 项 目。 
创 建 一 个 空 白 的Form, 修 改 它 的 属 性 为: 
BorderStyle=bsDialog
BorderIcons 的 子 属 性 均 为False
FormStyle=fsStayOnTop
Position= poScreenCenter
Name=StatusForm

在Form 上 添 加 一 个Win32 下 的Animate 控 件Animate1, 修 改 它 的 属 性 为 
Align=alTop

在Form 上 添 加 一 个Standard 下 的Button 控 件Button_Cancel, 再 添 加System 下 的Timer 控 件Timer1, 设 置 定 时Interval 时 间 位250, 较 快 响 应 用 户 的 取 消 请 求。 
----因 为PB 应 用 系 统 与 动 画 窗 体 代 码 分 别 属 于 两 个 线 程, 不 能 采 用PB 线 程 直 接 关 闭 动 画 窗 体 线 程 的 窗 口, 否 则 会 引 起 系 统 运 行 不 正 常, 因 此 采 用PB 线 程 设 置 关 闭 标 志, 而 动 画 线 程 采 用Timer 控 件 定 时 检 查 标 志, 一 旦 检 测 到 关 闭 标 志, 就 关 闭 窗 口, 清 除 线 程 标 志, 结 束 动 画 线 程。 

----5. 下 面 给 出 编 码 及 编 码 原 理: 

----(1)DLL 主 体 代 码: 

/ *DLL 主 体 代 码
  * 定 义DLL 公 用 变 量
*g_CommonAVI 对Animate 控 件
动 画 类 型 索 引
 *gi_Canceled Button_Cancel 
按 钮 是 否 被 选 择 过
 *gi_AVIType 要 显 示 的 动 画 类 型,
由DLL 输 出 函 数 做 为 参 数 输 入
 *gi_RequestClose 请 求 动 画 线 程 关 闭 标 志
 *gi_WindowActive 动 画 窗 口 所 处 的 状 态
 *lpsWinTitle 动 画 窗 体 的 标 题,
由DLL 输 出 函 数 做 为 参 数 输 入
 */

   TCommonAVI g_CommonAVI[]={
    aviNone, aviFindFolder,
    aviFindFile, aviFindComputer,
   aviCopyFiles, aviCopyFile,
    aviRecycleFile, aviEmptyRecycle,
   aviDeleteFile
   };
   int gi_Canceled=0,gi_AVIType=0;
   int gi_RequestClose=0,gi_WindowActive=0;
   char lpsWinTitle[256];
   HWND hWndParent=NULL;

   / * 定 义DLL 输 出 函 数 */
   extern “C" __declspec(dllexport) int pascal Dll 
?? EntryPoint(HINSTANCE hinst, unsigned 
long reason, void *);
   extern “C" __declspec(dllexport) int pascal
ShowStatus Window
(int AVIType,LPSTR WinTitle,long hWnd);
extern “C" __declspec(dllexport) 
int pascal GetStatus(int ai_CloseWin);
extern “C" __declspec(dllexport)
int pascal CloseStatusWindow();

    / * 定 义 线 程TformThread: */
   class TFormThread : public TThread{
   public: // User declarations
   __fastcall TFormThread(bool CreateSuspended);
   void __fastcall Execute(void);
   };
   __fastcall TFormThread::
TFormThread(bool CreateSuspended):
TThread(CreateSuspended){
   }
/ * 动 画 线 程 执 行 代 码,
动 画 窗 体 的 定 时 器 控 件 会 关 闭 它,
清 除 窗 体 存 在 标 志 后 结 束 线 程 的 运 行
*/
   void __fastcall TFormThread::Execute(void){
   gi_WindowActive=1;
    StatusForm=new TStatusForm(NULL);

    StatusForm ->Caption=lpsWinTitle;
    StatusForm ->ShowModal();
    gi_WindowActive=0;
    delete StatusForm;
    gi_RequestClose=0;
   }
   / * 定 义 一 个 线 程 实 例 指 针 */
   TFormThread *FormThread;
    / * 输 出 函 数 代 码 实 现 部 分
    * DllEntryPoint 32 位DLL 入 口
    * ShowStatusWindow 显 示 动 画 窗 口,
它 通 过 创 建 一 个 线 程 来 创 建 窗 口,
避 免 由 于 窗 口 的MODAL 属 性 而 使
控 制 权 不 能 及 时 的 返 还 给 调 用 者
    * GetStatus 取 得“ 取 消” 状 态,
即 用 户 有 没 有 选 择“ 取 消” 按 钮
    * CloseStatusWindow 关 闭 动 画 窗 口,
    */
   __declspec(dllexport) int WINAPI DllEntryPoint 
(HINSTANCE hinst, unsigned long reason, void *)
   {
   return 1;
   }

 __declspec(dllexport) int pascal ShowStatusWindow
(int AVIType,LPSTR WinTitle,long hWnd){
 hWndParent=(HWND)hWnd;
memset(lpsWinTitle,0,sizeof(lpsWinTitle));
 strncpy(lpsWinTitle,WinTitle,sizeof(lpsWin Title) -1);
if (AVIType>0 & & AVIType<=8) gi_AVIType="AVIType;"     FormThread="new" TFormThread(true);       FormThread ->Priority = tpNormal;
    FormThread ->Resume();
   }

 __declspec(dllexport) int pascal GetStatus
(int ai_CloseWin){
   if (gi_Canceled)
   if (gi_WindowActive){
   gi_RequestClose=1;
    while(gi_RequestClose);
    }

    return gi_Canceled;
   }

   __declspec(dllexport) int pascal CloseStatusWindow(){
    if (gi_WindowActive){
   gi_RequestClose=1;
    while(gi_RequestClose);
   }

    return gi_Canceled;
   }


----(2) 窗 体StatusForm 的 代 码: 

   TStatusForm *StatusForm;
   extern int gi_Canceled;
   extern int gi_AVIType;
   extern TCommonAVI g_CommonAVI[];
   __fastcall TStatusForm::TStatusForm
(HWND ParentWindow)
    : TForm(ParentWindow)
   {
    gi_Canceled=0;
   }
   // 取 消 按 钮 并 不 直 接 关 闭 窗 体,
而 指 示 设 置 取 消 标 志, 供 调 用 者 查 看
   void __fastcall TStatusForm::Button_CancelClick
(TObject *Sender)
   {
   gi_Canceled=1;
   // ModalResult=mrCancel;
   }
     // 激 活 动 画, 在FORMCREATE 事 件 中
   void __fastcall TStatusForm::FormCreate
(TObject *Sender)
   {
    Animate1 ->CommonAVI=g_CommonAVI[gi_AVI 
Type];
    Animate1 ->Active = true;
   }
 
 extern int gi_RequestClose;
 // 定 时 器 事 件 检 测 到 结 束 标 志 关 闭 窗 体
 void __fastcall TStatusForm::Timer1Timer
(TObject *Sender)
   {
    if (gi_RequestClose){
    ModalResult=mrOk;
    }
   }

v6. 设 置 编 译 选 项: 打 开Project Options 对 话 框, 清 除Linker 属 性 页 中 的 Use Dynamic RTL 标 志, 清 除Packages 属 性 页 中 的Build with runtime packages。 这 样 只 要 单 个DLL 就 可 以 运 行 了, 而 不 必 安 装 一 些 动 态 连 接 运 行 时 间 库。 

二、 使 用 动 画DLL 
----1. 定 义: 

   //Declare -> Global External Functions
   FUNCTION Long ShowStatusWindow
(Long AVIType,String WinTitle,long hWnd)
&LIBRARY “STATWIN.DLL" ALIAS FOR
“Show StatusWindow"

   FUNCTION Long GetCancelStatus
(Long CloseWindow) &LIBRARY
“STATWIN.DLL" ALIAS FOR “GetStatus"

   FUNCTION Long CloseStatusWindow() &
 LIBRARY “STATWIN.DLL" ALIAS FOR
“CloseStatusWindow"

----2. 调 用: 

   long ll_EndTime
   // 显 示 查 找 文 件 夹 动 画
   ShowStatusWindow(2)
   setpointer(HourGlass!)

   ll_EndTime = Cpu() + 10 * 1000
   DO
    if GetCancelStatus(0)=1 then
    exit
   end if
    // 做 想 做 的 事 情
   LOOP UNTIL cpu() > ll_EndTime

   CloseStatusWindow() 

Tags:

作者:佚名

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
PB创新网ourmis.com】Copyright © 2000-2009 . All Rights Reserved .
页面执行时间:28,984.38000 毫秒
Email:ourmis@126.com QQ:2322888 蜀ICP备05006790号