![]() |
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
(Visual FoxPro) hacienda.go.cr Refrescar un TokenRefreshes an access token for the Recepción de Comprobantes Electrónicos del Ministerio de Hacienda (Costa Rica) Note: This example requires Chilkat v11.0.0 or greater. For more information, see https://www.hacienda.go.cr/ATV/ComprobanteElectronico/docs/esquemas/2016/v4.3/Guia_IdP.pdf
LOCAL lnSuccess LOCAL loJsonToken LOCAL loHttp LOCAL loReq LOCAL loResp LOCAL loSbResponseBody LOCAL loJResp LOCAL lnRespStatusCode LOCAL lcAccess_token LOCAL lnExpires_in LOCAL lcId_token LOCAL lnNot_before_policy LOCAL lnRefresh_expires_in LOCAL lcRefresh_token LOCAL lcSession_state LOCAL lcToken_type lnSuccess = 0 * This example assumes the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * It is assumed we previously obtained an OAuth2 access token. * This example loads the JSON access token file * saved by this example: Get hacienda.co.cr OAuth2 Access Token loJsonToken = CreateObject('Chilkat.JsonObject') lnSuccess = loJsonToken.LoadFile("qa_data/tokens/hacienda_cr.json") IF (lnSuccess <> 1) THEN ? "Failed to load constantContact.json" RELEASE loJsonToken CANCEL ENDIF * The access token JSON looks like this: * { * "access_token": "ey....", * "expires_in": 300, * "id_token": "ey....", * "not-before-policy": 0, * "refresh_expires_in": 1800, * "refresh_token": "ey...", * "session_state": "...", * "token_type": "bearer" * } loHttp = CreateObject('Chilkat.Http') * Implements the following CURL command: * curl -X "POST" "https://idp.comprobanteselectronicos.go.cr/auth/realms/rut-stag/protocol/openid-connect/token" \ * -H "Content-Type: application/x-www-form-urlencoded; charset=utf-8" \ * --data-urlencode "client_id=api-stag" \ * --data-urlencode "refresh_token=ey..." \ * --data-urlencode "grant_type=refresh_token" * Use the following online tool to generate HTTP code from a CURL command * Convert a cURL Command to HTTP Source Code loReq = CreateObject('Chilkat.HttpRequest') loReq.HttpVerb = "POST" loReq.Path = "/auth/realms/rut-stag/protocol/openid-connect/token" loReq.ContentType = "application/x-www-form-urlencoded" loReq.AddParam("client_id","api-stag") loReq.AddParam("refresh_token",loJsonToken.StringOf("refresh_token")) loReq.AddParam("grant_type","refresh_token") loResp = CreateObject('Chilkat.HttpResponse') lnSuccess = loHttp.HttpReq("https://idp.comprobanteselectronicos.go.cr/auth/realms/rut-stag/protocol/openid-connect/token",loReq,loResp) IF (lnSuccess = 0) THEN ? loHttp.LastErrorText RELEASE loJsonToken RELEASE loHttp RELEASE loReq RELEASE loResp CANCEL ENDIF loSbResponseBody = CreateObject('Chilkat.StringBuilder') loResp.GetBodySb(loSbResponseBody) loJResp = CreateObject('Chilkat.JsonObject') loJResp.LoadSb(loSbResponseBody) loJResp.EmitCompact = 0 ? "Response Body:" ? loJResp.Emit() lnRespStatusCode = loResp.StatusCode ? "Response Status Code = " + STR(lnRespStatusCode) IF (lnRespStatusCode >= 400) THEN ? "Response Header:" ? loResp.Header ? "Failed." RELEASE loJsonToken RELEASE loHttp RELEASE loReq RELEASE loResp RELEASE loSbResponseBody RELEASE loJResp CANCEL ENDIF * Sample JSON response: * (Sample code for parsing the JSON response is shown below) * { * "access_token": "ey....", * "expires_in": 300, * "id_token": "ey....", * "not-before-policy": 0, * "refresh_expires_in": 1800, * "refresh_token": "ey...", * "session_state": "...", * "token_type": "bearer" * } * Sample code for parsing the JSON response... * Use the following online tool to generate parsing code from sample JSON: * Generate Parsing Code from JSON lcAccess_token = loJResp.StringOf("access_token") lnExpires_in = loJResp.IntOf("expires_in") lcId_token = loJResp.StringOf("id_token") lnNot_before_policy = loJResp.IntOf("not-before-policy") lnRefresh_expires_in = loJResp.IntOf("refresh_expires_in") lcRefresh_token = loJResp.StringOf("refresh_token") lcSession_state = loJResp.StringOf("session_state") lcToken_type = loJResp.StringOf("token_type") * Save the new JSON access token response to a file. lnSuccess = loJResp.WriteFile("qa_data/tokens/haciendda_cr.json") RELEASE loJsonToken RELEASE loHttp RELEASE loReq RELEASE loResp RELEASE loSbResponseBody RELEASE loJResp |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.