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)

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATMAILLib2_TLB,
    CHILKATXMLLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
xml: CHILKATXMLLib_TLB.IChilkatXml;
success: Integer;
xml2: CHILKATXMLLib_TLB.IChilkatXml;
email: CHILKATMAILLib2_TLB.IChilkatEmail2;
toName: String;
toAddr: String;

begin

//  Create an XML file with data that will later be loaded and
//  accessed by field name:
xml := TChilkatXml.Create(Self).ControlInterface;
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:

success := xml.SaveXml('emailData.xml');
if (success <> 1) then
  begin
    ShowMessage(xml.LastErrorText);

  end;

xml2 := TChilkatXml.Create(Self).ControlInterface;

//  Load the XML file:
success := xml2.LoadXmlFile('emailData.xml');
if (success <> 1) then
  begin
    ShowMessage(xml2.LastErrorText);

  end;
//  Access the data by name
Memo1.Lines.Add(xml2.GetChildContent('from'));
Memo1.Lines.Add(xml2.GetChildContent('toName'));
Memo1.Lines.Add(xml2.GetChildContent('toAddr'));
Memo1.Lines.Add(xml2.GetChildContent('subject'));
Memo1.Lines.Add(xml2.GetChildContent('body'));
Memo1.Lines.Add('------');

//  Let's say I want to load this into an email object:
email := CoChilkatEmail2.Create();

email.From := xml2.GetChildContent('from');

toName := xml2.GetChildContent('toName');
toAddr := xml2.GetChildContent('toAddr');
email.AddTo(toName,toAddr);
email.Subject := xml2.GetChildContent('subject');
email.Body := xml2.GetChildContent('body');

Memo1.Lines.Add(email.GetMime());


end;