Hello,
I try to compress a binary file using CompressLZWMBS
To do this I read the file in chunks like this :
dim mFile as BinaryStream
dim f as FolderItem
dim sChunk as String
f= GetFolderItem ("d:\WindowsPhoneDeveloperResources_en-US_Patch1.msp")
'*Filesize : 120 MB ( CompressLZWMBS does not work)
'f= GetFolderItem ("C:\WINDOWS\notepad.exe")
'* Filesize : 70 KB ( CompressLZWMBS works)
mFile = f.OpenAsBinaryFile( false )
sChunk = mFile.Read( 1024*1024 ) '** read 1 MB Chunk from File.
'sChunk = mFile.Read( 100 000 ) '** read 100KB Chunk from
File....same error
sChunk = CompressLZWMBS ( sChunk) '** compress...
MsgBox str (len ( sChunk)) '** 0 ... -> problem
The compression does work for some smaller files like notepad.exe (oder
pictures)... but it seems that the compression doesnt work for all files
The result is ""...the help says that "" is returned in case of buffer overflow
or low memory...but I dont see a reason why this could be the case here...
I use Windows XP, Plugin Version 10.5
thanks
_______________________________________________
Mbsplugins_monkeybreadsoftware.info mailing list
[email protected]
https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info
