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

原来的办公文件没有问题（我试过word和excel），但是当我把file upload到数据库，然后从那里下载到我的电脑，并打开下载的文件，我得到警告消息“excel found内容无法读取“等等，并且与原始文件相比，文件变得更加清晰。

确切的错误信息是; “Excel在filename.xls中发现了不可读的内容。是否要恢复此工作簿的内容？如果您信任此工作簿的源，请单击”是“。

我如何上传文件：

'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() 

更新：

正如所build议的，我试着简单地复制文件，把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

正如此MSDN文章所述 ，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不快乐。 如果您查看原始文件大小和新创build文件的文件大小，则会看到新文件比原始文件大一个字节。

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

 Dim buffer(fi.Length - 1) As Byte 

但是，在我看来，我觉得有必要指出你发布的代码中还有其他一些改进的地方。 首先，在使用实现IDisposable接口的对象（如Stream ，最好尽可能使用Using语句。 这样做可确保对象始终正确closures/处置，即使遇到exception。 例如，如果你这样做会更好：

 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是一个非常好的主意。 它迫使你意识到你的variablestypes以及数据何时可能丢失。 例如，在这种情况下，通过启用Option Strict ，您将意识到文件大小（ Long.MaxValue ）可能大于数组的最大长度（ Integer.MaxValue ），因此，如果您想要要处理非常大的文件，您需要编写一个循环来读取和写入文件。 即使你不想处理大文件，最好先检查大小，以便你可以优雅地处理错误，而不是允许抛出一个溢出exception：

 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)