Visual FoxPro

Send XMLHttpRequest and Get Response

See more HTTP Examples

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

LOCAL lnSuccess
LOCAL loHttp
LOCAL lcXmlStr
LOCAL lcUrlEndpoint
LOCAL lcXmlCharset
LOCAL loResp

lnSuccess = 0

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

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>'

lcUrlEndpoint = "http://www.chilkatsoft.com/xmlEcho.asp"
lcXmlCharset = "utf-8"

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpStr("POST",lcUrlEndpoint,lcXmlStr,lcXmlCharset,"application/xml",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loResp
    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 loHttp
RELEASE loResp