Download HTML from URL and Convert to XML

Downloads an HTML page from a URL and converts it to XML.

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

Download Chilkat HTTP ActiveX

LOCAL loHttp
LOCAL lnSuccess
LOCAL lcHtml
LOCAL loHtmlToXml
LOCAL lcXml

*  Note: This example uses two Chilkat products: Chilkat HTTP
*  and Chilkat HTML-to-XML.  The "Chilkat Bundle" can be licensed
*  at a price that is less than purchasing each product individually.
*  The "Chilkat Bundle" provides licenses to all existing Chilkat components.  Also, new-version upgrades are always free.

loHttp = CreateObject('Chilkat.Http')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loHttp.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
    QUIT
ENDIF

lcHtml = loHttp.QuickGetStr("http://www.intel.com/")
IF (lcHtml = NULL ) THEN
    ? loHttp.LastErrorText
    QUIT
ENDIF

loHtmlToXml = CreateObject('Chilkat.HtmlToXml')

*  Any string argument automatically begins the 30-day trial.
lnSuccess = loHtmlToXml.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    ? loHtmlToXml.LastErrorText
    QUIT
ENDIF

*  Indicate the charset of the output XML we'll want.
loHtmlToXml.XmlCharset = "utf-8"

*  Set the HTML:
loHtmlToXml.Html = lcHtml

*  Convert to XML:

lcXml = loHtmlToXml.ToXml()

*  Save the XML to a file.
*  Make sure your charset here matches the charset
*  used for the XmlCharset property.
loHtmlToXml.WriteStringToFile(lcXml,"out.xml","utf-8")

=MESSAGEBOX("Finished.")