Visual FoxPro

HTTP POST with XML Body

Demonstrates sending an HTTP POST with a XML body. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loXml
LOCAL loSbRequestBody
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')

* Implements the following CURL command:

* curl -X POST https://example.com/StockQuote \
*   -H "Host: www.example.org" \
*   -H "Content-Type: application/soap+xml; charset=utf-8" \
*   -H "SOAPAction: http://www.example.org/StockPrice" \
*   -d '<?xml version="1.0"?>
* 
* <soap:Envelope
* xmlns:soap="http://www.w3.org/2003/05/soap-envelope/"
* soap:encodingStyle="http://www.w3.org/2003/05/soap-encoding">
* 
* <soap:Body xmlns:m="http://www.example.org/stock">
*   <m:GetStockPrice>
*     <m:StockName>IBM</m:StockName>
*   </m:GetStockPrice>
* </soap:Body>
* 
* </soap:Envelope>'

* Use the following online tool to generate HTTP code from a CURL command
* Convert a cURL Command to HTTP Source Code

* Use this online tool to generate code from sample XML:
* Generate Code to Create XML

* --------------------------------------------------------------------------------
* Also see Chilkat's Online WSDL Code Generator
* to generate code and SOAP Request and Response XML for each operation in a WSDL.
* --------------------------------------------------------------------------------

* The following XML is sent in the request body.

* <?xml version="1.0" encoding="utf-8"?>
* <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope/" soap:encodingStyle="http://www.w3.org/2003/05/soap-encoding">
*     <soap:Body xmlns:m="http://www.example.org/stock">
*         <m:GetStockPrice>
*             <m:StockName>IBM</m:StockName>
*         </m:GetStockPrice>
*     </soap:Body>
* </soap:Envelope>
* 

loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "soap:Envelope"
loXml.AddAttribute("xmlns:soap","http://www.w3.org/2003/05/soap-envelope/")
loXml.AddAttribute("soap:encodingStyle","http://www.w3.org/2003/05/soap-encoding")
loXml.UpdateAttrAt("soap:Body",1,"xmlns:m","http://www.example.org/stock")
loXml.UpdateChildContent("soap:Body|m:GetStockPrice|m:StockName","IBM")

loHttp.SetRequestHeader("SOAPAction","http://www.example.org/StockPrice")
loHttp.SetRequestHeader("Host","www.example.org")
loHttp.SetRequestHeader("Content-Type","application/soap+xml; charset=utf-8")

loSbRequestBody = CreateObject('Chilkat.StringBuilder')
loXml.GetXmlSb(loSbRequestBody)

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpSb("POST","https://example.com/StockQuote",loSbRequestBody,"utf-8","application/soap+xml; charset=utf-8",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loXml
    RELEASE loSbRequestBody
    RELEASE loResp
    CANCEL
ENDIF

? STR(loResp.StatusCode)
? loResp.BodyStr

RELEASE loHttp
RELEASE loXml
RELEASE loSbRequestBody
RELEASE loResp