c++builder ZIP文件解压与压缩（ZLIB DLL调用）(转载 )

 1 //---------------------------------------------------------------------------
 2 
 3 #ifndef ZipAndFileH
 4 #define ZipAndFileH
 5 #include <Classes.hpp>
 6 //---------------------------------------------------------------------------
 7 class ZipAndFile{
 8     private:
 9 
10     public:
11     ZipAndFile();
12     ~ZipAndFile();
13     //ZIP操作
14     bool DoZipfile(String DoZip,String ZipFilename,String SourceFile,bool Check);
15     //复制目录
16     bool MyCopyFiles(AnsiString FromFile,AnsiString ToFile);
17     //删除目录
18     bool deldir(char* dir_fullpath);
19     };
20 #endif

  1 //---------------------------------------------------------------------------
  2 #pragma hdrstop
  3 #include "ZipAndFile.h"
  4 #include "Tlhelp32.h"
  5 #include <vcl.h>
  6 
  7 //---------------------------------------------------------------------------
  8 ZipAndFile::ZipAndFile()
  9 {
 10 }
 11 ZipAndFile::~ZipAndFile()
 12 {
 13 }
 14 //ZIP压缩与解压
 15 //---------------------------------------------------------------------------
 16 bool ZipAndFile::DoZipfile(String DoZip,String ZipFilename,String SourceFile,bool Check)
 17 {
 18     bool ZipReturn=false;
 19     WideString w1;//必需要这样申请WideString变量，不然传值时会让两个变量使用同一样内存地址，搞了3个小时才发现这是BCB2006的BUG.
 20     WideString w2;
 21     LPCTSTR L1;//必需使用这个格式的变量，不然传过去到DLL时乱码。  
 22     LPCTSTR L2;
 23     if(DoZip=="ZWZipCompress")//压缩
 24     {
 25         w1=SourceFile; 
 26         w2=ZipFilename;
 27         L1=(const char*)w1.c_bstr();
 28         L2=(const char*)w2.c_bstr();
 29         bool __stdcall (*DllMethods)(LPCTSTR,LPCTSTR,bool);
 30         HINSTANCE hInst=NULL;
 31         hInst=LoadLibrary((ExtractFilePath(Application->ExeName)+"ZLibWrap.dll").c_str());//动态加载DLL  //当前目录下的DLL文件  
 32         FARPROC P;
 33         P = GetProcAddress(hInst,DoZip.c_str());
 34         DllMethods=(bool __stdcall (__cdecl *)(LPCTSTR,LPCTSTR,bool))P;
 35         if(DllMethods){
 36             ZipReturn=DllMethods(L1,L2,Check);
 37         }
 38         FreeLibrary(hInst);
 39         return ZipReturn;
 40     }else if(DoZip=="ZWZipExtract")//解压 
 41     {
 42         w1=ZipFilename;
 43         w2=SourceFile;
 44         L1=(const char*)w1.c_bstr();
 45         L2=(const char*)w2.c_bstr();
 46         bool __stdcall (*DllMethods)(LPCTSTR,LPCTSTR);
 47         HINSTANCE hInst=NULL;
 48         hInst=LoadLibrary((ExtractFilePath(Application->ExeName)+"ZLibWrap.dll").c_str());//动态加载DLL  //当前目录下的DLL文件  
 49         FARPROC P;
 50         P = GetProcAddress(hInst,DoZip.c_str());
 51         DllMethods=(bool __stdcall (__cdecl *)(LPCTSTR,LPCTSTR))P;
 52         if(DllMethods){
 53             ZipReturn=DllMethods(L1,L2);
 54         }
 55         FreeLibrary(hInst);
 56         return ZipReturn;
 57     }
 58 }
 59 //复制目录文件
 60 //---------------------------------------------------------------------------
 61 bool ZipAndFile::MyCopyFiles(AnsiString FromFile,AnsiString ToFile)
 62 {
 63     while(true){
 64         if (!DirectoryExists(ToFile)){
 65             CreateDir(ToFile);//文件夹不存在则创建
 66             break;
 67         }else{
 68             deldir(ToFile.c_str());//在就删除
 69         }
 70     }
 71     SHFILEOPSTRUCT op;
 72     String strFrom = FromFile+"\\*.*";
 73     String strTo = ToFile;
 74     op.fAnyOperationsAborted = true;
 75     op.hwnd = NULL;
 76     op.wFunc = FO_COPY;
 77     op.pFrom = strFrom.c_str();
 78     op.pTo = strTo.c_str();
 79     op.fFlags = FOF_NOCONFIRMATION |FOF_NOCONFIRMMKDIR; //FOF_NOCONFIRMATION 不出现确认对话框(当需要覆盖时)
 80     bool b=false;
 81     b=SHFileOperation(&op);
 82     //int kkk= SHFileOperation(&op);
 83     switch(GetLastError())
 84     {
 85         //只要出错就弹出
 86         return false;
 87     }
 88 
 89     return(b);
 90 }
 91 //删除目录文件
 92 //---------------------------------------------------------------------------
 93 bool ZipAndFile::deldir(char* dir_fullpath)     //删除指定的目录
 94 { 
 95     char dir[260]={0};
 96     char filename[260]={0};
 97     int len = 0;
 98     int    ch = ‘\\‘;
 99     strcpy(dir, dir_fullpath);
100     len = strlen(dir);
101     char *temp = strrchr(dir,ch);//查找\\
102     if(len < 4 || temp == NULL)     //根据后面的\\来判断，可能为磁盘根目录或者不是有效的目录路径
103     return false;
104     
105     if(temp != NULL)
106     { 
107         if((temp - dir + 1) != len)     //在目录后添加 ‘\\‘
108         strcat(dir,"\\");
109     }
110     GetCurrentDirectory(260,filename);//得到当前目录
111     strcat(filename,"\\");
112     if(strcmp(dir,filename)==0)    //如果要删除的目录是当前目录
113     { 
114         strcat(filename,"..");
115         SetCurrentDirectory(filename);    //改变当前目录
116     }
117 
118     WIN32_FIND_DATA finddata;
119     HANDLE fFile;
120     bool flag;
121     strcpy(filename,dir);
122     strcat(filename,"*.*");
123     fFile=FindFirstFile(filename,&finddata);
124     flag=true;
125     if(fFile!=INVALID_HANDLE_VALUE)     //此目录有没有效
126     {
127         BOOL bfind=true;
128         while(bfind)
129         {
130             if(finddata.cFileName[0] != ‘.‘)
131             {
132                 strcpy(filename,dir);
133                 strcat(filename,finddata.cFileName);
134                 if(finddata.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)//判断是不是文件夹
135                 {    //删除找到的子目录
136                     strcat(filename,"\\");//如果文件夹就再加上\\后进行递归
137                     flag = flag && deldir(filename); //递归
138                 }
139                 else
140                 {    //删除找到的文件
141                     SetFileAttributes(filename,FILE_ATTRIBUTE_NORMAL);//文件属性设为普通
142                     flag = flag && DeleteFile(filename); //删除
143                 }
144             }
145         bfind = FindNextFile(fFile,&finddata);
146         }
147         FindClose(fFile);
148     }
149     if(flag)
150     {
151         SetFileAttributes(dir_fullpath,FILE_ATTRIBUTE_NORMAL);//去掉只读
152         if(RemoveDirectory(dir_fullpath))//删除空目录
153         return   true;
154     }
155     return   false;
156 }

1 ZipAndFile *TZipAndFile=new ZipAndFile();//新建对像
2 //删除temp文件夹
3         dir_fullpath=(ExePath+"web_back").c_str();//删除web原文件
4         if(TZipAndFile->deldir(dir_fullpath)) ｛｝
5 delete TZipAndFile;// 删除对像