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)

LOCAL loXml
LOCAL lnSuccess
LOCAL loXml2
LOCAL loEmail
LOCAL lcToName
LOCAL lcToAddr


*  Create an XML file with data that will later be loaded and
*  accessed by field name:
loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "emailData"

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

*  Save the XML:

lnSuccess = loXml.SaveXml("emailData.xml")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loXml.LastErrorText)
    QUIT
ENDIF

loXml2 = CreateObject('Chilkat.Xml')

*  Load the XML file:
lnSuccess = loXml2.LoadXmlFile("emailData.xml")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loXml2.LastErrorText)
    QUIT
ENDIF

*  Access the data by name
? loXml2.GetChildContent("from")
? loXml2.GetChildContent("toName")
? loXml2.GetChildContent("toAddr")
? loXml2.GetChildContent("subject")
? loXml2.GetChildContent("body")
? "------"

*  Let's say I want to load this into an email object:
loEmail = CreateObject('Chilkat.Email2')

loEmail.From = loXml2.GetChildContent("from")

lcToName = loXml2.GetChildContent("toName")
lcToAddr = loXml2.GetChildContent("toAddr")
loEmail.AddTo(lcToName,lcToAddr)
loEmail.Subject = loXml2.GetChildContent("subject")
loEmail.Body = loXml2.GetChildContent("body")

? loEmail.GetMime()