'Beispiel: VB .Net - Image nach String - String nach Image - 2 ' Option Explicit On Option Strict On Imports System.IO Public Class Form1 Private _imagestream As String Public Property ImageStream() As String Get Return _imagestream End Get Set(ByVal value As String) _imagestream = value End Set End Property Private Function ImagePath() As String Dim FullPath As String = Path.GetFullPath(Application.StartupPath & "\..\..\image") Return If(Directory.Exists(FullPath) = True, FullPath, "Folder not found") End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click If ImagePath.Equals("Folder not found") Then MessageBox.Show("Grafikverzeichnis wurde nicht gefunden.", "Info") Return Else If File.Exists(Path.Combine(ImagePath, "lexi.jpg")) Then ImageStream = ConvertImage.ConvertImageToString(IO.Path.Combine(ImagePath, "lexi.jpg")) If ImageStream.Length > 0 Then Me.Button2.Enabled = True Me.Text = "Stream wurde geladen" End If Else MessageBox.Show("File not found...", "Info") End If End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button2.Click If ImageStream IsNot Nothing Then Dim img As Image = ConvertImage.ConvertStringToImage(ImageStream) If img IsNot Nothing Then Me.PictureBox1.Image = img End If End If End Sub Public Class ConvertImage Public Shared Function ConvertImageToString(ByVal Path As String) As String Dim Result As String = String.Empty If Path Is Nothing Then Throw New ArgumentException("Fehler in der Pfaduebergabe...") Else Try If File.Exists(Path) Then Dim img As Image = Image.FromFile(Path) Using ms As MemoryStream = New MemoryStream img.Save(ms, img.RawFormat) Dim Bytes() As Byte = ms.ToArray() Result = Convert.ToBase64String(Bytes) End Using Else Result = String.Empty End If Catch ex As Exception MessageBox.Show(ex.Message(), "Info") End Try End If Return Result End Function Public Shared Function ConvertStringToImage(ByVal Base64String As String) As Image Dim img As Image = Nothing If Base64String Is Nothing Then Throw New ArgumentException("Fehler in der Zeichenkettenuebergabe...") Else Try Dim Bytes() As Byte = Convert.FromBase64String(Base64String) img = Image.FromStream(New MemoryStream(Bytes)) Catch ex As Exception MessageBox.Show(ex.Message(), "Info") End Try End If Return img End Function End Class Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load With Me .CenterToScreen() .Text = "Image nach String - String nach Image - 2" .Button1.Text = "Image to string" .Button2.Text = "String to image" .Button2.Enabled = False .PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize End With End Sub End Class