private buffersize  As integer保存:
        Try
            With OpenFileDialog
                .Filter = "图片文件(*.jpg)|*.jpg|所有文件(*.*)|*.*"
                If .ShowDialog() = DialogResult.OK Then
                    txtLocation.Text = OpenFileDialog.FileName                    Dim objFileStream As New FileStream(txtLocation.Text, IO.FileMode.Open)
                    objFileStream.Position = 0
                    Dim tmpImage() As Byte
                    ReDim tmpImage(objFileStream.Length - 1)
                    objFileStream.Read(tmpImage, 0, objFileStream.Length)
                    buffersize = objFileStream.Length
                    picPhoto.Image = Image.FromStream(objFileStream)                    Dim xw As New Xml.XmlTextWriter("c:\TempXmlX.xml", Encoding.UTF8)
                    xw.WriteStartDocument()
                    xw.WriteStartElement("root")
                    xw.WriteBase64(tmpImage, 0, tmpImage.Length)
                    objFileStream.Close()
                    xw.WriteEndElement()
                    xw.WriteEndDocument()
                    xw.Flush()
                    xw.Close()                End If
            End With        Catch ex As Exception
            MsgBox("选择文件出错!出错原因如下:" & vbCrLf & ex.Message, MsgBoxStyle.Exclamation, "提示")
            txtLocation.Text = ""
            txtPhoto.Text = ""
        End Try显示:
                    Try
                        Dim buffer(buffersize) As Byte
                        Dim xr As New Xml.XmlTextReader("c:\TempXmlY.xml")
                        xr.MoveToContent()
                        xr.ReadBase64(buffer, 0, buffersize)
                        xr.Close()                        Dim objMemStream As New MemoryStream
                        objMemStream.Write(buffer, 0, buffersize)
                        objMemStream.Position = 0
                        picPhoto.Image = Image.FromStream(objMemStream)
                        Invalidate()
                        objMemStream.Close()
                    Catch ex As Exception
                        MsgBox("图形显示出错!出错原因如下:" & vbCrLf & ex.Message, MsgBoxStyle.Exclamation, "提示")
                    End Try

解决方案 »

  1.   

    大哥,可不可以用C#写,我不会vb
      

  2.   

    存盘string strImgFile = "c:\\222.jpg";
    string strXmlFile = "c:\\222.xml";FileStream fs = new FileStream(strImgFile, FileMode.Open, FileAccess.Read);
    byte[] bytes = new Byte[(int)fs.Length];
    fs.Read(bytes, 0, bytes.Length);
    fs.Close();
    XmlTextWriter tw = new XmlTextWriter(strXmlFile, System.Text.Encoding.UTF8);
    tw.WriteStartDocument();
    tw.WriteStartElement("root");
    tw.WriteBase64(bytes, 0, bytes.Length);
    tw.WriteEndElement();
    tw.WriteEndDocument();
    tw.Flush();
    tw.Close();