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