·天新网首页·加入收藏·设为首页·网站导航
数码笔记本手机摄像机相机MP3MP4GPS
硬件台式机网络服务器主板CPU硬盘显卡
办公投影打印传真
家电电视影院空调
游戏网游单机动漫
汽车新车购车试驾
下载驱动源码
学院开发设计
考试公务员高考考研
业界互联网通信探索
您现在的位置:天新网 > 软件开发 > 开发语言 > C++ Builder
用C++Builder开发动画DLL
http://www.21tx.com 2002年08月12日 C++builder资源中心 刘学平
  我们在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 DynamicRTL标志,清除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()

上一篇: 在BCB中使用DirectX
下一篇: Windows下DLL编程技术及应用

关于我们 | 联系我们 | 加入我们 | 广告服务 | 投诉意见 | 网站导航
Copyright © 2000-2011 21tx.com, All Rights Reserved.
晨新科技 版权所有 Created by TXSite.net