把图象文件转换成XML格式文件

利用 NET 框架下的FromBase String和ToBase String方法可以很容易地实现图象文件和XML文件的互换 这样可以轻易解决以XML格式保存图片的问题 代码如下 　　Public Class Form 　　Inherits System Windows Forms Form　　#Region Windows 窗体设计器生成的代码 　　Public Sub New()　　MyBase New()　　InitializeComponent()　　在 InitializeComponent() 调用之后添加任何初始化　　End Sub　　窗体重写处置以清理组件列表 　　Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)　　If disposing Then　　If Not (ponents Is Nothing) Then　　ponents Dispose()　　End If　　End If　　MyBase Dispose(disposing)　　End Sub　　Windows 窗体设计器所必需的　　Private ponents As System ComponentModel IContainer　　注意 以下过程是 Windows 窗体设计器所必需的　　可以使用 Windows 窗体设计器修改此过程 　　不要使用代码编辑器修改它 　　Friend WithEvents Button As System Windows Forms Button　　Friend WithEvents Button As System Windows Forms Button　　Friend WithEvents PictureBox As System Windows Forms PictureBox　　Friend WithEvents Button As System Windows Forms Button　　Friend WithEvents Label As System Windows Forms Label　　Friend WithEvents Label As System Windows Forms Label　　<System Diagnostics DebuggerStepThrough()> Private Sub InitializeComponent()　　Me Button = New System Windows Forms Button()　　Me Button = New System Windows Forms Button()　　Me PictureBox = New System Windows Forms PictureBox()　　Me Button = New System Windows Forms Button()　　Me Label = New System Windows Forms Label()　　Me Label = New System Windows Forms Label()　　Me SuspendLayout()　　　　Button 　　　　Me Button Location = New System Drawing Point( )　　Me Button Name = Button 　　Me Button Size = New System Drawing Size( )　　Me Button TabIndex = 　　Me Button Text = 将图象保存成XML 　　　　Button 　　　　Me Button Location = New System Drawing Point( )　　Me Button Name = Button 　　Me Button Size = New System Drawing Size( )　　Me Button TabIndex = 　　Me Button Text = 从XML中得到图象 　　　　PictureBox 　　　　Me PictureBox Location = New System Drawing Point( )　　Me PictureBox Name = PictureBox 　　Me PictureBox Size = New System Drawing Size( )　　Me PictureBox TabIndex = 　　Me PictureBox TabStop = False　　　　Button 　　　　Me Button Location = New System Drawing Point( )　　Me Button Name = Button 　　Me Button Size = New System Drawing Size( )　　Me Button TabIndex = 　　Me Button Text = 浏览图片… 　　　　Label 　　　　Me Label Location = New System Drawing Point( )　　Me Label Name = Label 　　Me Label Size = New System Drawing Size( )　　Me Label TabIndex = 　　　　Label 　　　　Me Label Location = New System Drawing Point( )　　Me Label Name = Label 　　Me Label Size = New System Drawing Size( )　　Me Label TabIndex = 　　Me Label Text = 【孟宪会之精彩世界】 　　　　Form 　　　　Me AutoScaleBaseSize = New System Drawing Size( )　　Me ClientSize = New System Drawing Size( )　　Me Controls AddRange(New System Windows Forms Control() {Me Label Me Label Me Button Me PictureBox Me Button Me Button })　　Me Name = Form 　　Me Text = 图象文件和XML格式文件互换例子 　　Me ResumeLayout(False)　　End Sub　　#End Region　　Private MyFile As String = 　　Private MyFileExt As String = 　　Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) _　　Handles Button Click　　Dim pic As String　　Dim MyXml As System Xml XmlDocument = New System Xml XmlDocument()　　MyXml Load( c:MyPhoto xml )　　Dim picNode As System Xml XmlNode　　picNode = MyXml SelectSingleNode( /pic/photo )　　pic = picNode InnerText　　Dim memoryStream As System IO MemoryStream　　memoryStream = New System IO MemoryStream(Convert FromBase String(pic))　　Me PictureBox Image = New System Drawing Bitmap(memoryStream)　　memoryStream Close()　　End Sub　　Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) _　　Handles Button Click　　If MyFile = Then　　MessageBox Show( 请选择一个图片！ 错误 MessageBoxButtons OK MessageBoxIcon Warning)　　Exit Sub　　End If　　Dim MyImg As System Drawing Image = MyImg FromFile(MyFile)　　Dim memoryStream As System IO MemoryStream = New System IO MemoryStream()　　MyImg Save(memoryStream GetImageType(MyFileExt))　　Dim b() As Byte　　b = memoryStream GetBuffer()　　Dim pic As String = Convert ToBase String(b)　　memoryStream Close()　　Dim MyXml As System Xml XmlDocument = New System Xml XmlDocument()　　MyXml LoadXml( <pic><name>孟宪会</name><photo> + pic + </photo></pic> )　　MyXml Save( c:MyPhoto xml )　　Label Text = 文件被保存到了 + Microsoft VisualBasic ChrW( ) + c:MyPhoto xml 　　End Sub　　Private Sub Button _Click(ByVal sender As System Object ByVal e As System EventArgs) _　　Handles Button Click　　Dim openFileDialog As New OpenFileDialog()　　openFileDialog InitialDirectory = c: 　　openFileDialog Filter = PNG(* png)|* png|Gif(* gif)|* gif|Jpg(* jpg)|* jpg|所有图象文件(* *)|* * 　　openFileDialog FilterIndex = 　　openFileDialog RestoreDirectory = True　　If openFileDialog ShowDialog() = DialogResult OK Then　　MyFile = openFileDialog FileName()　　MyFileExt = MyFile Substring(MyFile LastIndexOf( ) + )　　End If　　End Sub　　Public Function GetImageType(ByVal str As String) As System Drawing Imaging ImageFormat　　Select Case str ToLower()　　Case jpg 　　Return System Drawing Imaging ImageFormat Jpeg　　Case gif 　　Return System Drawing Imaging ImageFormat Gif　　Case tiff 　　Return System Drawing Imaging ImageFormat Tiff()　　Case icon 　　Return System Drawing Imaging ImageFormat Icon　　Case image/png 　　Return System Drawing Imaging ImageFormat Png　　Case Else　　Return System Drawing Imaging ImageFormat MemoryBmp　　End Select　　End Function　　Private Sub Form _Closing(ByVal sender As Object ByVal e As System ComponentModel CancelEventArgs) _　　Handles MyBase Closing　　System Diagnostics Process Start( IExplore exe )　　End Sub　　End Class lishixinzhi/Article/program/net/201311/11970