![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(DataFlex) Get Akeneo Token given Client ID and SecretAssumes 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. Note: This example requires Chilkat v11.0.0 or greater.
Use ChilkatAx-win32.pkg Procedure Test Boolean iSuccess 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 Move False To iSuccess // 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 Create (RefClass(cComChilkatHttpResponse)) To hoResp If (Not(IsComObjectCreated(hoResp))) Begin Send CreateComObject of hoResp End Get pvComObject of hoJson to vJson Get pvComObject of hoResp to vResp Get ComHttpJson Of hoHttp "POST" sUrl vJson "application/json" vResp To iSuccess If (iSuccess = False) 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 End_Procedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.