VB.NET使用ZipOutputStream打包PDF为zip流下载时文件损坏如何解决

问题原因 #

• 核心错误：Response.Write() 方法不支持直接输出MemoryStream对象的字节内容，你传入流对象时，方法会默认调用对象的ToString()方法，最终输出的是System.IO.MemoryStream字符串而非实际的压缩包字节，这是导致文件损坏的最主要原因。
• 响应未正确终止：写入流内容后没有主动清空、刷新响应缓冲区并结束响应，ASP.NET可能会在你的压缩包内容后追加页面默认输出的其他冗余内容，破坏zip文件结构。

修复方案 #

将CreateZip方法中输出流的部分修改为如下代码：

Private Function CreateZip(pdfPathList As List(Of String), fileRoot As String) As String
    Response.Clear()
    Response.BufferOutput = True ' 建议开启缓冲，避免传输过程中分段输出导致结构异常
    Response.ContentType = "application/zip"
    Response.AddHeader("content-disposition", "attachment; filename=pdf.zip")

    Dim pdfPathListLocal As List(Of String) = Utility.DownloadFilesFromList(pdfPathList, fileRoot)
    Dim outputMemStream = Utility.GenerateZipOutpuStream(pdfPathListLocal)
    Dim zipName As String = Guid.NewGuid.ToString() & ".zip"
    outputMemStream.Position = 0

    Response.AddHeader("Content-Length", outputMemStream.Length.ToString())
    ' 替换原来的Response.Write，用BinaryWrite输出流的字节数组
    Response.BinaryWrite(outputMemStream.ToArray())

    ' 刷新缓冲区并结束响应，避免追加多余内容
    Response.Flush()
    Response.SuppressContent = True
    HttpContext.Current.ApplicationInstance.CompleteRequest()
    ' 旧版ASP.NET也可以用Response.End()，但CompleteRequest更温和不会抛线程中止异常

    Return zipName
End Function

如果你的.NET版本支持流直接拷贝，也可以用outputMemStream.CopyTo(Response.OutputStream)的方式代替BinaryWrite，避免大文件时内存中生成全量字节数组的开销。

内容的提问来源于stack exchange，提问作者Diego Perez