(Visual FoxPro) Load XML from a Remote URL

Demonstrates how to load XML from a remote URL, such as https://www.chilkatsoft.com/hamlet.xml

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

LOCAL loHttp
LOCAL loSbXml
LOCAL lnSuccess
LOCAL loXml

* This example assumes the Chilkat HTTP API to have been previously unlocked.
* See Global Unlock Sample for sample code.

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

* Download the XML from the URL into sbXml
lnSuccess = loHttp.QuickGetSb("https://www.chilkatsoft.com/hamlet.xml",loSbXml)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loSbXml
    CANCEL
ENDIF

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

* Load the XML contained in sbXml
lnSuccess = loXml.LoadSb(loSbXml,1)
IF (lnSuccess = 0) THEN
    ? loXml.LastErrorText
    RELEASE loHttp
    RELEASE loSbXml
    RELEASE loXml
    CANCEL
ENDIF

? "Success."

RELEASE loHttp
RELEASE loSbXml
RELEASE loXml