Visual FoxPro

POST XML to https://apicert.sii.cl/recursos/v1/boleta.electronica.token

See more HTTP Misc Examples

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

* 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