Download HTML from URL and Convert to XML

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

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 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
    =MESSAGEBOX("HTTP component unlock failed")
    QUIT
ENDIF

lcHtml = loHttp.QuickGetStr("http://www.intel.com/")
IF (lcHtml = NULL ) THEN
    =MESSAGEBOX(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
    =MESSAGEBOX("HtmlToXml component unlock failed")
    QUIT
ENDIF

*  Indicate the charset of the output XML we'll want.
loHtmlToXml.XmlCharset = "iso-8859-1"

*  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","iso-8859-1")

=MESSAGEBOX("Finished.")