sql-server - 打开从 sql server 下载的 Office 文件时出错

Question

原始的 Office 文件运行没有问题(我尝试了 Word 和 Excel)，但是当我将文件以二进制形式上传到数据库，然后将其下载到我的电脑并打开下载的文件时，我收到警告消息“excel 发现内容无法读取”等，并且该文件与原始文件相比变得更加简单。

确切的错误消息是:“Excel 在 filename.xls 中发现无法读取的内容。是否要恢复此工作簿的内容？如果您信任此工作簿的来源，请单击"is"。”

如何上传文件:

'UPLOAD FILE
Dim fi As New FileInfo(FilePath)
Dim s As Stream = fi.OpenRead()
Dim buffer(fi.Length) As Byte 'I put the buffer in database in varbinary(max) format
s.Read(buffer, 0, fi.Length)
s.Close()

如何下​​载并打开文件:

'DOWNLOAD FILE
Dim fi As New FileInfo(FilePath)
Dim s As Stream = fi.OpenWrite()
Dim buffer As Byte() = reader("Binary")
s.Write(buffer, 0, buffer.Length)
s.Close()

'OPEN FILE
Dim p As New Process
p.StartInfo = New ProcessStartInfo(FilePath)
p.Start()

更新:

按照建议，我尝试简单地复制文件，将 SQL 完全排除在外。这是我尝试过的代码，但也失败了:

Private Sub CopyFile(ByVal filePath As String)
    Dim fi As New FileInfo(filePath)
    Dim s As Stream = fi.OpenRead()
    Dim buffer(CType(fi.Length, Integer) - 1) As Byte
    s.Read(buffer, 0, CType(fi.Length, Integer))
    s.Close()

    Dim fi2 As New FileInfo(filePath & " Copy")
    Dim s2 As Stream = fi2.OpenWrite()
    s2.Write(buffer, 0, buffer.Length)
    s2.Close()
End Sub

Answer 1

如this MSDN article所述VB.NET 数组的声明方式与其他语言(例如 C#)中的声明方式不同。在其他语言中，当声明固定长度数组时，给定的大小用作数组的总长度。例如，在 C# 中，语句 fixed byte buffer[3]; 将声明一个包含 3 个元素(索引为 0 到 2)的字节数组。然而，在VB中，声明固定数组时给出的大小用作数组的上限，而不是大小。因此，在 VB 中，语句 Dim buffer(3) As Byte 声明一个包含 4 个元素(索引为 0 到 3)的字节数组。

考虑到这一点，如果仔细查看代码，您实际上是在声明一个字节数组，该数组比文件大小大一个元素(索引从 0 到 fi.Length)。然后，您将整个文件读入字节数组，从索引 0 开始。因此，数组中的最后一个字节保留为值 0(空字符)。然后，将字节数组的全部内容写入新文件，包括最后一个空字节。因此，您的代码正确地复制了文件中的所有字节，但在文件末尾添加了一个额外的空字节，这使 Excel 不满意。如果您查看原始文件大小和新创建文件的文件大小，您会发现新文件比原始文件大 1 个字节。

要解决此问题，您只需在声明数组时调整数组的大小，使其与文件的长度完全相同:

Dim buffer(fi.Length - 1) As Byte

但是，当我这样做时，我觉得有必要指出您发布的代码中的一些其他改进领域。首先，当使用实现IDisposable接口(interface)的对象(例如Stream)时，最好尽可能使用Using语句。这样做可以确保对象始终被正确关闭/处置，即使遇到异常也是如此。例如，如果您这样做会更好:

Dim fi As New FileInfo(FilePath)
Using s As Stream = fi.OpenRead()
    Dim buffer(fi.Length - 1) As Byte
    s.Read(buffer, 0, fi.Length)
End Using

此外，很明显您没有使用 Option Strict，因为如果使用的话，您将不被允许使用 fi.Length(a Long)作为参数用于数组大小或缓冲区长度。如果您打开Option Strict，您将被迫明确声明您要将Long值转换为Integer。例如:

Dim fi As New FileInfo(FilePath)
Using s As Stream = fi.OpenRead()
    Dim buffer(CInt(fi.Length) - 1) As Byte
    s.Read(buffer, 0, CInt(fi.Length))
End Using

在大多数情况下，打开Option Strict是一个非常好的主意。它迫使您了解变量类型以及数据何时可能丢失。例如，在本例中，通过打开 Option Strict，您会意识到文件大小 (Long.MaxValue) 可能大于最大长度数组 (Integer.MaxValue)，因此，如果要处理非常大的文件，则需要编写一个循环来分块读取和写入文件。即使您不想处理大文件，最好先检查大小，以便可以优雅地处理错误，而不是允许抛出溢出异常:

If fi.Length >= Integer.Max Then
    'Display or log error that the file is too large, and skip loading the file
Else
    'Load file
End If

最后，如果您不关心处理大文件，有一种更简单的方法来读取和写入文件中的所有字节:

'UPLOAD FILE
Dim buffer() As Byte = File.ReadAllBytes(filePath)

'DOWNLOAD FILE
Dim buffer As Byte() = reader("Binary")
File.WriteAllBytes(filePath, buffer)