Xbase++

Serialize / Deserialize Hashtable to/from XML

Demonstrates how to seralize / deserialize a Hashtable to/from XML.

Note: This example requires Chilkat v9.5.0.64 or later.

Xbase++

LOCAL oHashTab
LOCAL oSb
LOCAL oHashTab2
LOCAL oSTable
LOCAL i
LOCAL nNumKeys
LOCAL cKey

//  Note: This example requires Chilkat v9.5.0.64 or later.

//  Add some entries to a hashtable.
oHashTab := CreateObject("Chilkat.Hashtable")

oHashTab:AddStr("aaa", "111")
oHashTab:AddStr("bbb", "222")
oHashTab:AddStr("ccc", "333")

//  Serialize to XML
oSb := CreateObject("Chilkat.StringBuilder")
oHashTab:ToXmlSb(oSb)
? oSb:GetAsString()
? "---"

//  The output is as follows.  Each hash table entry
//  is contained in an "e" node.  The entry's key
//  is in the "k" node, and the value in the "v" node.

//  <?xml version="1.0" encoding="utf8-8"?>
//  <hashtable>
//  <e><k>aaa</k><v>111</v></e>
//  <e><k>bbb</k><v>222</v></e>
//  <e><k>ccc</k><v>333</v></e>
//  </hashtable>
//  

//  Now load (deserialize) into a new hash table.
oHashTab2 := CreateObject("Chilkat.Hashtable")
oHashTab2:AddFromXmlSb(oSb)

//  Get the hash table keys, and lookup each (to show 
//  that the hash table was correctly deserialized).
//  The GetKeys method can return the keys in any order.
oSTable := CreateObject("Chilkat.StringTable")
oHashTab2:GetKeys(oSTable)

i := 0
nNumKeys := oSTable:Count
DO WHILE i < nNumKeys
    cKey := oSTable:StringAt(i)
    ? cKey + ": " + oHashTab2:LookupStr(cKey)
    i := i + 1
ENDDO

oHashTab:destroy()
oSb:destroy()
oHashTab2:destroy()
oSTable:destroy()