Image to base64

Image to Base64 String

 

1. Public Function ImageToBase64(image As Image, format As System.Drawing.Imaging.ImageFormat) As String  
2.     Using ms As New MemoryStream()  
3.         ' Convert Image to byte[]  
4.         image.Save(ms, format)  
5.         Dim imageBytes As Byte() = ms.ToArray()  
6.   
7.         ' Convert byte[] to Base64 String  
8.         Dim base64String As String = Convert.ToBase64String(imageBytes)  
9.         Return base64String  
10.     End Using  
11. End Function  

---

Base64 String to Image

 

1. Public Function Base64ToImage(base64String As String) As Image  
2.     ' Convert Base64 String to byte[]  
3.     Dim imageBytes As Byte() = Convert.FromBase64String(base64String)  
4.     Dim ms As New MemoryStream(imageBytes, 0, imageBytes.Length)  
5.   
6.     ' Convert byte[] to Image  
7.     ms.Write(imageBytes, 0, imageBytes.Length)  
8.     Dim image__1 As Image = Image.FromStream(ms, True)  
9.     Return image__1  
10. End Function