![]() |
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
(PowerBuilder) 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
integer li_rc integer li_Success oleobject loo_JsonToken oleobject loo_Http oleobject loo_Req oleobject loo_Resp oleobject loo_SbResponseBody oleobject loo_JResp integer li_RespStatusCode string ls_Access_token integer li_Expires_in string ls_Id_token integer li_Not_before_policy integer li_Refresh_expires_in string ls_Refresh_token string ls_Session_state string ls_Token_type li_Success = 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 loo_JsonToken = create oleobject li_rc = loo_JsonToken.ConnectToNewObject("Chilkat.JsonObject") if li_rc < 0 then destroy loo_JsonToken MessageBox("Error","Connecting to COM object failed") return end if li_Success = loo_JsonToken.LoadFile("qa_data/tokens/hacienda_cr.json") if li_Success <> 1 then Write-Debug "Failed to load constantContact.json" destroy loo_JsonToken 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" // } loo_Http = create oleobject li_rc = loo_Http.ConnectToNewObject("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 loo_Req = create oleobject li_rc = loo_Req.ConnectToNewObject("Chilkat.HttpRequest") loo_Req.HttpVerb = "POST" loo_Req.Path = "/auth/realms/rut-stag/protocol/openid-connect/token" loo_Req.ContentType = "application/x-www-form-urlencoded" loo_Req.AddParam("client_id","api-stag") loo_Req.AddParam("refresh_token",loo_JsonToken.StringOf("refresh_token")) loo_Req.AddParam("grant_type","refresh_token") loo_Resp = create oleobject li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse") li_Success = loo_Http.HttpReq("https://idp.comprobanteselectronicos.go.cr/auth/realms/rut-stag/protocol/openid-connect/token",loo_Req,loo_Resp) if li_Success = 0 then Write-Debug loo_Http.LastErrorText destroy loo_JsonToken destroy loo_Http destroy loo_Req destroy loo_Resp return end if loo_SbResponseBody = create oleobject li_rc = loo_SbResponseBody.ConnectToNewObject("Chilkat.StringBuilder") loo_Resp.GetBodySb(loo_SbResponseBody) loo_JResp = create oleobject li_rc = loo_JResp.ConnectToNewObject("Chilkat.JsonObject") loo_JResp.LoadSb(loo_SbResponseBody) loo_JResp.EmitCompact = 0 Write-Debug "Response Body:" Write-Debug loo_JResp.Emit() li_RespStatusCode = loo_Resp.StatusCode Write-Debug "Response Status Code = " + string(li_RespStatusCode) if li_RespStatusCode >= 400 then Write-Debug "Response Header:" Write-Debug loo_Resp.Header Write-Debug "Failed." destroy loo_JsonToken destroy loo_Http destroy loo_Req destroy loo_Resp destroy loo_SbResponseBody destroy loo_JResp 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 ls_Access_token = loo_JResp.StringOf("access_token") li_Expires_in = loo_JResp.IntOf("expires_in") ls_Id_token = loo_JResp.StringOf("id_token") li_Not_before_policy = loo_JResp.IntOf("not-before-policy") li_Refresh_expires_in = loo_JResp.IntOf("refresh_expires_in") ls_Refresh_token = loo_JResp.StringOf("refresh_token") ls_Session_state = loo_JResp.StringOf("session_state") ls_Token_type = loo_JResp.StringOf("token_type") // Save the new JSON access token response to a file. li_Success = loo_JResp.WriteFile("qa_data/tokens/haciendda_cr.json") destroy loo_JsonToken destroy loo_Http destroy loo_Req destroy loo_Resp destroy loo_SbResponseBody destroy loo_JResp |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.