利用C++ Builder开发动画DLL 厦门前沿科技开发有限公司 刘学平 ---- 我们在Windows98环境下执行拷贝文件、查找文件或计算机等耗时比较长的操作时，Windows会显示一个小小的动画，指示正在进行的操作，与死板的静止图像相比增色不少。那么我们自己开发软件时，能否也显示一个这样的动画提示呢？我在开发一个外贸应用软件系统时，遇到的数据量很大，当通过复合条件查找时，因为不是数据库表的每个项目都有索引，所以很费时，系统也会表现出长时间停顿，用户感觉极为不爽。我经过一段时间的探索，开发了一个能够在采用的开发环境PowerBuilder下调用的动画DLL，由于采用多线程编程，PB调用的DLL函数能够及时将控制权交还为PB，不影响应用系统的运转。用户能够看到一个东西在动，也就不会想到系统是不是停止响应了，感觉时间也似乎没那么久了。 ---- 代码与编译选项 ---- (1) 在C++Builder的File菜单下选择New，在New Item对话框的New属性页中选择DLL，C++Builder就会创建一个空白的DLL项目。 ---- (2) 在File菜单下选择New Form，C++Builder创建一个空白的Form，修改它的属性为
    BorderStyle=bsDialog

    BorderIcons的子属性均为False

    FormStyle=fsStayOnTop

    Position= poScreenCenter

    Name=StatusForm
---- (3) 在Form上添加一个Win32下的Animate控件Animate1，修改它的属性为
    Align=alTop
---- (4) 在Form上添加一个Standard下的Button控件Button_Cancel，再添加System下的Timer控件Timer1，设置定时Interval时间位250，以较快的响应用户的取消请求。 ---- 因为PB应用系统与动画窗体代码分别属于两个线程，不能采用PB线程直接关闭动画窗体线程的窗口，否则会引起系统运行不正常，因此采用PB线程设置关闭标志，而动画线程采用Timer控件定时检查标志，一旦检测到关闭标志，就关闭窗口，清除线程标志，结束动画线程。 ---- 下面给出编码及编码原理： ---- 1．DLL 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 DllEntryPoint(HINSTANCE hinst,

     unsigned long reason, void*);

    extern "C" __declspec(dllexport) int

    pascal ShowStatusWindow(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(lpsWinTitle)-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_AVIType];

          Animate1- >Active = true;

    }

    //-----------------------------------

    extern int gi_RequestClose;

    // 定时器事件检测到结束标志关闭窗体

    void __fastcall TStatusForm::

    Timer1Timer(TObject *Sender)

    {

       if (gi_RequestClose){

          ModalResult=mrOk;

       }

    }

    //-----------------------------------
---- (5) 设置编译选项：Project->Options打开Project Options对话框，清除Linker属性页中的Use Dynamic RTL标志，清除Packages属性页中的Build with runtime packages。这样只要单个DLL就可以运行了，而不必安装一些动态连接运行时间库。使用动画DLL ---- 上面编译出DLL可以由其它任何开发语言调用，下面给出在PB中的使用方法。 ---- (1) 定义：
    //Declare - > Global External Functions

    FUNCTION Long ShowStatusWindow(Long

     AVIType,String WinTitle,long hWnd) &

        LIBRARY "STATWIN.DLL" ALIAS FOR "ShowStatusWindow"

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