آموزش ذخیره سازی تصویر بصورت رشته در تنظیمات پروژه/نرم افزار

[ROSTAM2]

در این ویدئوی آموزشی کلاسی ایجاد شده و متودهای تبدیل از Byte های تصویر به Base64String و از Base64String به Image استفاده می شود تا تصویر در تنظیمات نرم افزار ذخیره سازی و همچنین فراخوانی شود....

https://aparat.com/v/BhDHp
Public Class ImageClass
Shared Function ToBase64String(Img As Image) As String
Dim Strm As New IO.MemoryStream
Img.Save(Strm, Imaging.ImageFormat.Png)
Dim Expr As String = Convert.ToBase64String(Strm.ToArray)
Strm.Close()
Return Expr
End Function
''' <summary>
''' Convert Image from FilePath to Base64String....
''' </summary>
''' <param name="path"></param>
''' <returns></returns>
Shared Function ToBase64String(path As String) As String
Dim Bytes() As Byte = IO.File.ReadAllBytes(path)
Dim Expr As String = Convert.ToBase64String(Bytes)
Return Expr
End Function
Shared Function FromBase64String(input As String) As Image
Dim Bytes() As Byte = Convert.FromBase64String(input)
Dim Strm As New IO.MemoryStream(Bytes)
Dim Expr As Image = Image.FromStream(Strm)
Strm.Close()
Return Expr
End Function
End Class