Delphi DLL

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.

Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StringTable, StringBuilder, Hashtable;

...

procedure TForm1.Button1Click(Sender: TObject);
var
hashTab: HCkHashtable;
sb: HCkStringBuilder;
hashTab2: HCkHashtable;
sTable: HCkStringTable;
i: Integer;
numKeys: Integer;
key: PWideChar;

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

// Add some entries to a hashtable.
hashTab := CkHashtable_Create();

CkHashtable_AddStr(hashTab,'aaa','111');
CkHashtable_AddStr(hashTab,'bbb','222');
CkHashtable_AddStr(hashTab,'ccc','333');

// Serialize to XML
sb := CkStringBuilder_Create();
CkHashtable_ToXmlSb(hashTab,sb);
Memo1.Lines.Add(CkStringBuilder__getAsString(sb));
Memo1.Lines.Add('---');

// 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.
hashTab2 := CkHashtable_Create();
CkHashtable_AddFromXmlSb(hashTab2,sb);

// 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.
sTable := CkStringTable_Create();
CkHashtable_GetKeys(hashTab2,sTable);

i := 0;
numKeys := CkStringTable_getCount(sTable);
while i < numKeys do
  begin
    key := CkStringTable__stringAt(sTable,i);
    Memo1.Lines.Add(key + ': ' + CkHashtable__lookupStr(hashTab2,key));
    i := i + 1;
  end;

CkHashtable_Dispose(hashTab);
CkStringBuilder_Dispose(sb);
CkHashtable_Dispose(hashTab2);
CkStringTable_Dispose(sTable);

end;