Read MemoryStream - 加载图像\字节并读取它

Question

好的，我有一个在其中绑定信息的图像，我想

现在从文件（FileStream）

读取信息，但我不想从文件中读取信息，所以我需要

在此处使用 MemoryStream ，该示例有效以及我如何做到这一点现在我如何让它与MemoryStream（使用byte = My.Resources或PictureBox1.image）一起工作，

Using FS As New IO.FileStream(image, IO.FileMode.Open)
            FS.Seek(0, IO.SeekOrigin.End)
            While Not FS.ReadByte = Asc("|")
                FS.Position -= 2
            End While
            Dim s As String = Nothing
            While Not FS.Position = FS.Length - 4
                s &= Chr(FS.ReadByte.ToString)
            End While
            Dim Ext As String = Nothing
            FS.Seek(0, IO.SeekOrigin.End)
            While Not FS.ReadByte = Asc("*")
                FS.Position -= 2
            End While
            While Not FS.Position = FS.Length
                Ext &= Chr(FS.ReadByte.ToString)
            End While
            FS.Seek(FS.Length - ((s.Length + s) + 5), IO.SeekOrigin.Begin)

            While Not FS.Position = FS.Length - (s.Length + 5)

                Dim Data As Byte() = New Byte(FS.Position) {}
                FS.Read(Data, 0, Data.Length)
                FS.Close()

            End While

最后将字节保存到文件

我尝试像这样使用它

Using FS As New IO.MemoryStream(image) 'image = byte( ）

但不是工作

我该怎么做，在记忆中再读一遍，

谢谢

Answer 1

这会将 ByteArray 转换为 MemoryStream 再转换为 Image

  Public Function byteArrayToImage(byteArrayIn As Byte()) As Image
          Dim ms As New MemoryStream(byteArrayIn)
          Dim returnImage As Image = Image.FromStream(ms)
      Return returnImage
  End Function