The user can open an archive by clicking the "Open Archive" button, which prompts the user to select a zip file to open. We then list the contents of the zip archive selected through the use of the following handler:

on listZipContents pArchive
	revZipOpenArchive pArchive, "read"
	local tZipContents
	put revZipEnumerateItems(pArchive) into tZipContents
	put tZipContents into field "FileList"
	revZipCloseArchive pArchive
end listZipContents

This handler simply opens the zip archive for reading, enumerates its items through the use of revZipEnumerateItems and puts the result into the FileList field.

Depending on the program that was used to create the zip file, this may include folder items. We will display those, but they will be ignored upon extraction as revZip cannot handle folders. Also revZip can only extract items that have been compressed using the "deflate" type, it will still display files that have been compressed otherwise, but we will ignore them on extraction as we cannot handle them.

The first few lines make sure that the location folder does not exist, if it does it adds a period and a number to the end of the folder name until no such folder exists. The item is then opened, and for each line in the FileList field, we extract the item from the zip file. As mentioned above, we can only do this if deflate compression was used, thus we use the revZipDescribeItem function to find out what compression type was used. Item 6 of its result gives us the compression type.

We simply ignore files we cannot handle. Likewise, we also ignore folders.

When extracting an item from a zip archive to a file, it is important that we ensure that containing folder of that file exists. This is the purpose of the ensureFolder handler in the above code: it makes sure that the containing folder and all its parents exist.

When the user clicks the extract button, the following code is executed:

on extractArchive pArchive, pWhere
	put false into sZipCancelled
	local tLocation
	set the itemDel to "/"
	put pWhere into tLocation
	if char -1 of tLocation is not "/" then
		put "/" after tLocation
	end if
	
	-- We assume that our archive has a filename of <archive>.zip
	put char 1 to -5 of item -1 of pArchive after tLocation
  
	-- Make sure that we can extract to a folder that does not exist:
	set the itemDel to "."
	if there is a folder tLocation then
		local tCount
		put 1 into tCount
		put "." & tCount after tLocation
		repeat until there is no folder tLocation
			add 1 to tCount
			put tCount into item -1 of tLocation
		end repeat
	end if
	set the itemDel to comma
  
	-- Open the archive for reading.
	revZipOpenArchive pArchive, "read"
  
	-- As the work happens in the revZipExtractItemToFile in this case, we register the callback here.
	set the label of button "Extract" to "Cancel"
	revZipSetProgressCallback "zipProgressCallback"
  
	repeat for each line tItem in field "FileList"
		if char -1 of tItem is "/" then
			-- we ignore extraction of folders, as libzip doesnt handle folders
		else if item 6 of revZipDescribeItem(pArchive,tItem) is "deflate" then
			-- first make sure that the folder exists
			set the itemDel to "/"
			ensureFolder tLocation & "/" & item 1 to -2 of tItem
			set the itemDel to ","
			revZipExtractItemToFile pArchive, tItem, tLocation & "/" & tItem
		else
			-- ignore this item, possibly displaying a message to the user, that this file cannot be extracted
			-- because its compression type is not supported by this program
		end if
	end repeat
  
	revZipCloseArchive pArchive
  
	hide group "ProgressBar"
	set the label of button "Extract" to "Extract"
end extractArchive

Secondly, we also wish to create a zip archive. The user can click the new archive button, to create a new archive. All this does is emptying the FileList field, and hiding buttons such as the Extract button and showing the Zip button.

The user can now add files and folders to the FileList field by clicking the appropriate buttons.

After hitting the Zip button, and typing a filename for our target zip archive, the following code is executed:

on createZipFile pZipFile
	put false into sZipCancelled
	set the itemDel to "/"
	revZipOpenArchive pZipFile, "write"
	repeat for each line tFile in field "FileList"
		if char -1 of tFile is "/" then
			addFolderToArchive pZipFile, tFile
		else
			addFileToArchive pZipFile, item -1 of tFile, tFile
		end if
	end repeat
  
	set the label of button "Zip" to "Cancel"
	revZipSetProgressCallback "zipProgressCallback"
  
	revZipCloseArchive pZipFile
  
	hide group "ProgressBar"
	set the label of button "Zip" to "Zip"
end createZipFile

This simply opens the archive for writing, and for each line in the FileList field, depending on whether the last character is a slash or not, either adds a file or a folder (and all its contents) to the archive. Finally, it closes the archive. This is where all the work happens, thus this is where we have set up the progress callback. We also set the label of the Zip button to Cancel, allowing the user to cancel the zip operation.

The above code depends on two handlers that implement the addition of files and folders to the archive respectively.

These are implemented as follows:

on addFileToArchive pArchive, pName, pFile
	revZipAddItemWithFile pArchive, pName, pFile
end addFileToArchive
on addFolderToArchive pArchive, pFolder, pPrefix
	if char -1 of pFolder is "/" then
		delete char -1 of pFolder
	end if
	
	local tOldFolder
	set the itemDel to "/"
	put the defaultFolder into tOldFolder
	set the defaultFolder to pFolder
  
	repeat for each line tFile in the files
		addFileToArchive pArchive, pPrefix & item -1 of pFolder & "/" & tFile, pFolder & "/" & tFile
	end repeat
  
	repeat for each line tFolder in the folders
		if tFolder is among the items of "./.." then next repeat
		addFolderToArchive pArchive, pFolder & "/" & tFolder, pPrefix & item -1 of pFolder & "/"
	end repeat
end addFolderToArchive

The addFileToArchive handler simply calls revZipAddItemWithfile to add the file to the ziparchive. The addFolderToArchive handler simply adds all the files of the folder and the files of all the folders within the folder recursively.

Finally, to finish off, we want to implement a progress callback, and add cancellation to this.

As you can read in the above code, we have defined the progress callback to revZip to be "zipProgressCallback". This handler is implemented as follows:

on zipProgressCallback pArchive, pItem, pType, pItemProgress, pItemtotal, pGlobalProgress, pGlobalTotal
	if not sZipCancelled then
		if the visible of group "ProgressBar" is false then
			set the visible of group "ProgressBar" to true
		end if
	
		-- set global progress (of the entire zip file)
		set the cProgress of group "ProgressBar" to pGlobalProgress/pGlobalTotal
		-- set item progress (of the item being written to the zip file)
		set the cItemProgress of group "ProgressBar" to pItemProgress/pItemTotal
		-- allow the user to cancel
		wait 1 milliseconds with messages
	else
		-- The user has cancelled, so cancel the operation and hide the progress bar.
		revZipCancel
		hide group "ProgressBar"
	end if
end zipProgressCallback

If the zip creation/extraction was not cancelled, we can proceed and set the progress of the progress bar. Notice the wait statement in the above code. This is vital to make cancellation work: it causes LiveCode to check the events queue and will thus catch an instance of the user clicking on the cancel button. Otherwise, you will notice that you cannot click on anything and the whole program will be locked until the operation has finished.  Finally, you can only cancel zipcreation from within the progresscallback, which is why we do it here (its a good place to do it anyway).

All our cancel button has to do is set the flag sZipCancelled to true, which will cause the progressCallback to execute revZipCancel which cancels the whole process, and hides the progress bar.

I have chosen not to hide the itemProgress bar in case of extraction, so that it demonstrates how itemProgress is equal to globalProgress in the case of extraction. In the case of creation you will notice that both bars differ.

Thus, in no time at all, we have written a zip utility that allows us to create and extract from zip files easily. We can easily extend our program to be more user friendly by adding drag drop to the FileList for example. Also, we can use revZip to modify existing archives by allowing users to remove files from them or even to add files or folders (content) to them.