8 respuestas en este tema

[mjjjj]

Estimados, espero me puedan ayudar.
Estoy utilizando Delphi XE5 para realizar consultas a una API REST de LibreDTE, con los componentes RESTRequest, RESTClient, RESTResponse, RESTResponseDAtaSetAdapter y OAuth2Authenticator y todo va bien hasta que tengo que pasarle un texto en Body raw como JSON.

 

He probado con esto, pero no resulta, el servidor sigue enviando mensaje de error interno.

php

var
  vJSON : TJSONObject;
  vTxt : string;
begin
 
  vTxt :='{"auth": {"pass": {"rut": "12345678-0","clave": "prueba"}}}';
  vJSON := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(vTxt), 0) as TJSONObject;
 
  RESTrequest1.ClearBody;
  RESTrequest1.AddBody(vJSON);
  RESTrequest1.Execute;
 
end;

Si consumo otros servicios publicados en la misma API, pero que no necesite el Body funciona de maravilla.
Tengo la certeza que la API funciona bien, porque la he probado con la herramienta Postman.

Alguien me puede ayudar con esto ??

 

Adjunto archivo con información adicional y pantallazos que pueden ser útiles para entender de mejor forma el problema.

Link de la documentación de la API:

https://documenter.g...?version=latest

[mjjjj]

Agrego mayor información entregada por documentos de la API.

 

Variable en el cuerpo de la solicitud POST agregada como un diccionario de datos en JSON. Este tipo de variables se usará principalmente para:

• Autenticación en SII.

 

La ruta base de todos estos servicios es:

https://api.libredte.cl/api/v1/sii

Autenticación mediante RUT y Clave del SII

Se debe enviar mediante POST un JSON con el objeto auth.pass que contendrá las credenciales:

php

{
	"auth": {
		"pass": {
        	"rut": "",
        	"clave": ""
		}
    }
}

Adjunto un ejemplo para el listado de boletas de honorarios recibidas:

 

php

curl --location --request POST 'https://api.libredte.cl/api/v1/sii/bhe/recibidas/documentos/76192083-9/202001?formato=json' \
--header 'Accept: application/json' \
--header 'Content-Type: application/json' \
--data-raw '{
	"auth": {
		"pass": {
        	"rut": "76192083-9",
        	"clave": ""
		}
    }
}
'

[egostar]

Intenté hacerlo con REST Debugger pero tampoco se pudo, hay algo que falta en lo que se envía.

 

Tu puedes hacer la prueba con REST Debugger el cual se localiza en el directorio BIN de tu Delphi, una vez que lo tengas funcionando ya podemos solucionar el problema fácilmente copiando los objetos desde REST-Debugger a Delphi.

 

Saludos

 

Archivos adjuntos

•  RestDebugger.png   180,27KB   5 descargas

[mjjjj]

Hola Egostar, muchas gracias por tu tiempo e intentar ayudarme.

Te cuento que yo tampoco he podido conectarme con REST Debugger (me arroja el mismo error 401), pero si lo hago desde el mismo Delphi si puedo ya que aquí existe la característica "TokenType" del TOAuth2Authenticator, si cambias esa característica al valor "ttBEARER" logras conectarte sin problema en aquellas consultas que no necesita Body Custom.

 

He generado el JSON con el siguiente código y lo he agregado al request, pero sigue sin funcionar.

php

var
  Obj, ObjCons, ObjIpp: TJSONObject;
 
begin
 
    ObjCons := TJSONObject.Create;
    ObjCons.AddPair('rut', TJsonString.Create('12345678-0'));
    ObjCons.AddPair('clave', TJsonString.Create('prueba'));
 
    ObjIpp := TJSONObject.Create;
    ObjIpp.AddPair('pass',ObjCons);
 
    Obj := TJSONObject.Create;
    Obj.AddPair('auth',ObjIpp);
 
  RESTrequest1.ClearBody;
  RESTrequest1.AddBody(Obj);
  RESTrequest1.Execute;
 
end;

Que estaré haciendo mal ??

Será que esta característica (custom body) se agrega en otra parte ??

 

También he intentado esto, pero sigo con el mismo error 500 (Internal Server Error).

php

var
  Obj, ObjCons, ObjIpp: TJSONObject;
 
begin
 
    ObjCons := TJSONObject.Create;
    ObjCons.AddPair('rut', TJsonString.Create('12345678-0'));
    ObjCons.AddPair('clave', TJsonString.Create('prueba'));
 
    ObjIpp := TJSONObject.Create;
    ObjIpp.AddPair('pass',ObjCons);
 
    Obj := TJSONObject.Create;
    Obj.AddPair('auth',ObjIpp);
 
 
   RESTrequest1.Params.Clear;
   RESTrequest1.Params.Add;
   RESTrequest1.Params[0].ContentType := ctAPPLICATION_JSON;
   RESTrequest1.Params[0].Kind := pkREQUESTBODY;
   RESTrequest1.Params[0].Value := obj.ToString;
 
 
  RESTrequest1.Execute;
 
end;

Esta correcto la forma de armar el JSON ??

[egostar]

Hola Egostar, muchas gracias por tu tiempo e intentar ayudarme.

Te cuento que yo tampoco he podido conectarme con REST Debugger (me arroja el mismo error 401), pero si lo hago desde el mismo Delphi si puedo ya que aquí existe la característica "TokenType" del TOAuth2Authenticator, si cambias esa característica al valor "ttBEARER" logras conectarte sin problema en aquellas consultas que no necesita Body Custom.

 

He generado el JSON con el siguiente código y lo he agregado al request, pero sigue sin funcionar.

 

