Читать MemoryStream - загрузить изображение \ байт и прочитать его - PullRequest
Новая
       5

Читать MemoryStream - загрузить изображение \ байт и прочитать его

1 голос
/ 22 февраля 2012

хорошо, у меня есть изображение, к которому я привязываю информацию, и я хочу прочитать информацию

теперь из файла (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

в конце сохранить байт в файл

Я пытаюсь использовать это так

Использование FS как нового IO.MemoryStream (image) 'image = byte ()

но не работает

как я могу это прочитать снова в памяти

спасибо

1 Ответ

3 голосов
/ 22 февраля 2012

Это преобразует 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
...