Ayuda con Imagenes en Mysql
Publicado por Modesto Martinez (11 intervenciones) el 08/05/2008 22:01:31
Hey Huguin Estoy pendiente con las funciones
Para todos !!!!! necesito guardar imagenes en mysql..
Huguin me envio dos funciones.
'Covertir de Imagen a Binario
Public 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
'Convertir de Binario as Imagen
Public 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
Ahora estoy enviando bien el parametro ???
Para todos !!!!! necesito guardar imagenes en mysql..
Huguin me envio dos funciones.
'Covertir de Imagen a Binario
Public 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
'Convertir de Binario as Imagen
Public 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
Ahora estoy enviando bien el parametro ???
Valora esta pregunta


0