(Visual FoxPro) POST application/json HTTPS Request

Demonstrates how to send an HTTPS POST where the request body and response body both have the application/json Content-Type. Also demonstrates how to add a few custom headers to the request.

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

LOCAL loHttp
LOCAL lcUrl
LOCAL lcJsonRequestBody
LOCAL loResp
LOCAL lcJsonResponseStr

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

* Add a few custom headers.
loHttp.SetRequestHeader("Client-ID","my_client_id")
loHttp.SetRequestHeader("Client-Token","my_client_token")

loHttp.Accept = "application/json"

lcUrl = "https://api.fiscallog.eu/sign/v1"
lcJsonRequestBody = "{ .... }"
loResp = loHttp.PostJson2(lcUrl,"application/json",lcJsonRequestBody)
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    CANCEL
ENDIF

? "Response status code = " + STR(loResp.StatusCode)
lcJsonResponseStr = loResp.BodyStr

? lcJsonResponseStr

RELEASE loResp

RELEASE loHttp