convertir imagen a Base64 y viceversa

Imagen aBase64 y de Base64 a Imagen

Aqui os dejo el codigo para convertir una imagen aBase64 y de Base64 a imagen . el codigo es muy sencillo y muy facil de seguir.

Primero el video

Y aqui el codigo del video

        'ruta del fichero
        Dim ruta As String = "E:\Mapeo\Soulsmakers.png"
        'se encargara de obtener y almacenar los bytes temporalmente
        Dim Ms As New IO.MemoryStream
        Dim Bmp As New Bitmap(ruta)

        Bmp.Save(Ms, Imaging.ImageFormat.Png)
        Dim BT(Ms.Length - 1) As Byte
        BT = Ms.GetBuffer

        Dim Base_imagen As String = Convert.ToBase64String(BT)
        Dim Base_Imagen64Web As String = "data:image/png;base64," & Base_imagen

        Dim BTWEB(Convert.FromBase64String(Base_imagen).Length - 1) As Byte
        BTWEB = Convert.FromBase64String(Base_imagen)

        Dim SW As New IO.StreamWriter("E:\Mapeo\Soulsmakers2.png")
        SW.BaseStream.Write(BTWEB, 0, BTWEB.Length - 1)
        SW.Close()

'ruta del fichero

Dim ruta As String = "E:\Mapeo\Soulsmakers.png"

'se encargara de obtener y almacenar los bytes temporalmente

Dim Ms As New IO.MemoryStream

Dim Bmp As New Bitmap(ruta)

Bmp.Save(Ms, Imaging.ImageFormat.Png)

Dim BT(Ms.Length - 1) As Byte

BT = Ms.GetBuffer

Dim Base_imagen As String = Convert.ToBase64String(BT)

Dim Base_Imagen64Web As String = "data:image/png;base64," & Base_imagen

Dim BTWEB(Convert.FromBase64String(Base_imagen).Length - 1) As Byte

BTWEB = Convert.FromBase64String(Base_imagen)

Dim SW As New IO.StreamWriter("E:\Mapeo\Soulsmakers2.png")

SW.BaseStream.Write(BTWEB, 0, BTWEB.Length - 1)

SW.Close()

Como veis con pocas lineas de programacion lo conseguimos.

Un Saludo

Quizas te interes StreamReader,StreamWriter aqui

O tambien Openfilediago aqui

convertir imagen a Base64 y viceversa

Imagen aBase64 y de Base64 a Imagen

1 comentario en “convertir imagen a Base64 y viceversa”

Deja un comentario Cancelar respuesta