(Visual FoxPro) Download HTML from URL and Convert to XML

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loGlob
LOCAL lnSuccess
LOCAL loHttp
LOCAL lcHtml
LOCAL loHtmlToXml
LOCAL lcXml

* Note: This example requires the Chilkat Bundle license.

* Any string argument automatically begins the 30-day trial.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Global')
loGlob = CreateObject('Chilkat.Global')
lnSuccess = loGlob.UnlockBundle("30-day trial")
IF (lnSuccess <> 1) THEN
    ? loGlob.LastErrorText
    RELEASE loGlob
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

lcHtml = loHttp.QuickGetStr("http://www.intel.com/")
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loGlob
    RELEASE loHttp
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.HtmlToXml')
loHtmlToXml = CreateObject('Chilkat.HtmlToXml')

* 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.
lnSuccess = loHtmlToXml.WriteStringToFile(lcXml,"qa_output/out.xml","utf-8")

? "Finished."

RELEASE loGlob
RELEASE loHttp
RELEASE loHtmlToXml