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.
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