Xbase++

POST application/json HTTPS Request

See more HTTP Examples

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. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL cUrl
LOCAL cJsonRequestBody
LOCAL oResp
LOCAL cJsonResponseStr

nSuccess := 0

//  This requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code

oHttp := CreateObject("Chilkat.Http")

//  Add a few custom headers.
oHttp:SetRequestHeader("Client-ID", "my_client_id")
oHttp:SetRequestHeader("Client-Token", "my_client_token")

oHttp:Accept := "application/json"

cUrl := "https://api.fiscallog.eu/sign/v1"
cJsonRequestBody := "{ .... }"
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpStr("POST", cUrl, cJsonRequestBody, "utf-8", "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

? "Response status code = " + Str(oResp:StatusCode)
cJsonResponseStr := oResp:BodyStr

? cJsonResponseStr

oHttp:destroy()
oResp:destroy()