(Visual FoxPro) Send XMLHttpRequest and Get Response

Demonstrates how to send an HTTP XML request and retrieve the response.

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

LOCAL loHttp
LOCAL lcXmlStr
LOCAL lcUrlEndpoint
LOCAL lcXmlCharset
LOCAL loResp

* This example assumes the Chilkat 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')

* The XML sent in the body of the request is application
* specified -- it should contain whatever the server-side
* application is expecting..
lcXmlStr = '<?xml version="1.0" encoding="UTF-8"?><appXml><something>123</something></appXml>'

* The PostXml method may be called to send the XMLHttpRequest
* using the "POST" HTTP method (also known as "verb").
lcUrlEndpoint = "http://www.chilkatsoft.com/xmlEcho.asp"
lcXmlCharset = "utf-8"

loResp = loHttp.PostXml(lcUrlEndpoint,lcXmlStr,lcXmlCharset)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

* The raw HTTP request sent by the above call is:

* POST /xmlEcho.asp HTTP/1.1
* Content-Type: text/xml
* Host: www.chilkatsoft.com
* Accept: */*
* Accept-Charset: ISO-8859-1,utf-8;q=0.7,*; q=0.7
* Accept-Language: en-us,en;q=0.5
* Accept-Encoding: gzip
* Content-Length: 81
* 
* <?xml version="1.0" encoding="UTF-8"?><appXml><something>123</something></appXml>

* Examine the Body of the HTTP response
* This would be the XML response sent by the server.
? loResp.BodyStr

RELEASE loResp

RELEASE loHttp