메모리 스트림을 문자열 배열로 또는 그 반대로 변환하는 방법

Question

코드에서 이미지의 스트림을 가져 와서 메모리 배열을 문자열 배열로 변환하고 변수에 저장하려고합니다. 하지만 내 문제는 또한 문자열 변수 및 그림 상자에 그림에서 이미지를 얻고 싶습니다.

내가 이것을 사용하는 경우 PictureBox1.Image = image.FromStream (memoryStream) 그림 상자에 그림을 인쇄 할 수 있습니다. 그러나 이것은 나의 필요가 아니다. 난 그냥 파일에서 이미지 스트림을 얻을 텍스트로 스트림을 변환하고 일부 문자열 변수에 저장하고 다시 문자열 변수를 사용하여 그림 상자에 이미지를 인쇄 스트림으로 변환 싶어요.

다음은 내 코드입니다. (VB 익스프레스 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

이 wouldn`t 작업 (이미지를 재현의 적어도 일부). 이 참조 :

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 

당신이 그랬던 것처럼 당신이 당신의 문자열을 나타내는 된 ByteArray를 얻을 것입니다 때문에,() Encoding.GetBytes를 사용은`t 생성 된 문자열을 사용하여 이미지를 다시 만들려면. 예 : "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