Code: Select all
PROCEDURE Main
LOCAL oHC, cAccessToken, cJS, cResult
cAccessToken := "XQlO0HszO4NB/pyHrdyeLGPeQO59X7iWVT1FOWt6Ok6foyXSomBKOpDLt5j2RcoNC6ssXYCok4y55kGEz2TAh3Vc6YqPedExx0ipn9w7Gqw5JPvLYT3kv8CEf2sbHt7W+g/SlhtL5ajbF/WF2ucXl8TYAqz1fa9zf22XCCG8s/MM2qlkiyq/yM1stXSrdKjyq+raNvdwLifynpQ3EaeXA4IDbV1kjaGiUwgSSLLIKto="
oHC := HttpClient():new( "https://api.dhlglobalmail.com/v2/label/multi/image" )
oHC:setAcceptType( "application/json" )
oHC:setAcceptCharSet( "utf-8" )
oHC:httpRequest:setContentType( "application/json" )
oHC:httpRequest:setContentCharSet( "utf-8" )
oHC:httpRequest:setParameter( "access_token", cAccessToken )
oHC:httpRequest:setParameter( "client_id", "28363" )
oHC:httpRequest:setMethod( "POST" )
cJS := "valid json goes here"
oHC:httpRequest:setContent( cJs )
cResult := oHC:send()
wtf oHC:httpRequest:getUri(), oHC:httpRequest:getQueryString(), cResult pause
RETURN
Code: Select all
cResult := {"meta":{"error":[{"error_message":"Access Token provided was invalid","error_type":"INVALID_TOKEN"}],"timestamp":"2018-03-12T15:26:15-04:00","code":400}}
Code: Select all
{
"meta": {
"error": [
{
"error_message": "Request did not contain valid JSON",
"error_type": "INVALID_JSON"
}
],
"timestamp": "2018-03-12T15:07:41-04:00",
"code": 400
}
}