[VB.net]调用系统自带的 zLib.dll 实现 ZIP 压缩

先声明，原来的基础代码来自这里
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