关于用zlibwapi.dll进行字节数组压缩的问题

我根据别人写的用vb调用的代码，进行改装到c#里面，但是会报以下异常：
Attempted to read or write protected memory. This is often an indication that other memory is corrupt.
vb代码如下：

Private   Declare   Sub CopyMemory() Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
Private Declare Function Compress()Function Compress Lib "zlibwapi.dll" Alias "compress" (dest As Any, destLen As Any, src As Any, ByVal srcLen As Long) As Long
Private Declare Function uncompress()Function uncompress Lib "zlibwapi.dll" (dest As Any, destLen As Any, src As Any, ByVal srcLen As Long) As Long

Private Const OFFSET As Long = &H8


Private Sub Form_Load()Sub Form_Load()
Dim a() As Byte
Dim b() As Byte
Dim i As Integer
ReDim a(0 To 256) As Byte
ReDim b(0 To 256) As Byte
For i = 0 To 256
    a(i) = i Mod 10
    b(i) = i Mod 10
Next
CompressByte a, b




MsgBox UBound(a) + 1
End Sub


'压缩数组
Public Function CompressByte()Function CompressByte(ByteArray() As Byte, ByteArray2() As Byte) As Boolean
    Dim BufferSize As Long
    Dim TempBuffer() As Byte
    'Create a buffer to hold the compressed data
    BufferSize = UBound(ByteArray) + 1
    BufferSize = BufferSize + (BufferSize * 0.01) + 12
    ReDim TempBuffer(BufferSize)

    'Compress byte array (data)
    CompressByte = (Compress(TempBuffer(0), BufferSize, ByteArray(0), UBound(ByteArray) + 1) = 0)

    'Add the size of the original data
    Call CopyMemory(ByteArray(0), CLng(UBound(ByteArray) + 1), OFFSET)

    'Remove redundant data
    ReDim Preserve ByteArray(0 To BufferSize + OFFSET - 1)
    CopyMemory ByteArray(OFFSET), TempBuffer(0), BufferSize
    
    Dim newByteArray() As Byte
    ReDim newByteArray(0 To BufferSize + OFFSET - 1)
    
    Dim i As Integer
    For i = 0 To OFFSET
        newByteArray(i) = TempBuffer(CLng(UBound(ByteArray) + 1) + i)
        
    Next
    
End Function

c#代码如下：

[DllImport( " kernel32.dll " )]
         public   unsafe   static   extern   void  CopyMemory(IntPtr hpvDest, IntPtr hpvSource,  int cbCopy);
        [DllImport( " zlibwapi.dll " )]
         public   unsafe   static   extern   int  compress(IntPtr dest,  int  destLen, IntPtr src,  int  srcLen);
        [DllImport( " zlibwapi.dll " )]
         public   unsafe   static   extern   int  uncompress(IntPtr dest,  int  destLen, IntPtr src,  int  srcLen);

         private   const   long  OFFSET  =   8 ;
  private   void  button2_Click( object  sender, EventArgs e)
         {
            aa();
        }
         private   unsafe   void  aa()
         {
            int len = 10 * 1024;
            byte[] data = new byte[len];
            Random rnd = new Random(255);
            for (int i = 0; i < len; i++)
            {
                data[i] = (byte)(int)(i / 45);
            }
            
            long len1 = data.Length;
            long len2 = len1+(int)(len1*0.01)+12;
            byte[] data2 = new byte[len2];
            IntPtr dest;
            IntPtr src;
            
            fixed (byte* b_src = &data[0])
            {
                fixed (byte* b_dest = &data2[0])
                {
                    
                        src = (IntPtr)b_src;
                        dest = (IntPtr)b_dest;
                        
                        //问题处在此处
                        compress(dest, len2, src, len1);
                        //
                   

                }
            }
        }

 

转载于:https://www.cnblogs.com/helper/archive/2008/06/25/1229961.html