Convert HTML to XML with Auto-Correction

Simple HTML to XML conversion. Demonstrates how the HTML is auto-corrected to create well-formed XML. In this example, the closing

is missing. Also, text is encapsulated in nodes with the intent to make it easy for programs to identify and extract the text parts.

Download Chilkat HTML-to-XML ActiveX (also includes HTML-to-PlainText conversion)

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
htmlToXml: THtmlToXml;
success: Integer;

begin
htmlToXml := THtmlToXml.Create(Self);

//  Any string argument automatically begins the 30-day trial.
success := htmlToXml.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    Memo1.Lines.Add(htmlToXml.LastErrorText);
    Exit;
  end;

//  Indicate the charset of the output XML we'll want.
htmlToXml.XmlCharset := 'utf-8';

//  Set the HTML:
htmlToXml.Html := '<html><body><p>This is a test <a href="http://www.chilkatsoft.com/">Chilkat Software</a></body></html>';

//  Get the XML:
Memo1.Lines.Add(htmlToXml.ToXml());

//  This is the output:
//  <?xml version="1.0" encoding="utf-8" ?>
// 
//  <root>
//      <html>
//          <body>
//              <p>
//                  <text>This is a test </text>
//                  <a href="http://www.chilkatsoft.com/">
//                      <text>Chilkat Software</text>
//                  </a>
//              </p>
//          </body>
//      </html>
//  </root>

end;

Mail Component · .NET Email Component · XML Parser