![]() |
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
(Tcl) 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
load ./chilkat.dll set 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 set jsonToken [new_CkJsonObject] set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/hacienda_cr.json"] if {$success != 1} then { puts "Failed to load constantContact.json" delete_CkJsonObject $jsonToken exit } # 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" # } set http [new_CkHttp] # 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 set req [new_CkHttpRequest] CkHttpRequest_put_HttpVerb $req "POST" CkHttpRequest_put_Path $req "/auth/realms/rut-stag/protocol/openid-connect/token" CkHttpRequest_put_ContentType $req "application/x-www-form-urlencoded" CkHttpRequest_AddParam $req "client_id" "api-stag" CkHttpRequest_AddParam $req "refresh_token" [CkJsonObject_stringOf $jsonToken "refresh_token"] CkHttpRequest_AddParam $req "grant_type" "refresh_token" set resp [new_CkHttpResponse] set success [CkHttp_HttpReq $http "https://idp.comprobanteselectronicos.go.cr/auth/realms/rut-stag/protocol/openid-connect/token" $req $resp] if {$success == 0} then { puts [CkHttp_lastErrorText $http] delete_CkJsonObject $jsonToken delete_CkHttp $http delete_CkHttpRequest $req delete_CkHttpResponse $resp exit } set sbResponseBody [new_CkStringBuilder] CkHttpResponse_GetBodySb $resp $sbResponseBody set jResp [new_CkJsonObject] CkJsonObject_LoadSb $jResp $sbResponseBody CkJsonObject_put_EmitCompact $jResp 0 puts "Response Body:" puts [CkJsonObject_emit $jResp] set respStatusCode [CkHttpResponse_get_StatusCode $resp] puts "Response Status Code = $respStatusCode" if {$respStatusCode >= 400} then { puts "Response Header:" puts [CkHttpResponse_header $resp] puts "Failed." delete_CkJsonObject $jsonToken delete_CkHttp $http delete_CkHttpRequest $req delete_CkHttpResponse $resp delete_CkStringBuilder $sbResponseBody delete_CkJsonObject $jResp exit } # 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 set access_token [CkJsonObject_stringOf $jResp "access_token"] set expires_in [CkJsonObject_IntOf $jResp "expires_in"] set id_token [CkJsonObject_stringOf $jResp "id_token"] set not_before_policy [CkJsonObject_IntOf $jResp "not-before-policy"] set refresh_expires_in [CkJsonObject_IntOf $jResp "refresh_expires_in"] set refresh_token [CkJsonObject_stringOf $jResp "refresh_token"] set session_state [CkJsonObject_stringOf $jResp "session_state"] set token_type [CkJsonObject_stringOf $jResp "token_type"] # Save the new JSON access token response to a file. set success [CkJsonObject_WriteFile $jResp "qa_data/tokens/haciendda_cr.json"] delete_CkJsonObject $jsonToken delete_CkHttp $http delete_CkHttpRequest $req delete_CkHttpResponse $resp delete_CkStringBuilder $sbResponseBody delete_CkJsonObject $jResp |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.