Zip/Unzip for BlitzMax

TommyBear

Hi Everyone,

I managed to get the zip/unzip functionality into the existing zlib module done today. Though it is a little rough and needs to be cleaned before I pass it on to the community. The code below takes a file, creates a zip file, adds the file, then gets it back again. Don't worry I'll make it much simpler to use before I submit it (with a much nicer interface).

Rem
	
	Zip File demo 1 - Creating and adding to a zip file and getting it back!
	
	Notes:
	
	This example demonstrates the ability create a zip file and add files to
	it.	
		
End Rem

Import Pub.ZLib
Main()	' Call our entry point

Function Main()
	Local inFile:TStream = OpenFile( "test.txt" )
	Local zipFile:Byte Ptr = Null 
	
	If (inFile) Then
	
		Local inSize:Int = StreamSize(inFile)
		Local inData:Byte[] = New Byte[inSize]
		
		For pos = 0 To inSize - 1
			SeekStream( inFile, pos )
			inData[pos] = ReadByte ( inFile )
		Next

		' Open the file in create mode
		zipFile = zipOpen( "data.zip", APPEND_STATUS_CREATE )

		' Open the test.txt as a new entry inside the zip
		zipOpenNewFileInZip( zipFile, "test.txt", Null, Null, Null, Null, Null, Null, ..
							Z_DEFLATED, Z_DEFAULT_COMPRESSION )
		
		' Write the file into the zip
		zipWriteInFileInZip( zipFile, inData, inSize )

		zipClose( zipFile, "Our cool zip file" )
	End If
	
	' Now let's open it and get our file back out
	Local result:Int = 0
	Local outStream:TStream = WriteStream("new.txt")
	Local numberOfBytes:Int
	Local data:Byte Ptr

	zipFile = unzOpen( "data.zip" )
	
	If (zipFile) Then
		result = unzLocateFile( zipFile, "test.txt", UNZ_NO_CASE_CHECK )
		
		If ( result = UNZ_OK ) Then
			result = unzOpenCurrentFile( zipFile )
			
			If ( result = UNZ_OK ) Then
			
				Local size = unzGetCurrentFileSize(zipFile)

				data = New Byte Ptr[size]
				numberOfBytes = unzReadCurrentFile (zipFile, data, size )
				
				For i:Int = 1 To size
					WriteByte( outStream, data[i] )
				Next 
				
				CloseStream ( outStream )
				
			End If
		End If
		unzClose( zipFile )	
	End if
	
End Function

msephton

Well done Tommy

TommyBear

Okay I've put the ZipEngine modules and a sample on my server... you get get info in the module tweak forum..

Cya!

Tommy.

Arcadenut

Where is this located?