vb.net 串口通信 传输文件是图片如何接受然后保存成图片

vb.net 串口通信 传输文件是图片怎么接受然后保存成图片
如果一个图片文件以流格式的方式从别的机器上传输过来，它怎样在本地从流格式的形式变成图片，或者在本地也行，把ｃ盘的一张图片以流格式的方式到其他盘，然后转 
成图片，（File的copy方法除外)

[解决办法]

VB.NET code

Imports SystemImports System.IOImports System.TextPublic Class Form1    Public Sub GetImage()        Dim s As Stream = File.Open(MapPath("33.jpg"), FileMode.Open)        Dim leng As Integer = 0        If s.Length < Int32.MaxValue Then            leng = CInt(s.Length)        End If        Dim by As Byte() = New Byte(leng - 1) {}        s.Read(by, 0, leng)        '把图片读到字节数组中        s.Close()        Dim str As String = Convert.ToBase64String(by)        '把字节数组转换成字符串        Dim sw As StreamWriter = File.CreateText(MapPath("11.txt"))        '存入11.txt文件        sw.Write(str)        sw.Close()        sw.Dispose()    End Sub    Public Sub CreateImg()        Dim sr As New IO.StreamReader(MapPath("11.txt"))        Dim s As String = sr.ReadToEnd()        sr.Close()        Dim buf As Byte() = Convert.FromBase64String(s)        '把字符串读到字节数组中        Dim ms As New IO.MemoryStream(buf)        Dim img As System.Drawing.Image = System.Drawing.Image.FromStream(ms)        img.Save(MapPath("12.jpg"), System.Drawing.Imaging.ImageFormat.Jpeg)        ms.Close()        ms.Dispose()    End Sub    Private Function MapPath(ByVal MyName As String) As String        Dim path As String = "D:\"        MapPath = path & MyName    End Function
[解决办法]
http://www.lob.cn/jq/kfjq/235.shtml