How To: Store And Retrieve Images In A Database As A Byte Array.

I€™ve inherited a project from one of the guys on our team who will be out sick for a while. He developed two for marshaling data between System.Drawing.Image and System.Byte(). He€™s storing the byte array data in a database image field.

I€™ve retrieved the byte array data from his database image fields and have successfully converted them to images using his ConvertByteArrayToImage method below. I have also converted and image to a byte array with his ConvertImageToByteArray method below and succfully stored the data in a database image field. However, when I retrieve the byte array data that I stored in the database the last line in his ConvertByteArrayToImage method throws an exception (Parameter is not valid). I€™ve not been able to find a working copy of his code that€™s storing the byte array data. Does anyone see anything I€™m overlooking?

Imports System.Drawing
Imports System.IO

Public Sub InsertImage(ByVal pFilename As String)

Try

Dim lImage As Image
Dim lBA() As Byte
Dim lSQL As String
Dim lQuery As Alcon.SQLServer.Database.clsQuery
Dim lParameters As New Alcon.SQLServer.Database.clsParameters

lImage = Image.FromFile(pFilename)

ConvertImageToByteArray(lImage, lBA)

' Initialization
lQuery = New Alcon.SQLServer.Database.clsQuery(mConnection)

lSQL = ""
lSQL += "INSERT INTO [TBL_PCL_LENS_DATA]("
lSQL += "[SerialNumber], "
lSQL += "[ProcessedDate], "
lSQL += "[CartonLabelImage]) "
lSQL += "VALUES ("
lSQL += "@SerialNumber, "
lSQL += "@ProcessedDate, "
lSQL += "@CartonLabelImage "
lSQL += ")"

lParameters.Add("@SerialNumber", SqlDbType.VarChar, ParameterDirection.Input, mSerialNumber)
lParameters.Add("@ProcessedDate", SqlDbType.DateTime, ParameterDirection.Input, Now)
lParameters.Add("@CartonLabelImage", SqlDbType.Image, ParameterDirection.Input, lBA)

' Execute query
lQuery.Execute(lSQL, lParameters)

Catch ex As Exception
Throw
End Try

End Sub

ConvertByteArrayToImage(ByVal pBA() As Byte, ByRef pImage As Image)

Try

' Declaration
Dim lMS As MemoryStream

' Initialization
lMS = New MemoryStream(pBA, 0, pBA.Length)
lMS.Write(pBA, 0, pBA.Length)
lMS.Position = 0

' Create image
pImage = Image.FromStream(lMS, True)

Catch ex As Exception
Throw
End Try

End Sub

ConvertImageToByteArray(ByVal pImage As Image, ByRef pBA() As Byte)

Try

' Declaration
Dim lBM As Bitmap
Dim lBR As BinaryReader
Dim lMS As New MemoryStream

' Initialization
lBM = New Bitmap(pImage)
lBM.Save(lMS, Imaging.ImageFormat.Png)
lBR = New BinaryReader(lMS)

' Create byte array
pBA = lBR.ReadBytes(lMS.Length)

Catch ex As Exception
Throw
End Try

End Sub