Visual FoxPro

MyInvois Malaysia Login as Intermediary System

See more Malaysia MyInvois Examples

Demonstrates how to get an OAuth2 access token with an intermediary that is representing a taxpayer (acting on behalf of a specific taxpayer). The OAuth2 access token can then be used to access MyInvois protected APIs. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loReq
LOCAL loResp
LOCAL loJson
LOCAL lcAccess_token
LOCAL lnExpires_in
LOCAL lcToken_type
LOCAL lcScope

lnSuccess = 0

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

* Sends the following HTTP POST to get a MyInvois OAUth2 access token using client_credentials

* POST /connect/token HTTP/1.1
* Host: preprod-api.myinvois.hasil.gov.my
* Accept: */*
* Content-Length: <<variable>>
* Content-Type: application/x-www-form-urlencoded
* onbehalfof: C25845632020
* 
* client_id={YOUR_CLIENT_ID}&client_secret={YOUR_CLIENT_SECRET}&grant_type=client_credentials&scope=InvoicingAPI

loHttp = CreateObject('Chilkat.Http')

loReq = CreateObject('Chilkat.HttpRequest')

loReq.AddHeader("onbehalfof","C25845632020")

loReq.AddParam("grant_type","client_credentials")
loReq.AddParam("client_id","YOUR_CLIENT_ID")
loReq.AddParam("client_secret","YOUR_CLIENT_SECRET")
loReq.AddParam("scope","InvoicingAPI")

loReq.HttpVerb = "POST"
loReq.ContentType = "application/x-www-form-urlencoded"

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpReq("https://preprod-api.myinvois.hasil.gov.my/connect/token",loReq,loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loResp
    CANCEL
ENDIF

* Note: The returned access token is valid for a short amount of time.  Perhaps 1 hour.
* The access token is used in the "Authorization: Bearer <access_token>" header in subsequent requests until it expires.
* Your application would then need to get a new access token, and so on..

? "Response Status Code: " + STR(loResp.StatusCode)
? "Response Body:"
? loResp.BodyStr

* Here's a sample response:

* {
*   "access_token": "eyJhbGciOiJSUzI1...",
*   "expires_in": 3600,
*   "token_type": "Bearer",
*   "scope": "InvoicingAPI"
* }

loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(loResp.BodyStr)
lcAccess_token = loJson.StringOf("access_token")
lnExpires_in = loJson.IntOf("expires_in")
lcToken_type = loJson.StringOf("token_type")
lcScope = loJson.StringOf("scope")

* To use an access token in a MyInvois API call, see Using a MyInvois Access Token in an API Request

RELEASE loHttp
RELEASE loReq
RELEASE loResp
RELEASE loJson