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)
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.
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.