Hola mjjjj voy a leer la documentación para poder ayudarte mejor.

 

Saludos

[mjjjj]

Gracias egostar, puedes utilizar este token para probar la conección.

 

eyJ0eXAiOiJKV1QiLCJhbGciOiJSUzI1NiJ9.eyJhdWQiOiIxIiwianRpIjoiMWNhNjE2OTZmNWYzNTU3YzQ0YmVlYzVjZGQ2ZDEzYTMxYmNiMDc0YzNhOWY4NmZlMjIyZjAwN2U3NmQyOTkyNTFjMTRmMGU2MmVmNWE0ZDgiLCJpYXQiOjE1ODk1OTY0OTcsIm5iZiI6MTU4OTU5NjQ5NywiZXhwIjoxNjIxMTMyNDk3LCJzdWIiOiIxMTQiLCJzY29wZXMiOltdfQ.kYi4q8IjmtwXFhnvUCiniDgwP4ts6VHphYHDHTEbAzD5vmYwZi9fF5o55lMLtPqUovoQKIDQHB3vT-tU4PpC_AJH2Ea65tKq4wgHVHWyXkCKuWST0-hC-anAOrMpTJsO45Pcuye5kLgHndZExVwe-XegrgsPEw2AYWNmMra7EagnMQfBwzXyE6EDk6Ql9gZPG07GtQp7FGEWWR04EScFbotuygT8eXgbfRDNwwpONQ0IjeBIhkfRPrMIhqmr3X1myosNzJ-WOiFTCTjSOrqNLW-MJ-riZDJcB93OGKI43KyvB4ng0_-4qz5PnJlf1snSbNUVlKqNeseWXQmCGPW1wSrDP_WKzSUmAHz_ySGJD7XFYX155VBRuy9JJW2CVsv4zGFUgwErsNiXzQSUGaghtsEqz9_AhxsKXOeyJgLPlcSPEO6oEGg73KGkcCEH1Kj9FI5r0jy1IzPW4nreBIoilMgGp4PvjzE_voekgd9xN-ypz3FSGmSdN073ceBpGze9-Hasj7gMsGxoqgaen5DkPCNLDX5xmTv7gSn2ViEV-lhs503PheQ_WmukugEqsikrlPah3tOmQqUnHlV2mFBvzzUolN055tJcSacXTjqsZKcTbFBzXcWLHSnCtF0wWx57Doyt_Tkk-JwQ2Atedy3m3_oI4zYFHhOxUJMLM7CmE7o

 

Verás que una consulta sin cuerpo funciona perfecto, por ejemplo

 

GET https://api.libredte..../uf/anual/2020

[egostar]

Necesito configurar el acceso vía OAUTH2 pero cual es el usuario para el token que mencionas .

 

Además de saber cual es el token de acceso y el token de request.

 

Saludos

[mjjjj]

No necesitas usuario, solo completar el Access Token y TokenType" cambiarlo a "ttBEARER"

Prueba este token con la consulta GET https://api.libredte..../uf/anual/2020

 

eyJ0eXAiOiJKV1QiLCJhbGciOiJSUzI1NiJ9.eyJhdWQiOiIxIiwianRpIjoiMWNhNjE2OTZmNWYzNTU3YzQ0YmVlYzVjZGQ2ZDEzYTMxYmNiMDc0YzNhOWY4NmZlMjIyZjAwN2U3NmQyOTkyNTFjMTRmMGU2MmVmNWE0ZDgiLCJpYXQiOjE1ODk1OTY0OTcsIm5iZiI6MTU4OTU5NjQ5NywiZXhwIjoxNjIxMTMyNDk3LCJzdWIiOiIxMTQiLCJzY29wZXMiOltdfQ.kYi4q8IjmtwXFhnvUCiniDgwP4ts6VHphYHDHTEbAzD5vmYwZi9fF5o55lMLtPqUovoQKIDQHB3vT-tU4PpC_AJH2Ea65tKq4wgHVHWyXkCKuWST0-hC-anAOrMpTJsO45Pcuye5kLgHndZExVwe-XegrgsPEw2AYWNmMra7EagnMQfBwzXyE6EDk6Ql9gZPG07GtQp7FGEWWR04EScFbotuygT8eXgbfRDNwwpONQ0IjeBIhkfRPrMIhqmr3X1myosNzJ-WOiFTCTjSOrqNLW-MJ-riZDJcB93OGKI43KyvB4ng0_-4qz5PnJlf1snSbNUVlKqNeseWXQmCGPW1wSrDP_WKzSUmAHz_ySGJD7XFYX155VBRuy9JJW2CVsv4zGFUgwErsNiXzQSUGaghtsEqz9_AhxsKXOeyJgLPlcSPEO6oEGg73KGkcCEH1Kj9FI5r0jy1IzPW4nreBIoilMgGp4PvjzE_voekgd9xN-ypz3FSGmSdN073ceBpGze9-Hasj7gMsGxoqgaen5DkPCNLDX5xmTv7gSn2ViEV-lhs503PheQ_WmukugEqsikrlPah3tOmQqUnHlV2mFBvzzUolN055tJcSacXTjqsZKcTbFBzXcWLHSnCtF0wWx57Doyt_Tkk-JwQ2Atedy3m3_oI4zYFHhOxUJMLM7CmE7o

 

Esto funciona en Postman y Delphi XE5, el problema es cuando necesito agregar un cuerpo al request.

[tiquinho]

Hola, pudiste resolver el problema? ...

 

http://delphiaccess....ir-un-servicio/