(DataFlex) Get Akeneo Token given Client ID and Secret

Assumes you're starting with a client ID and secret obtained from your OAuth1 provider, such as OneLogin. Demonstrates how to get an akeneo token using your client id/secret in combination with your akeneo login/password.

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

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoHttp
    Variant vJson
    Handle hoJson
    String sUrl
    Variant vResp
    Handle hoResp
    String sAccess_token
    Integer iExpires_in
    String sToken_type
    String sScope
    String sRefresh_token
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // The HTTP Basic authentication for this request is the
    // OAuth client id and secret you've already obtained.
    Set ComBasicAuth Of hoHttp To True
    Set ComLogin Of hoHttp To "my_akeneo_client_id"
    Set ComPassword Of hoHttp To "my_akeneo_secret"

    // Build this JSON:
    // {
    //   "grant_type": "password",
    //   "username": "yourusername",
    //   "password": "yourpassword"
    // }

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComUpdateString Of hoJson "grant_type" "password" To iSuccess
    Get ComUpdateString Of hoJson "username" "my_akeneo_username" To iSuccess
    Get ComUpdateString Of hoJson "password" "my_akeneo_password" To iSuccess

    // POST this JSON (with the Basic Authentication header)
    Move "http://pim.my-akeneo-site.com/api/oauth/v1/token" To sUrl
    Get pvComObject of hoJson to vJson
    Get ComPostJson3 Of hoHttp sUrl "application/json" vJson To vResp
    If (IsComObject(vResp)) Begin
        Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
        Set pvComObject Of hoResp To vResp
    End
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComStatusCode Of hoResp To iTemp1
    Showln "Response status code: " iTemp1
    Get ComBodyStr Of hoResp To sTemp1
    Showln "Response body: " sTemp1

    Get ComStatusCode Of hoResp To iTemp1
    If (iTemp1 = 200) Begin
        // Success.
        // Parse the response, which looks like this:

        // 		{
        // 		    "access_token": "MTE0NzNkNzI5YTk0ZTBlNmFlNTI5NmVkOWJhZjUxYWRkN2UzZWIwOWNkMTkwNzY5Mzk3NGViMDFmYzdlODJlMg",
        // 		    "expires_in": 3600,
        // 		    "token_type": "bearer",
        // 		    "scope": null,
        // 		    "refresh_token": "ZDkyMzA2NDhlZjQ2MGQyMDQ2MWRiMDBmOTdkZjQ5ODY5Mzc3MTEzMjVkNTkwZThmNWRlNWY0MzllYWMxZWQ5ZA"
        // 		}

        Get ComBodyStr Of hoResp To sTemp1
        Get ComLoad Of hoJson sTemp1 To iSuccess
        Get ComStringOf Of hoJson "access_token" To sAccess_token
        Get ComIntOf Of hoJson "expires_in" To iExpires_in
        Get ComStringOf Of hoJson "token_type" To sToken_type
        Get ComStringOf Of hoJson "scope" To sScope
        Get ComStringOf Of hoJson "refresh_token" To sRefresh_token

        Showln "Access Token: " sAccess_token
    End

    Send Destroy of hoResp


End_Procedure