zlib compress/uncompress banks

BlitzMax Forums/BlitzMax Programming/zlib compress/uncompress banks

I have modified the Compression function to save the Packed data after compressing direct to the disk. The sourcebank is a bank that i created in the mainapplication as;

global mybank:tbank=createbank(4096)

Function compressBank:TBank(sourceBank:TBank, level = 9)
	Local destBankSize = Ceil(sourceBank.Size() * 1.001) + 12
	Local destBank:TBank = CreateBank(destBankSize)
	
	compress2(destBank.Buf(), destBankSize, sourceBank.Buf(), sourceBank.Size(), level)
	
	'resize bank to it's compressed size
	destBank.Resize(destBankSize)
	
	savebank (destBank, "Bank.pak" )
End Function


Function uncompressBank:TBank(sourceBank:TBank, destBankSize)
'destBankSize holds size of the uncompressed data saved previously
	Local destBank:TBank = CreateBank(destBankSize)
	
	uncompress(destBank.Buf(), destBankSize, sourceBank.Buf(), sourceBank.Size())
	
	Return destBank
End Function



I want now that i load the compressed bank from disk and uncompress it direct to my bank. how can i realize that.

i create a new bank like:

local banknew:tbank=loadbank("bank.pak")

uncompressBank (banknew, 4095)

i setup the uncompress funtion to this:

uncompress(myBankBank.Buf(), destBankSize, sourceBank.Buf(), sourceBank.Size())

but it does not work! Can someone help me.