如何在日本机器上使用 zlib？

Question

我试图通过使用 zlib 来压缩字符串（我已经用当前的 1.2.3 尝试过此代码zlib 版本和 zlib 1.1.3）。 除非在日本机器上运行，否则我的代码可以正常工作。压缩文件后，我对其进行加密。解密成功，但调用 uncompress 返回 -3（Z_DATA_ERROR，表示输入数据已损坏）。由于没有记录错误，我知道没有抛出异常，并且压缩函数返回 0（Z_OK，意味着它有效）。

因此，我怀疑问题在于 sCompressed 字符串在“sCompressed = Left(sCompressed, lcompressedlen)”行或“encryptedData”行上失去完整性.Content = s压缩。”或者，VB6 可能会在调用 compress 期间执行一些stupid 对 sCompressed 的内容有帮助的事情。我知道这个函数的返回值稍后不会被破坏，因为这会破坏解密，但效果很好。

Public Function EncryptString(ByVal Definition As String) As String
On Error GoTo ErrorHandler
    Dim encryptedData As New CAPICOM.encryptedData
    encryptedData.SetSecret KEY_CONST
    Dim lStringLen As Long
    Dim lcompressedlen As Long
    Dim sCompressed As String
    Dim lReturn As Long
    Dim tstpost As String
    lStringLen = Len(Definition)
    lcompressedlen = (lStringLen * 1.01) + 13
    sCompressed = Space(lcompressedlen)
    lReturn = compress(sCompressed, lcompressedlen, Definition, lStringLen)
    If lReturn <> 0 Then
        sCompressed = "Error: " & CStr(lReturn)
        '<LOG ERROR>'
    Else
        sCompressed = Left(sCompressed, lcompressedlen)
    End If
    encryptedData.Content = sCompressed
    encryptedData.Algorithm.Name = CAPICOM_ENCRYPTION_ALGORITHM_3DES
    EncryptXmlString = encryptedData.Encrypt
Exit Function
ErrorHandler:
    '<LOG ERROR>'
    Resume Next
End Function

结论：
我最终让程序给出错误消息，并在具有可疑字符集的计算机上运行时退出。这个错误很可能仍然存在于一些设置上，也很可能在某些触发错误的设置上不存在。然而，由于目标受众是说英语的人，因此通过土耳其测试的重要性不足以证明在这方面花费更多时间是合理的。

Answer 1

当您打算传递字节数组时停止使用字符串？

当然当您像这里一样使用字符串时，您将获得自动 ANSI 转换和数据重新复制。

Answer 2

鲍勃是正确的。这些只是我对他的回答的脚注。请注意，我完全不熟悉 zlib - 我假设您正在使用 Declare 进行 compress 调用 DLL。

使用字符串而不是字节数组并不意味着您可以避免 ANSI 转换。它通常仅意味着 VB6 隐式执行转换，而您无法控制它 - 例如，当您使用 Declare 语句调用 DLL 并传递字符串时。

从压缩返回的神奇字节序列可能不是日语代码页上的有效“ANSI”字符串。该代码页的 MSDN 表中未定义某些字符序列。如果您使用 Declare 语句调用 DLL，并期望将字符串返回到 sCompressed，则该 DLL 最好将有效的“ANSI”字符串写入相应的缓冲区。如果它写入无效的字节序列，则可能会发生任何情况。您在中文（936 和 950）和韩语（949）方面也会遇到麻烦。

您所描述的情况很可能会发生：当 compress 返回时，无效的字节序列可能会转换为“Unicode”字符串，而不会报告错误 - 也许是与您的第一部分匹配的截断的 Unicode 字符串字节序列。然后，当您稍后尝试解压缩时，该 Unicode 字符串将转换回 ANSI 字符串，并且它与您开始时的原始字节序列不匹配。根本不可能匹配啊没有可能的 Unicode 字符串会转换为代码页 932 上的“ANSI”字符串，作为不是有效字符串的字节序列。

这里有一些关于 VB6 的 Unicode 实现的可怕混乱的更多信息：免费章节来自 Michael Kaplan 的优秀著作 Internationalization With Visual Basic

我还怀疑您可能将字符串中的字符数与其在 ANSI 表示中占用的字节数混淆了（我对 lStringLen 和 lcompressedlen 表示怀疑）。同样，日语是双字节字符集，因此 ANSI 字符串对于 N 个字符可能最多需要 2*N 个字节。