zlib中的vb6下标超出范围

Question

我收到 subscript out of range 错误，这段代码的问题在哪里，

代码使用“zlib”压缩来压缩字节数组，然后通过网络发送到服务器端。我的代码是，

sendfile = "C:\Users\bhavesh\Desktop\15.jpg"
uncompressed_size = FileLen(sendfile)
    Open sendfile For Binary As 1
    ReDim uncompressed_bytes(1 To LOF(1)) As Byte
    Get #1, 1, uncompressed_bytes()
    Close #1
    MsgBox "first : " & UBound(uncompressed_bytes) - LBound(uncompressed_bytes)


    compressed_size = 1.01 * uncompressed_size + 12
    ReDim compressed_bytes(0 To compressed_size)
    Select Case compress(compressed_bytes(0), compressed_size - 1, uncompressed_bytes(0), uncompressed_size + 1)
        Case Z_MEM_ERROR
            MsgBox "Insufficient memory", vbExclamation, "Compression Error"
            Exit Sub
        Case Z_BUF_ERROR
            MsgBox "Buffer too small", vbExclamation, "Compression Error"
            Exit Sub
    End Select
    ReDim Preserve compressed_bytes(0 To compressed_size)

Answer 1

您定义 uncompressed_bytes 的下限为 1，然后引用它的第 0 个元素，这就是下标超出范围的原因。