Xbase++

qa.factura1.com.co Obtain Auth Token

See more HTTP Misc Examples

Demonstrates how to send a JSON POST to get an authenticataion token for qa.factura1.com.co Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oJson
LOCAL oResp
LOCAL oJsonResp

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

//  Build the following JSON
//  {
//    "password": "MY_PASSWORD",
//    "username": "MY_USERNAME"
//  }

oJson := CreateObject("Chilkat.JsonObject")
oJson:EmitCompact := 0
oJson:UpdateString("password", "MY_PASSWORD")
oJson:UpdateString("username", "MY_USERNAME")

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("POST", "https://qa.factura1.com.co/v2/auth", oJson, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oJson:destroy()
    oResp:destroy()
    RETURN
ENDIF

oJsonResp := CreateObject("Chilkat.JsonObject")
oJsonResp:EmitCompact := 0
oJsonResp:Load(oResp:BodyStr)

? oJsonResp:Emit()

? "Access token: " + oJsonResp:StringOf("token")

oHttp:destroy()
oJson:destroy()
oResp:destroy()
oJsonResp:destroy()