用C++Builder开发动画DLL

原创 2001年06月28日 10:03:00
我 们 在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() 

C++Builder建立及调用DLL

C++Builder建立及调用DLL DLL简称动态链接库,是Windows中程序的重要组成部分。想象一下,一个程序需要多人共同完成开发,怎么个共同法?这时我们就要考虑把程 序分为好几个模块,团队...
  • qq_36096752
  • qq_36096752
  • 2016年11月28日 15:37
  • 1493

VC++和C++builder互相调用动态链接库DLL(VC++编的)笔记

关于动态链接库的具体介绍参考本人转载博客:进程间通信详解 - 动态链接库实现 下文说说自己编写的动态链接库,主要作用是实现用VC++编写的A程序和用C++builder编写的B程序之间的通信,其中涉...
  • daofengdeba
  • daofengdeba
  • 2012年11月25日 11:40
  • 4974

C++Builder及VC的DLL相互调用示例

C++Builder及VC的DLL相互调用示例 由于MS和Borland(CodeGear)两家的编辑器实现细节不同,造成了它们生成的DLL不能相互通用,因此给实际带来了很多的麻烦。下面来说一说如何...
  • shufac
  • shufac
  • 2016年12月21日 08:46
  • 1559

BCB(C++ Builder)创建动态库(DLL,接口导出和调用),动态加载DLL

以前没有封装dll动态库,接触新的工作之后需要用,折腾了一整天,终于搞定了。 毕竟是生手,就简单分析注意点和遇到的一些问题及解决方案: (1)首先准备要生成DLL的工程。 (1.1)我用的是BC...
  • lushangqiushui
  • lushangqiushui
  • 2014年04月03日 22:40
  • 860

C++Builder、C#、VC调用 C++Builder制作的DLL

刚才看见一个网友问关于 VC调用 C++Builder制作的DLL的问题半天没有人回复, 我就写了个最简单的例子//C++Builder6.0制作的DLL //VC6.0调用 //C++Build...
  • zhouzhangkui
  • zhouzhangkui
  • 2010年08月16日 15:15
  • 2978

怎样在C++ Builder中创建使用DLL

版权声明请尊重原创作品。转载请保持文章完整性,并以超链接形式注明原始作者“tingsking18”和主站点地址,方便其他朋友提问和指正。  动态链接库(DLL)是Windows编程常遇到的编程方法,下...
  • tingsking18
  • tingsking18
  • 2006年07月04日 11:13
  • 1415

在Borland C++ Builder6中写DLL初步入门

在BORLAND C++ BUILDER6 写DLL初步实验. 虽然简单, 但是基本弄清了点眉目: 主要步骤: 1 写一个DLL   2 写一个APP来调用DLL   1. 写一个DLL FI...
  • gsnet
  • gsnet
  • 2013年02月26日 15:58
  • 868

C++ builder 自定义控件

在我们开发过程因为软件的需要 很多的系统控件满足不了我们的需求,这个时候就需要我们通过自定义的控件来完成任务 一 自定义控件: 1 新建一个包 File->New->Package 2 再包中点击右键...
  • u010442009
  • u010442009
  • 2014年12月25日 18:26
  • 1071

C++ builder调用vc编写的动态链接库的方法

//启动com库     WSADATA Data_WSA;     int nWSAStartup = WSAStartup(MAKEWORD(1, 1), &Data_WSA);     i...
  • u011014707
  • u011014707
  • 2014年12月24日 16:00
  • 985

BCB(C++Builder或Embarcadero XE)中调用托管DLL的方法(C++调用C#的DLL)

有时候我们的C++代码需要调用C#写的DLL,这就带来一个问题,非托管程序如何调用托管DLL?解决方法是:把C#写的DLL注册成COM组件,这样就可以非托管程序中调用了。详细操作步骤请见本图文教程。...
  • powerants
  • powerants
  • 2014年09月10日 22:14
  • 1188
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用C++Builder开发动画DLL
举报原因:
原因补充:

(最多只允许输入30个字)