jpg格式的图片如何转换成xml文件

Question

详细问题如下，JPG图片如何转换成大智慧软件股票池的xml文件，或者说是图片如何嵌入股票池的XML文件，软件又可以读取到图片。即图片在股票池文件中显示

Answer 1

图片和XML格式文件相互转换

Public Class Form1
Private MyFile As String = ""
Private MyFileExt As String = ""
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
'将图片保存成XML
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.ToBase64String(b)
memoryStream.Close()
Dim MyXml As System.Xml.XmlDocument = New System.Xml.XmlDocument()
MyXml.LoadXml("孟宪会" + pic + "")
MyXml.Save("c:/MyPhoto.xml")
Label1.Text = "文件被保存到了：" + Microsoft.VisualBasic.ChrW(13) + "c:/MyPhoto.xml"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button2.Click
'从XML中得到图片
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.FromBase64String(pic))
Me.PictureBox1.Image = New System.Drawing.Bitmap(memoryStream)
memoryStream.Close()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
  Handles Button3.Click
    '浏览图片
    Dim openFileDialog1 As New OpenFileDialog()
    openFileDialog1.InitialDirectory = "c:/"
    openFileDialog1.Filter = "PNG(*.png)|*.png|Gif(*.gif)|*.gif|Jpg(*.jpg)|*.jpg|所有图象文件(*.*)|*.*"
    openFileDialog1.FilterIndex = 2
    openFileDialog1.RestoreDirectory = True
    If openFileDialog1.ShowDialog() = DialogResult.OK Then
        MyFile = openFileDialog1.FileName()
        MyFileExt = MyFile.Substring(MyFile.LastIndexOf(".") + 1)
    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

End Class