(Visual FoxPro) Send HTTPS POST with XML Body

Demonstrates how to send an HTTP (or HTTPS) POST where the body of the request is XML.

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

LOCAL loHttp
LOCAL lcStrXml
LOCAL loResp

* This example requires 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')

lcStrXml = '<TransactionSetup xmlns="https://xyz.com"><Credentials><AccountID>XXX</AccountID></Credentials></TransactionSetup>'

* Choose a content-type.  Typical content types for XML POSTs are "application/xml" or "text/xml".
loHttp.SetRequestHeader("Content-Type","text/xml")

* Maybe you need other headers?
loHttp.SetRequestHeader("Accept","text/xml")

loResp = loHttp.PostXml("https://www.somewebsite.com/",lcStrXml,"utf-8")
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

* Examine the response status code:
? "response status code = " + STR(loResp.StatusCode)

* Examine the response body:
? "response body: " + loResp.BodyStr

RELEASE loResp

RELEASE loHttp