VB.NET读取Access图片时Image.FromStream报参数无效问题

问题复现代码 #

数据查询核心逻辑：

Dim stream As System.IO.MemoryStream
Dim img As Image

strsql = "select HotelName,HotelAddress,HotelPhoneNum,HotelPicture,HotelDesc from Hotel_3Star where ID = " & intIndex & ";"
Dim cmd As New OleDbCommand(strsql, connection)
Dim myreader As OleDbDataReader
myreader = cmd.ExecuteReader
myreader.Read()

Dim nameHotel As String = myreader("HotelName")
Dim phoneNumHotel As String = myreader("HotelPhoneNum")
Dim descHotel As String = myreader("HotelDesc")

Dim PictHotel = myreader("HotelPicture")
stream = New System.IO.MemoryStream(CType(PictHotel, Byte()))

后续图片加载及控件绑定逻辑：

img = Image.FromStream(stream) ' 报错位置

lblHotelName.Text = nameHotel
lblPhoneNum.Text = phoneNumHotel
lblHotelDesc.Text = descHotel

pcbHotel.Image = img

connection.Close()

运行时在img = Image.FromStream(stream)行抛出parameter is not valid（参数无效）异常，数据库存储的酒店图片无法加载到PictureBox控件。

报错根因 #

这个错误90%以上的场景是以下原因导致：

• Access里的HotelPicture字段为OLE对象类型，且存储图片时通过Access自带的嵌入插入功能上传，Access会自动在原始图片二进制数据前添加一段OLE头信息，读取出来的字节数组不是纯图片格式字节，Image.FromStream无法识别带OLE头的二进制数据。
• 读取二进制字段时没有做空值判断，当对应行的图片字段为NULL时，强转字节数组会得到无效数据，传入流后自然无法解析为图片。
• 少数场景是流位置未重置到起始位，但刚初始化的MemoryStream默认位置为0，该问题触发概率极低。

修复方案 #

1. 根治方案：修正图片存储逻辑 #

不要通过Access界面手动插入OLE对象图片，存图片时直接将纯图片字节数组写入数据库字段，不带任何额外包装：

' 图片写入Access正确示例
Dim imgBytes As Byte() = File.ReadAllBytes("本地图片文件路径.jpg")
Dim saveCmd As New OleDbCommand("update Hotel_3Star set HotelPicture = @img where ID = @id", connection)
saveCmd.Parameters.AddWithValue("@img", imgBytes)
saveCmd.Parameters.AddWithValue("@id", intIndex)
saveCmd.ExecuteNonQuery()

按该方式存储后，原有读取逻辑无需修改即可正常加载图片。

2. 兼容方案：剥离已存图片的OLE头 #

如果数据库中已经存储了大量带OLE头的历史图片不想重新导入，读取字节后先剥离OLE头，提取纯图片字节再生成流即可：
常见图片格式的文件头标识：JPG开头为FF D8 FF，PNG开头为89 50 4E 47，BMP开头为42 4D，遍历字节数组找到对应格式的文件头起始位置，截断前面的OLE头字节即可。
剥离逻辑示例：

If IsDBNull(myreader("HotelPicture")) Then
    ' 图片为空时加载默认占位图
    pcbHotel.Image = My.Resources.DefaultHotel
    Return
End If

Dim PictHotel As Byte() = CType(myreader("HotelPicture"), Byte())
' 示例匹配JPG头，如果存储的是PNG/BMP替换为对应头字节即可
Dim jpgHeader As Byte() = New Byte() {&HFF, &HD8, &HFF}
Dim startIdx As Integer = -1
For i As Integer = 0 To PictHotel.Length - 3
    If PictHotel(i) = jpgHeader(0) AndAlso PictHotel(i+1) = jpgHeader(1) AndAlso PictHotel(i+2) = jpgHeader(2) Then
        startIdx = i
        Exit For
    End If
Next

If startIdx = -1 Then
    pcbHotel.Image = My.Resources.DefaultHotel
Else
    Dim realImgBytes As Byte() = New Byte(PictHotel.Length - startIdx - 1) {}
    Array.Copy(PictHotel, startIdx, realImgBytes, 0, realImgBytes.Length)
    ' 注意：Image.FromStream要求流在图片生命周期内保持打开，这里做深拷贝避免流释放后图片失效
    Using stream As New MemoryStream(realImgBytes)
        Using tempImg = Image.FromStream(stream)
            img = New Bitmap(tempImg)
        End Using
    End Using
End If

额外优化建议 #

原有SQL通过直接拼接传入ID参数，存在SQL注入风险，建议改为参数化查询：

strsql = "select HotelName,HotelAddress,HotelPhoneNum,HotelPicture,HotelDesc from Hotel_3Star where ID = ?;"
Dim cmd As New OleDbCommand(strsql, connection)
cmd.Parameters.AddWithValue("?", intIndex)

同时建议将数据库连接、Command、DataReader对象包裹在Using块中，自动释放非托管资源，避免内存泄漏。

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