'把图片读到字节数组
Dim fs As New IO.FileStream("d:\123.jpg", IO.FileMode.Open)
Dim by() As Byte
ReDim by(fs.Length)
For i As Integer = 0 To fs.Length - 1
by(i) = fs.ReadByte()
Next
fs.Close()
'把by数组写入到图片
Dim fs2 As New IO.FileStream("d:\123.txt", IO.FileMode.OpenOrCreate) '一定要用一个文件中转?高手帮忙
For i As Integer = 0 To by.Length - 1
fs2.WriteByte(by(i))
Next
Dim image As Image = image.FromStream(fs2)
Image.Save("d:\234.jpg")
fs2.Close()
怎么才能让一个byte数组直接转成stream的形式,而不要文件中转
'把by数组写入到图片 (上面定怕我发现显示的图片没有图象)
Dim fs2 As New IO.FileStream("123.jpg", IO.FileMode.OpenOrCreate)
fs2.SetLength(by.Length)
For i As Integer = 0 To by.Length - 1
fs2.WriteByte(by(i))
Next
Dim image As Image = image.FromStream(fs2)
image.Save("234.jpg")
fs2.Close()
'把图片读到字节数组
Dim fs As New IO.FileStream("d:\123.jpg", IO.FileMode.Open)
Dim by() As Byte
ReDim by(fs.Length)
For i As Integer = 0 To fs.Length - 1
by(i) = fs.ReadByte()
Next
fs.Close()
'把by数组写入到图片
Dim fs1 As New IO.FileStream("d:\234.jpg", IO.FileMode.OpenOrCreate)
For i As Integer = 0 To by.Length - 1
fs1.WriteByte(by(i))
Next
fs1.Close()