Visual Basic.NET - Convertir Imagenes a Binario

Hola a todos

Nececito Guardar Imagenes en campos BLOB de MySql desde Visual Basic 2005,

He encontrado funciones pero para 6.0 de VB

Gracias...

si keres convertir a binario usa esta funcion

Shared Function Imagen_Bytes(ByVal Foto As Image) As Byte()
If Not Foto Is Nothing Then
Dim Codi As New IO.MemoryStream
Foto.Save(Codi, Imaging.ImageFormat.Jpeg)
Return Codi.GetBuffer
Else
Return Nothing
End If
End Function

si keres convertir de binario a Imagen usa esta funcion

Shared Function Bytes_Imagen(ByVal Foto As Byte()) As Image
If Not Foto Is Nothing Then
Dim Codi As New IO.MemoryStream(Foto)
Dim resultado As Image = Image.FromStream(Codi)
Return resultado
Else
Return Nothing
End If
End Function

Cargue las dos funciones en un modulo

luego en el formulario las ajecuto y le mando el parametro de la imagen

Dim ximagen As Byte
ximagen = Imagen_Bytes(Me.PictureBox5.Image)

Me da un error..
Una valor de tipo '1-matriz Dimensional de Byte no se puede convertir en un Byte

Ok, llegando a casa lo veo....aun estyo en mi trabajo chao

gracias es de mucha ayuda

Solo te faltaria indicar que es un byte de tipo array asi "Dim ximagen As Byte()" te faltó el parentesis

Man copie ese codigo en un formulario que utiliza base de datos Northwind en la tabla de categories.... y hice un mantenimiento de Actualizar ,borrar, nuevo...y en el boton de nuevo queria hacer 3 textbox y un picturebox ...y cuando quiero iniciar el formulario no se como mostrar la imagen de la tabla en el picturebox....este es mii codigo esta en el evnto DataGridView1_CurrentCellChanged del DataGridView1 ...

Private Sub DataGridView1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.CurrentCellChanged

Try
txtcateid.Text = DataGridView1.Item(0, DataGridView1.CurrentCell.RowIndex).Value
txtnomcat.Text = DataGridView1.Item(1, DataGridView1.CurrentCell.RowIndex).Value
txtdscrcat.Text = DataGridView1.Item(2, DataGridView1.CurrentCell.RowIndex).Value
PictureBox1.Image = DataGridView1.Item(3, DataGridView1.CurrentCell.RowIndex).Value
Catch ex As Exception

End Try
End Sub

excelente y sencillo de implementar
muchas gracias

saludos

Manuel

amigo ami me sale el error de q fromstream no es del tipo aray
me podrias ayudar con eso????

gracias por compartir, muy buen aporte