Visual FoxPro

Load XML Object from HTTP Response Body

Demonstrates how to load the HTTP response body directly into an XML object. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loResp
LOCAL loXml

lnSuccess = 0

loHttp = CreateObject('Chilkat.Http')

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpStr("GET","https://www.chilkatsoft.com/exampledata/inventory.xml","","","",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

loXml = CreateObject('Chilkat.Xml')

* If we wish to transfer (instead of copy) the XML from the HttpResponse to the Xml, then add the keyword "TakeResponseBody" to UncommonOptions
* This could save memory for extremely large XML responses.
loResp.UncommonOptions = "TakeResponseBody"

loResp.GetBodyXml(loXml)

? loXml.GetXml()

* Note: If UncommonOptions contained "TakeResponseBody", then the response BodyStr will now be empty:
? "----"
? loResp.BodyStr

RELEASE loHttp
RELEASE loResp
RELEASE loXml