(Visual FoxPro) POST XML to https://apicert.sii.cl/recursos/v1/boleta.electronica.token

Demonstrates how to send an HTTPS POST XML request to POST XML to https://apicert.sii.cl/recursos/v1/boleta.electronica.token and retrieve the response.

Note: This example requires Chilkat v11.0.0 or greater.

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

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

* XML to send in the body of the HTTPS POST
lcXmlStr = "..."

lcUrlEndpoint = "https://apicert.sii.cl/recursos/v1/boleta.electronica.token"
lcXmlCharset = "utf-8"

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpStr("POST",lcUrlEndpoint,lcXmlStr,"utf-8","application/xml",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

* Get the response status code and body
? "response status code = " + STR(loResp.StatusCode)

* This would be the XML response sent by the server.
? loResp.BodyStr

RELEASE loHttp
RELEASE loResp