GMan's Mods & Stuff — gman.ZipEngine

ZipEngine and BMX 64 Bit?

null@example.com (Grisu) — Fri, 01 Jan 2016 10:08:23 +0000

Support for CRX (Chrome Extension Files)

null@example.com (paramausi) — Wed, 13 Feb 2013 15:41:48 +0000

Hi there,

the method ScanCentralHeader of Type TZipFileList can be changed to the following code (or similar), in order to make extraction of CRX (Chrome Extension Files) possible via zipengine.

    

    Rem
        bbdoc: Scans the central header for files.  Returns true if successful.
    End Rem
    Method ScanCentralHeader:Int()
    
        SeekStream(zipFile, 0)
        Local magic_number:Int = ReadInt(zipFile);
        Local zip_start_pos:Int = 0;
        
        ' CRX FILE (Google Chrome Extension File), see: http://developer.chrome.com/extensions/crx.html
        If magic_number = $34327243 Then
            
            zip_start_pos:+4;
            
            ReadInt(zipFile); ' CRX Version
            zip_start_pos:+4;
            
            zip_start_pos:+ReadInt(zipFile); ' length of crx public key
            zip_start_pos:+4;
            
            zip_start_pos:+ReadInt(zipFile); ' length of crx signature
            zip_start_pos:+4;
            
            SeekStream(zipFile, zip_start_pos);
            magic_number:Int = ReadInt(zipFile);
            
        EndIf
        
        ' first check to see if its even a valid ZIP file
        If magic_number <> $04034b50 Then 
            DebugLog("Invalid ZIP file!")
            Return False
        EndIf
        
        Local header_start:Int = 0
        
        ' jump to the end
        SeekStream(zipFile, StreamSize(zipFile) - 4)
        
        ' seek the end central directory structure
        While Not StreamPos(zipFile) = 0
            Local sig:Int = ReadInt(zipFile)
            If sig = $06054b50 Then
                ' jump to start of central dir location    
                SeekStream(zipFile, StreamPos(zipFile) + 12)
                header_start = ReadInt(zipFile)
                Exit                
            Else
                ' rewind 3 bytes and try again
                SeekStream(zipFile, StreamPos(zipFile) - 5)
            EndIf
        EndWhile
    
        ' if we found the header, then process
        If Not header_start Then 
            DebugLog("unable to locate central directory!")
            Return False
        EndIf
        
        header_start:+zip_start_pos;
        
        ' seek to the start of the central directory
        SeekStream(zipFile, header_start)
        
        While True And Not Eof(zipFile)
            Local entry:SZipFileEntry = SZipFileEntry.Create()
            If entry.header.fill(zipFile) Then
                FileList.AddLast(entry)

                ' read filename
                entry.zipFileName = entry.header.FileName            
                extractFilename(entry)                                 
            Else
                Exit
            EndIf
        EndWhile
    
        Return True
    EndMethod

zwObject.RemoveFile()?

null@example.com (Grisu) — Sun, 19 Aug 2012 09:13:14 +0000

Hi!

What's the best way to remove a certain file from multiple zip files (1000+) without having to recreate them manually each time?

A command like "zwObject.RemoveFile(filename)" would be quite helpful here.

Grisu

v2.15 - undefined reference again... :)

null@example.com (Grisu) — Fri, 20 Apr 2012 20:05:32 +0000

Hi there!

Thanks for updating this great module.

Sadly, I get a similar error message with your latest release:
Linking:prp044_04_zombie_bunny_fin.exe
C:/BlitzMax/mod/gman.mod/zipengine.mod/zipengine.release.win32.x86.a(zipengine.bmx.release.win32.x86.o):(code+0x670): undefined reference to `zipWriteInFileInZipUTF8'
C:/BlitzMax/mod/gman.mod/zipengine.mod/zipengine.release.win32.x86.a(zipengine.bmx.release.win32.x86.o):(code+0x98a): undefined reference to `zipWriteInFileInZipUTF8'

Can you fix this issue too?

Grisu

P.S.: OS: Win7 (64 Bit) with BMX 1.48, MinGW 4.6.1 and FASM 1.70.

ZipRamStream.ZCreate fails with size=0

null@example.com (plash) — Fri, 13 May 2011 18:55:28 +0000

Unicode streams

null@example.com (siread) — Wed, 13 Apr 2011 09:00:04 +0000

