![]() |
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 Obtener TokenGets an access token using the Resource Owner Password Credential Grant 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_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 oleobject loo_Fac li_Success = 0 // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. loo_Http = create oleobject li_rc = loo_Http.ConnectToNewObject("Chilkat.Http") if li_rc < 0 then destroy loo_Http MessageBox("Error","Connecting to COM object failed") return end if // 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 "username=cpj-3-101-261506@stag.comprobanteselectronicos.go.cr" \ // --data-urlencode "password=my_password" \ // --data-urlencode "grant_type=password" // 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("username","cpj-3-101-261506@stag.comprobanteselectronicos.go.cr") loo_Req.AddParam("password","my_password") loo_Req.AddParam("grant_type","password") 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_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_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 JSON to a file for future requests. loo_Fac = create oleobject li_rc = loo_Fac.ConnectToNewObject("Chilkat.FileAccess") loo_Fac.WriteEntireTextFile("qa_data/tokens/hacienda_cr.json",loo_JResp.Emit(),"utf-8",0) destroy loo_Http destroy loo_Req destroy loo_Resp destroy loo_SbResponseBody destroy loo_JResp destroy loo_Fac |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.