PureBasic Forums - English

Code: Select all

The purpose of PureZIP is to handle ZIP files.
It uses the ZLIB library 1.2.3 (c) 1995-2004 Jean-loup Gailly and Mark Adler modified by Gilles Vollant.

The library supports classic PKZIP 2.04g archives :
- compression
- extraction
- encryption (ZIP 2.0)
... and for the latest versions :
- file deletion in archive
- file renaming in archive
- read archive from memory

Code: Select all

Procedure CallbackForTest(file.s, PerCent.f)
  Debug StrF(PerCent, 2) + "%"
EndProcedure
;
myFileinfo.PureZIP_FileInfo
PureZIP_SetProgressionCallback(@CallbackForTest())
;
MyZIP.s = "C:\PureBasic393\Program\PureZIP\essai1\test.zip"
MyFilesToZIP.s = "C:\PureBasic393\Program\PureBriefLZ\*.*"
MyZIPOutPut.s = "C:\PureBasic393\Program\PureZIP\essai3\"
; Create archive
Debug PureZIP_AddFiles(MyZIP, MyFilesToZIP, #PureZIP_StorePathAbsolute, #PureZIP_Recursive)
; Extract files from archive
Debug PureZIP_ExtractFiles(MyZIP, "*.*", MyZIPOutPut, #TRUE)
; Count files in archive
Debug PureZIP_GetFileCount(MyZIP)
; Add memory bank to archive
Debug PureZIP_AddMemory(MyZIP, "MemoryTest.txt", @MyZIP, Len(MyZIP))
; On file more in archive :
Debug PureZIP_GetFileCount(MyZIP)
; Get files information
For i = 0 To PureZIP_GetFileCount(MyZIP) - 1
   Debug PureZIP_GetFileInfo(MyZIP,i , @myFileinfo)
   Debug "Number " + Str(i)
   Debug "Filename: " + myFileinfo\FileName
   Debug "Compressed Size: " + Str(myFileinfo\CompressedSize)
   Debug "Uncompressed Size: "+ Str(myFileinfo\unCompressedSize)
   Debug "--------------"
Next