📄 bcjq005.txt

📁 c++ builder 的一些txt文档
💻 TXT
字号:

C++ Builder开发者：程序员之家
var how_many_ads = 3;
var now = new Date()
var sec = now.getSeconds()
var ad = sec % how_many_ads;
ad +=1;
 
  
  
    
      
        
          
            首页   
              | 控件天堂 | 控件使用                
              | 编程技巧                 
              |  源代码 |  编程工具 |     
               系统补丁 |  电子书籍 | 技术论坛                 
              |  相关链接              
                        
                      
                    
                  
                  
                    
                      
                        
                          
                        
              
       if (ad==1) {document.write(''+'');}            
       if (ad==2) {document.write(''+'');}            
       if (ad==3) {document.write(''+'');}            
                           
                        
                     
                                 
                     
                   
                 
               
               
                 
                   
                     
                       
                    
                  
var marqueecontents=''+scroll_text+''        
if (document.all)        
document.write(''+marqueecontents+'')        
function regenerate(){        
window.location.reload()        
}        
function regenerate2(){        
if (document.layers){        
setTimeout("window.onresize=regenerate",450)        
intializemarquee()        
}        
}        
function intializemarquee(){        
document.cmarquee01.document.cmarquee02.document.write(marqueecontents)        
document.cmarquee01.document.cmarquee02.document.close()        
thelength=document.cmarquee01.document.cmarquee02.document.height        
scrollit()        
}        
function scrollit(){        
if (document.cmarquee01.document.cmarquee02.top>=thelength*(-1)){        
document.cmarquee01.document.cmarquee02.top-=speed        
setTimeout("scrollit()",100)        
}        
else{        
document.cmarquee01.document.cmarquee02.top=marqueeheight        
scrollit()        
}        
}        
window.onload=regenerate2        
                    
                      
                    
                  
                
              
              
                
                  
                    
                      
                        
                          
                            
                  当前位置
 
                    ：
 
                    编程技巧         
                         
                       
                     
                     
                     
                       
                         
                           
                    利用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 &quot;C&quot; __declspec(dllexport) 
int pascal DllEntryPoint(HINSTANCE hinst,
 unsigned long reason, void*);
extern &quot;C&quot; __declspec(dllexport) int 
pascal ShowStatusWindow(int AVIType,
LPSTR WinTitle,long hWnd);
extern &quot;C&quot; __declspec(dllexport) int 
pascal GetStatus(int ai_CloseWin);
extern &quot;C&quot; __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- &gt;Caption=lpsWinTitle;
     StatusForm- &gt;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 &gt;0 &amp;&amp; AVIType&lt;=8) gi_AVIType=&quot;AVIType;&quot; FormThread=&quot;new&quot; TFormThread(true); FormThread-&gt;Priority = tpNormal;
    FormThread- &gt;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- &gt;CommonAVI=g_CommonAVI[gi_AVIType];
      Animate1- &gt;Active = true;
}
//-----------------------------------
extern int gi_RequestClose;
// 定时器事件检测到结束标志关闭窗体
void __fastcall TStatusForm::
Timer1Timer(TObject *Sender)
{
   if (gi_RequestClose){
      ModalResult=mrOk;
   }
}
//-----------------------------------
  
            
---- (5) 设置编译选项：Project-&gt;Options打开Project   
            Options对话框，清除Linker属性页中的Use Dynamic RTL标志，清除Packages属性页中的Build   
            with runtime packages。这样只要单个DLL就可以运行了，而不必安装一些动态连接运行时间库。   
            使用动画DLL  
            
---- 上面编译出DLL可以由其它任何开发语言调用，下面给出在PB中的使用方法。  
            
---- (1) 定义：  
            //Declare - &gt; Global External Functions
FUNCTION Long ShowStatusWindow(Long
 AVIType,String WinTitle,long hWnd) &amp;
    LIBRARY &quot;STATWIN.DLL&quot; ALIAS FOR &quot;ShowStatusWindow&quot;
FUNCTION Long GetCancelStatus(Long  CloseWindow) &amp;
    LIBRARY &quot;STATWIN.DLL&quot; ALIAS FOR &quot;GetStatus&quot;
FUNCTION Long CloseStatusWindow() &amp;
    LIBRARY &quot;STATWIN.DLL&quot; ALIAS FOR &quot;CloseStatusWindow&quot;
  
            
---- (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() &gt; ll_EndTime
CloseStatusWindow()  
                            
                          
                        
                            
                    
                          
                            
                          
                  if (ad==1) {document.write(''+'');}          
                  if (ad==2) {document.write(''+'');}          
                  if (ad==3) {document.write(''+'');}          
                                            
                          
                        
                      
                    
               
                
                  
                    
                  
                  
                      
                  
                
                   
                 
               
             
           
           
             
               
                 
                   
            C++ Builder开发者&reg;        
              2000年06月01日 站长：唐朝
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -