fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Luiz Rafael Culik
2000-05-31 02:28:09 +00:00
parent 955f4bb9ab
commit 2c39ddf384
2 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/contrib/hbzlib/hbzip.h
View File

@@ -40,7 +40,9 @@
#include "hbapi.h"
#include "hbapiitm.h"
#include "hbapifs.h"
#include "hbapigt.h"
#include "hbvmpub.h"
#include "hbvm.h"
#define WIN32
#include "zip.h"
#include "unzip.h"
@@ -50,8 +52,8 @@ extern "C" {
extern uLong hb___filetime(char *f, tm_zip *tmzip, uLong *dt);
extern char *hb___CheckFile( char * szFile);
extern int hb___CompressOneFile(char *szFile,char *szFiletoCompress,int iCompLevel);
extern int hb___CompressMultipleFile(char *szFile,PHB_ITEM pArray,int iCompLevel);
extern int hb___CompressOneFile(char *szFile,char *szFiletoCompress,int iCompLevel,PHB_ITEM pBlock,BOOL iOverWrite);
extern int hb___CompressMultipleFile(char *szFile,PHB_ITEM pArray,int iCompLevel,PHB_ITEM pBlock,BOOL iOverWrite);
extern int hb___unZipFiles(char *szFile);
extern int hb___ExtractCurrentFile(unzFile uf,const int* popt_extract_without_path,int* popt_overwrite);
extern void hb____ChangeFileDate(const char *filename,uLong dosdate,tm_unz tmu_date);

11
harbour/contrib/hbzlib/test.prg
View File

@@ -0,0 +1,11 @@
Function Main()
HB_ZIPFILE('test.zip','zip.h',,{|cFile| qout(cFile)})
HB_ZIPFILE('test2.zip','zip.h')
Hb_ZIPFILE('test12.zip',{'.\test.prg','.\zlib.h','.\zip.h','..\..\obj\b32\test.obj'},8,{|cfile| qout(cfile)})
/*
erase zip.h
? 'unzipping file'
hb_unzipfile('test.zip')
hb_unzipfile('test12.zip')
*/
return nil