高分求delphi调用zlib.dll实现压缩解压缩的代码，放弃使用zlib单元了，生成的结果和.net调用zlib.dll生成的结果不一样

Question

.net中调用zlib.dll的声明如下
<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
哪位能给出相应的delphi代码，如果能给出输入输出参数都是array of byte的函数就更好了

Answer 1

本来就有ZLIB for Delphi,现在是1.2.3版本的

Answer 2

我知道啊，但是直接Uses Zlib或者ZlibEx，压缩后的结果和.net中调用zlib.dll压缩后的结果不一样，差一点点我是要在.net中压缩数组，在delphi中解压