如何将内存流转换为字符串数组，反之亦然

Question

我有一个代码，我想从图像中获取流并将内存流转换为字符串数组并存储在变量中。但我的问题是我也想从字符串变量中获取图像并在图片框上绘制。

如果我这样使用 PictureBox1.Image = image.FromStream(memoryStream) 我可以在图片框上打印图片。但这不是我的需要。我只想从文件中获取图像流并将流转换为文本并将其存储到某个字符串变量中，我想再次使用字符串变量并将其转换为流以在图片框上打印图像。

这是我的代码。（Vb Express 2008）

 Public Function ImageConversion(ByVal image As System.Drawing.Image) As String
        If image Is Nothing Then Return ""

        Dim memoryStream As System.IO.MemoryStream = New System.IO.MemoryStream
        image.Save(memoryStream, System.Drawing.Imaging.ImageFormat.Gif)

        Dim value As String = ""


        For intCnt As Integer = 0 To memoryStream.ToArray.Length - 1
            value = value & memoryStream.ToArray(intCnt) & "  "
        Next

        Dim strAsBytes() As Byte = New System.Text.UTF8Encoding().GetBytes(value)
        Dim ms As New System.IO.MemoryStream(strAsBytes)


        PictureBox1.Image = image.FromStream(ms)

        Return value
    End Function

Answer 1

这不会以您发布它的方式工作（至少是重新创建图像的一部分）。 看到这个：

Public Function ImageConversion(ByVal image As System.Drawing.Image) As String
    If image Is Nothing Then Return ""

    Dim memoryStream As System.IO.MemoryStream = New System.IO.MemoryStream
    image.Save(memoryStream, System.Drawing.Imaging.ImageFormat.Gif)

    Dim value As String = ""

    Dim content As Byte() = memoryStream.ToArray()
    ' instead of repeatingly call memoryStream.ToArray by using
    ' memoryStream.ToArray(intCnt)
    For intCnt As Integer = 0 To content.Length - 1
        value = value & content(intCnt) & "  "
    Next
    value = value.TrimEnd()

    Return value
End Function

要使用创建的字符串重新创建图像，您不能像以前那样使用 Encoding.GetBytes()，因为您会得到一个代表字符串的字节数组。例如 "123 32 123" 你不会得到一个包含元素 123、32、123 的字节数组

Public Function ImageConversion(ByVal stringRepOfImage As String) As System.Drawing.Image
    Dim stringBytes As String() = stringRepOfImage.Split(New String() {" "}, StringSplitOptions.RemoveEmptyEntries)
    Dim bytes As New List(Of Byte)
    For intCount = 0 To stringBytes.Length - 1
        Dim b As Byte
        If Byte.TryParse(stringBytes(intCount), b) Then
            bytes.Add(b)
        Else
            Throw new FormatException("Not a byte value")
        End If
    Next
    Dim ms As New System.IO.MemoryStream(bytes.ToArray)
    Return Image.FromStream(ms)
End Function

参考：Byte.TryParse