Saving and Retrieving Data in XML

Saving and retrieving data in XML.

Download Chilkat Email ActiveX

Download Chilkat XML ActiveX

Download 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

'  Create an XML file with data that will later be loaded and
'  accessed by field name:
Dim xml As New ChilkatXml
xml.Tag = "emailData"

xml.NewChild2 "from","admin@chilkatsoft.com"
xml.NewChild2 "toName","Chilkat Support"
xml.NewChild2 "toAddr","support@chilkatsoft.com"
xml.NewChild2 "subject","This is a test"
xml.NewChild2 "body","This is an email body"

'  Save the XML:
Dim success As Long
success = xml.SaveXml("emailData.xml")
If (success <> 1) Then
    MsgBox xml.LastErrorText
    Exit Sub
End If

Dim xml2 As New ChilkatXml

'  Load the XML file:
success = xml2.LoadXmlFile("emailData.xml")
If (success <> 1) Then
    MsgBox xml2.LastErrorText
    Exit Sub
End If

'  Access the data by name
Text1.Text = Text1.Text & xml2.GetChildContent("from") & vbCrLf
Text1.Text = Text1.Text & xml2.GetChildContent("toName") & vbCrLf
Text1.Text = Text1.Text & xml2.GetChildContent("toAddr") & vbCrLf
Text1.Text = Text1.Text & xml2.GetChildContent("subject") & vbCrLf
Text1.Text = Text1.Text & xml2.GetChildContent("body") & vbCrLf
Text1.Text = Text1.Text & "------" & vbCrLf

'  Let's say I want to load this into an email object:
Dim email As New ChilkatEmail2

email.From = xml2.GetChildContent("from")
Dim toName As String
Dim toAddr As String
toName = xml2.GetChildContent("toName")
toAddr = xml2.GetChildContent("toAddr")
email.AddTo toName,toAddr
email.Subject = xml2.GetChildContent("subject")
email.Body = xml2.GetChildContent("body")

Text1.Text = Text1.Text & email.GetMime() & vbCrLf