تبدیل Image به رشته و بالعکس (ذخیره و بازیابی)

[ROSTAM2]

کلاس StreamImage:

Public Class StreamImage



    Shared Function FromString(ByVal Value$) As Image



        Dim M As IO.Stream, Img As Image



        M = New IO.MemoryStream(Convert.FromBase64String(Value))



        M.Position = 0

	

	Img = If(M Is Nothing, Nothing, Image.FromStream(M))

        

	M.Close

	

	Return Img



    End Function



    Shared Function FromFile$(ByVal file$)



        Return Convert.ToBase64String(IO.File.ReadAllBytes(file))



    End Function



End Class

Save Image To Text File:

Dim StringStream$ = ""

StringStream = StreamImage.FromFile("ImageFilePath")

Io.File.WriteAllText("FilePath", StringStream)

Load Image From Text File:

Dim StringStrm$ = ""

StringStrm = Io.File.ReadAllText("FilePath")

PictureBox1.Image = StreamImage.FromString(StringStrm)