[parametros]que regresen bytes a imagen en un picturebox
Publicado por victor14 (1 intervención) el 21/10/2015 18:28:22
buenas tardes amigos desarrolladores, soy nuevo en estoy y tengo una duda, en un proyecto guardo información de alumnos y entre esa info. esta su foto, entonces la guardo en mysql convirtiéndolo a bytes con esta función:
y me la guarda muy bn ya que inserte un datagriedview y me lo muestra , pero al querer hacer la consulta y que me mande los campos a los textbox y al picture, la imagen no me la muestra, no se si me pudieran ayudar, la funcion que tengo para convertir bytes a imagen es :
pero no se como mandarla a llamar para poder devolver la imagen al picture box, de ante mano gracias por tomarse la molestia de leer este problema......
intento llamarla asi:
PictureBox1.Image = Bytes_Imagen(foto)
q foto es mi parametro byte q utilice para guardarlo, utilice esta instruccion para guardarlo como byte:
Dim foto As Byte() = Imagen_Bytes(Me.PictureBox1.Image)
de antemano un saludo y ojala puedan ayudarme,,, y si es de ayuda mi campo de la bd tambn es foto y es tipo blob
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Function Imagen_Bytes(ByVal Imagen As Image) As Byte()
'si hay imagen
If Not Imagen Is Nothing Then
'variable de datos binarios en stream(flujo)
Dim Bin As New MemoryStream
'convertir a bytes
Imagen.Save(Bin, Imaging.ImageFormat.Jpeg)
'retorna binario
Return Bin.GetBufferElse
Return Nothing
End If
End Function
y me la guarda muy bn ya que inserte un datagriedview y me lo muestra , pero al querer hacer la consulta y que me mande los campos a los textbox y al picture, la imagen no me la muestra, no se si me pudieran ayudar, la funcion que tengo para convertir bytes a imagen es :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Function Bytes_Imagen(ByVal Imagen As Byte()) As Image
Try
'si hay imagen
If Not Imagen Is Nothing Then
'caturar array con memorystream hacia Bin
Dim Bin As New MemoryStream(Imagen)
'con el método FroStream de Image obtenemos imagen
Dim Resultado As Image = Image.FromStream(Bin)
'y la retornamos
Return Resultado
Else
Return Nothing
End If
Catch ex As Exception
Return Nothing
End Try
End Function
pero no se como mandarla a llamar para poder devolver la imagen al picture box, de ante mano gracias por tomarse la molestia de leer este problema......
intento llamarla asi:
PictureBox1.Image = Bytes_Imagen(foto)
q foto es mi parametro byte q utilice para guardarlo, utilice esta instruccion para guardarlo como byte:
Dim foto As Byte() = Imagen_Bytes(Me.PictureBox1.Image)
de antemano un saludo y ojala puedan ayudarme,,, y si es de ayuda mi campo de la bd tambn es foto y es tipo blob
Valora esta pregunta
0