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
(Xojo Plugin) hacienda.go.cr Refrescar un TokenRefreshes an access token for the Recepción de Comprobantes Electrónicos del Ministerio de Hacienda (Costa Rica) For more information, see https://www.hacienda.go.cr/ATV/ComprobanteElectronico/docs/esquemas/2016/v4.3/Guia_IdP.pdf
// 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 Dim jsonToken As New Chilkat.JsonObject Dim success As Boolean success = jsonToken.LoadFile("qa_data/tokens/hacienda_cr.json") If (success <> True) Then System.DebugLog("Failed to load constantContact.json") Return End If // 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" // } Dim http As New 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 Dim req As New Chilkat.HttpRequest req.HttpVerb = "POST" req.Path = "/auth/realms/rut-stag/protocol/openid-connect/token" req.ContentType = "application/x-www-form-urlencoded" req.AddParam "client_id","api-stag" req.AddParam "refresh_token",jsonToken.StringOf("refresh_token") req.AddParam "grant_type","refresh_token" Dim resp As Chilkat.HttpResponse resp = http.PostUrlEncoded("https://idp.comprobanteselectronicos.go.cr/auth/realms/rut-stag/protocol/openid-connect/token",req) If (http.LastMethodSuccess = False) Then System.DebugLog(http.LastErrorText) Return End If Dim sbResponseBody As New Chilkat.StringBuilder success = resp.GetBodySb(sbResponseBody) Dim jResp As New Chilkat.JsonObject success = jResp.LoadSb(sbResponseBody) jResp.EmitCompact = False System.DebugLog("Response Body:") System.DebugLog(jResp.Emit()) Dim respStatusCode As Int32 respStatusCode = resp.StatusCode System.DebugLog("Response Status Code = " + Str(respStatusCode)) If (respStatusCode >= 400) Then System.DebugLog("Response Header:") System.DebugLog(resp.Header) System.DebugLog("Failed.") Return End If // 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 Dim access_token As String access_token = jResp.StringOf("access_token") Dim expires_in As Int32 expires_in = jResp.IntOf("expires_in") Dim id_token As String id_token = jResp.StringOf("id_token") Dim not_before_policy As Int32 not_before_policy = jResp.IntOf("not-before-policy") Dim refresh_expires_in As Int32 refresh_expires_in = jResp.IntOf("refresh_expires_in") Dim refresh_token As String refresh_token = jResp.StringOf("refresh_token") Dim session_state As String session_state = jResp.StringOf("session_state") Dim token_type As String token_type = jResp.StringOf("token_type") // Save the new JSON access token response to a file. success = jResp.WriteFile("qa_data/tokens/haciendda_cr.json") |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.