先声明,原来的基础代码来自这里
http://www.vbcodelibrary.co.uk/modules.php?op=modload&name=Forums&file=viewtopic&topic=1836&forum=7
我只是在压缩的字节组中加入了文件的长度存储。免去了要另外记住文件长度的麻烦。
这个类的优点在于不使用系统外的 Dll 文件。对网络程序中通讯数据压缩很有用。
呵呵,我写东西就是要用到它~~
缺点也显而易见,
1,用 WinRAR 等软件无法打开压缩过的文件,
因为只有数据段,并没有索引段,我只加了个原始文件长度上去。
2,没有对大文件进行分段读取。
因为我的通讯数据都很小,没有必要分段压缩。
3,没有数据校验。
当您能将上面列出的问题解决了,你的程序就可以拿来买咯,弄到好就成了 WinZIP 了...
以下是源码:
http://www.vbcodelibrary.co.uk/modules.php?op=modload&name=Forums&file=viewtopic&topic=1836&forum=7
我只是在压缩的字节组中加入了文件的长度存储。免去了要另外记住文件长度的麻烦。
这个类的优点在于不使用系统外的 Dll 文件。对网络程序中通讯数据压缩很有用。
呵呵,我写东西就是要用到它~~
缺点也显而易见,
1,用 WinRAR 等软件无法打开压缩过的文件,
因为只有数据段,并没有索引段,我只加了个原始文件长度上去。
2,没有对大文件进行分段读取。
因为我的通讯数据都很小,没有必要分段压缩。
3,没有数据校验。
当您能将上面列出的问题解决了,你的程序就可以拿来买咯,弄到好就成了 WinZIP 了...
以下是源码:
Imports System.Runtime.InteropServices '使用该语句后可以使用 DllImport 来引用 Dll 内的函数
Public Class cls_zLib
<DllImport("zlib.dll")> Public Shared Function compress(ByVal dest As Byte(), ByRef destLen As Integer, ByVal src As Byte(), ByVal srcLen As Integer) As Integer
'引用压缩函数
End Function
<DllImport("zlib.dll")> Public Shared Function uncompress(ByVal dest As Byte(), ByRef destLen As Integer, ByVal src As Byte(), ByVal srcLen As Integer) As Integer
'引用解压函数
End Function