Si he logrado conectarme sin problema con Postman.
Agrega este token y veras que te funciona.
eyJ0eXAiOiJKV1QiLCJhbGciOiJSUzI1NiJ9.eyJhdWQiOiIxIiwianRpIjoiMWNhNjE2OTZmNWYzNTU3YzQ0YmVlYzVjZGQ2ZDE zYTMxYmNiMDc0YzNhOWY4NmZlMjIyZjAwN2U3NmQyOTkyNTFjMTRmMGU2MmVmNWE0ZDgiLCJpYXQiOjE1ODk1OTY0OTcsIm5iZiI 6MTU4OTU5NjQ5NywiZXhwIjoxNjIxMTMyNDk3LCJzdWIiOiIxMTQiLCJzY29wZXMiOltdfQ.kYi4q8IjmtwXFhnvUCiniDgwP4ts 6VHphYHDHTEbAzD5vmYwZi9fF5o55lMLtPqUovoQKIDQHB3vT-tU4PpC_AJH2Ea65tKq4wgHVHWyXkCKuWST0-hC-anAOrMpTJsO45Pcuye5kLgHndZExVwe-XegrgsPEw2AYWNmMra7EagnMQfBwzXyE6EDk6Ql9gZPG07GtQp7FGEWWR04EScFbotuygT8eXgbfRDNwwpONQ0IjeBIhkfRPrMIh qmr3X1myosNzJ-WOiFTCTjSOrqNLW-MJ-riZDJcB93OGKI43KyvB4ng0_-4qz5PnJlf1snSbNUVlKqNeseWXQmCGPW1wSrDP_WKzSUmAHz_ySGJD7XFYX155VBRuy9JJW2CVsv4zGFUgwErsNiXzQSUGaghtsE qz9_AhxsKXOeyJgLPlcSPEO6oEGg73KGkcCEH1Kj9FI5r0jy1IzPW4nreBIoilMgGp4PvjzE_voekgd9xN-ypz3FSGmSdN073ceBpGze9-Hasj7gMsGxoqgaen5DkPCNLDX5xmTv7gSn2ViEV-lhs503PheQ_WmukugEqsikrlPah3tOmQqUnHlV2mFBvzzUolN055tJcSacXTjqsZKcTbFBzXcWLHSnCtF0wWx57Doyt_Tkk-JwQ2Atedy3m3_oI4zYFHhOxUJMLM7CmE7o
En el componente TOAuth2Authenticator, cambia la propiedad de TokenTypo por ttBEARER y podrás hacer consultas que no requieran nada en el cuerpo, por ejemplo:
GET
https://api.libredte.cl/api/v1/sii/i.../uf/anual/2020
El problema surge cuando necesito agregar en el cuerpo las credenciales del SII, aquí es cuando me arroja el error interno, por ejemplo:
POST
https://api.libredte.cl/api/v1/sii/r...ertificacion=0
Como agrego al cuerpo JSON requerido ??
Código PHP:
{
"auth": {
"pass": {
"rut": "12345678-0",
"clave": "12345678"
}
}
}
Este código no resulta
Código Delphi
[-]
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;
Ni tampoco este:
Código Delphi
[-]
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;
No estoy muy instruido en JSON, está bien generado con los códigos que escribo ??
Espero me puedan ayudar !!