查看: 3859|回复: 0

用C＋＋Builder开发动画DLL

字体大小: 正常放大

韩冰

823 主题	3 听众	4048 积分

我的地盘我做主

该用户从未签到

电梯直达

1^#

发表于 2005-1-26 12:56 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

<

>我们在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 －&gt

riority = 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() 
<

>

zan