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
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
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();