Sigo intentado conectarme, pero no he podido.
He intentado conectarme con REST Debugger, pero no he podido ya que me arroja el error 401, pero si lo hago desde el mismo Delphi si puedo ya que aquí existe la característica "TokenType" del TOAuth2Authenticator, si se cambia 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.
Código 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).
Código 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 ??
Favor su ayuda, llevo muchas horas sin lograr nada.
Les dejo la URL de la API LibreDTE.
https://documenter.getpostman.com/vi...version=latest