error: storage size of 'tm_buf' isn't known

null@example.com (EdzUp) — Thu, 29 Jul 2010 20:46:44 +0000

is this a common thing or am I doing something wrong?

v2.11 - Undefined reference?

null@example.com (Grisu) — Sat, 24 Jul 2010 23:46:52 +0000

With bmx 1.40 (win7, 64 Bit) I'm getting an error when I try to recompile the new module:
/BlitzMax/mod/gman.mod/zipengine.mod/zipengine.release.win32.x86.a(zipengine.bmx.release.win32.x86.o): undefined reference to `bmx_fill_fopen_filefunc'

v2.10 works fine though?!

Grisu

zrObject.ExtractFileToDisk - Unhandled Exception

null@example.com (Grisu) — Sat, 24 Jul 2010 23:05:22 +0000

Function Extract_Zip()

      Local zrObject:ZipReader = New ZipReader
      Local Extracted_file:String
      Local Scr_file:String 

      SetGadgetText(Curr_Msg_Lab,"Extracting File: ")
    
      If ( zrObject.OpenZip(ServerZIPFile) ) Then

      For Local i:Int=1 To zrObject.getFileCount()-1
                 Scr_file:String=zrObject.getFileInfo(i).zipFileName  
                 Extracted_file=Replace(Scr_file,"Pocket Radio Player/","")

           If Extracted_file.find(".")>0 Then zrObject.ExtractFileToDisk(Scr_file, Extracted_file, True) <- This one!!

         Next

        zrObject.CloseZip()
    End If
        
End Function

Directory structure

null@example.com (Ferret) — Wed, 30 Jun 2010 14:16:56 +0000

Hi,

I wrote a function that creates the needed directory structure and extracts all files in a zip.
Now i want to add a complete directory, including subdirectorys, to a new empty zip.

But, how do i create a directory structure inside a new empty zip?

ZipEngine and incbin

null@example.com (peterigz) — Fri, 12 Mar 2010 00:54:23 +0000

Hello, should it be possible to open a zip that is incbinned?

ei., zip.OpenZip("incbin::myzip.zip")

Doesn't seem to be working, so I guess the next question is, can it be make to work if not?

Thanks!

Addfile: Change source and destination dir+filename?

null@example.com (Grisu) — Tue, 18 Aug 2009 21:50:38 +0000

Hello!

Is it possible to change the source and destination dir+filename when creating a zip?

Somewhat like that:

zwObject.OpenZip("testfile.zip", False) )
zwObject.AddFile("Source\station.txt", "ZipDir\stationzip.txt, password)
zwObject.CloseZip()

Thanks.
Grisu

Bug: ZIPE not freeing up memory / closing stream after usage?

null@example.com (Grisu) — Tue, 18 Aug 2009 18:11:50 +0000

Hi!

In my "Pocket Radio Player" I have a memory leak when I use the stream functions of your module a lot.
It also seems that the zip file is still "locked", even when I already have opened another one.

Example line:
ButtoIco_stop:TIconstrip=LoadIconStrip("zipe::skins\"+filename+"::prp_stop.png")

Is there a way to force the wrapper to close the stream / zip file and free the memory allocated?
The bmx Garbage Collector doesn't help here at all.

Thanks.

Grisu

gman

null@example.com (DaY) — Mon, 27 Jul 2009 20:59:51 +0000

do you have any simple code for ading a dir to a zip keeping the file structure as i have tried to play about with it but im not getting to far here is my code so far

SuperStrict

Import maxGui.Drivers
Import gman.zipengine

Local myStyle:Int                            = WINDOW_TITLEBAR | WINDOW_STATUS | WINDOW_CLIENTCOORDS 
Local myWinSX:Int                            = 636
Local myWinSY:Int                            = 471
Local myDir:String                           = Null 
Local myFile:String                          = Null 
Local myFolder:Int                           = Null 
Local myPassword:String                      = Null 
Local myZipFile:ZipWriter                    = New ZipWriter
Local myWindow:TGadget                       = CreateWindow( "Zip Maker", 195, 16, myWinSX, myWinSY, Null, myStyle )
Local myTreeView:TGadget                     = CreateTreeView( 140, 1, 490, 465, myWindow, Null )
Local myDirChoice:TGadget                    = CreateButton( "Choose Dir", 9, 270, 121, 33, myWindow, BUTTON_OK )
Local mySetPassword:TGadget                  = CreateButton( "Choose Password", 9, 304, 121, 35, myWindow, BUTTON_OK )
Local myCreateZip:TGadget                    = CreateButton( "Create Zip", 9, 339, 121, 37, myWindow, BUTTON_OK )
Local myExit:TGadget                         = CreateButton( "Exit", 8, 378, 122, 86, myWindow, BUTTON_OK )



Repeat 
 WaitEvent()
 Select EventID()
  Case EVENT_GADGETACTION
   Select EventSource()
    Case myDirChoice
         myDir = RequestDir( "Select a Folder" )
         myFolder = ReadDir( myDir )
         SetStatusText myWindow, myDir
         Repeat 
           myFile = NextFile( myFolder )
           If myFile=".." Or myFile="." Or myFile=Null Then
              NextFile( myFolder )
           Else
              AddTreeViewNode( myFile, TreeViewRoot( myTreeView ) )  
           EndIf    
         Until myFile = Null 
    Case mySetPassword
         Local myChildWindow:TGadget         = CreateWindow:TGadget( "Password", 113, 96, 376, 121, myWindow, WINDOW_TITLEBAR | WINDOW_CHILD )
         Local myPasswordEntry:TGadget       = CreateTextField:TGadget( 32, 25, 302, 20, myChildWindow, TEXTFIELD_PASSWORD )
         Local myOk:TGadget                  = CreateButton:TGadget( "Ok", 133, 59, 104, 22, myChildWindow, BUTTON_OK )
         Local myLabel:TGadget               = CreateLabel:TGadget( "Enter Password", 32, 3, 301, 14, myChildWindow, Null ) 
         Local mySelection:Int               = Null 
         Repeat 
           WaitEvent()
            Select EventID()
             Case EVENT_GADGETACTION
              Select EventSource()
               Case myOk   
                myPassword = GadgetText( myPasswordEntry ) 
                HideGadget( myChildWindow )
                FreeGadget( myChildWindow )
                mySelection = 1
              EndSelect 
           EndSelect
         Until mySelection = 1                          
    Case myCreateZip
         myFolder = ReadDir( myDir )
         ChangeDir( myDir )
         SetStatusText myWindow, myPassword
         If ( myZipFile.OpenZip( myDir+"-data.zip", False ) ) Then
            Repeat  
             myFile = NextFile( myFolder )        
             If myFile=".." Or myFile="." Or myFile=Null Then
                NextFile( myFolder ) 
              Else 
                Delay(4000) 
                SetStatusText myWindow, myFile   
                myZipFile.AddFile( myFile, myPassword ) 
              EndIf                
            Until myFile = Null
            myZipFile.CloseZip()
            SetStatusText myWindow, "Zip File Complete!"
         End If
    Case myExit
     End 
   End Select 
 End Select 
Forever

Bug appending to an empty zip?

null@example.com (peterigz) — Mon, 16 Feb 2009 21:27:27 +0000

Hello, if you create a new zip file then close it again so you have a blank zip, then later open it again to append to nothing seems to get added to the zip. Here's an example adapted from the last bug example:

SuperStrict

Framework brl.basic
Import gman.zipengine
Import brl.pixmap
Import brl.pngloader

Local zip:ZipWriter = New ZipWriter
zip.OpenZip("test.zip", False)
zip.CloseZip()

'Create 10 pixmaps and save into a stream in the format:
'Int (size of png)
'Png file
'Int (size of png)
'Png file
'Int (size of png)
'Png file
'.. etc

Local iconbank:TBank = CreateBank()
Local tempstream:TStream = WriteStream(iconbank)
For Local c:Int = 1 To 10
    Local pixmap:TPixmap = CreatePixmap(32, 32, PF_RGBA8888)
    pixmap.WritePixel(c, c, $FFFFFFFF)
    Local tempbank:TBank = CreateBank()
    SavePixmapPNG(pixmap, tempbank)
    tempstream.WriteInt(tempbank.Size())
    WriteBank(tempbank, tempstream, 0, tempbank.Size())
Next

SaveBank(iconbank, "testfile")
zip.OpenZip("test.zip", True)
'add the stream and file to the zip
zip.AddStream(tempstream, "teststream")
zip.AddFile("testfile")
zip.CloseZip()
End

This should create a zip with 2 file in it, but the zip is empty... But I'm not sure if this is normal behaviour

Thanks!