Imagen Base64 Guardarla

Question

Buen dia.

Tengo este codigo el cual me permite Generar un CodigoQr en imagen y visualizarla en un Imagen, Pero ahora quiero guardar dicha Imagen en una Carpeta del Servidor con el nombre especificado, 

       Dim qrGenerador As New QRCodeGenerator
        Dim qrCodeData As QRCodeData = qrGenerador.CreateQrCode("Hola Mundo", QRCodeGenerator.ECCLevel.Q)

        Dim qrCode As New QRCode(qrCodeData)
        Dim qrCodeImage As Bitmap = qrCode.GetGraphic(20)
        Dim ms As New MemoryStream()
        'qrCodeImage.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
        qrCodeImage.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
        Image1.Height = 250
        Image1.Width = 250
        Dim byteImage As Byte() = ms.ToArray()
        Image1.ImageUrl = "data:image/png;base64," + Convert.ToBase64String(byteImage)

Answer 1

Hola JIvann

 

Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te comparto a continuación el siguiente enlace que contiene un documento oficial con ejemplos sobre el tema que mencionas

 

https://docs.microsoft.com/es-es/dotnet/api/system.drawing.image.save?view=netframework-4.8

 

Seguimos buscando una mejor solución a tu consulta

Gracias por usar los foros de MSDN.

 

Diana Acuña

 ____

 

Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

 

Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

 

Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

Answer 2

hola

si tienes el byte array de la imagen solo debes usar el

File.WriteAllBytes()

Para poner la imagen en una carpeta

Pero la ruta debes obtenerla de forma relativa al website

Dim imgPath = Server.MapPath("~/imagenes")
Dim imgFullPath = Path.Combine(imgPath, "nombreImg.png")

File.WriteAllBytes(imgFullPath, byteImage)

saludos

---

Leandro Tuttini

Blog
MVP Profile
Buenos Aires
Argentina