Error de Authorization http REST

[pgranados]

Buen día compañeros, estoy realizando una petición REST pero al obtener el Response tengo errores de autorización, la documentación del webservice donde me tengo que conectar menciona que tengo que agregar Authorization Type Basic Auth con el username y password en el formato USER:PASSWORD codificado en Base64

Pero no consigo que se logre la conexión, mi código es:

Código Delphi [-]

HTTP := TIdHTTP.Create(nil);
encoder: TBase64Encoding;

        encoder:=TBase64Encoding.Create();
        RequestBodyjson.SaveToFile(ExtractFileDir(ParamStr(0))+'\RequestCancelacion.txt');
        HTTP.ProxyParams.BasicAuthentication:= true;
        HTTP.Request.BasicAuthentication:= true;
        HTTP.Request.CustomHeaders.FoldLines := False;
        HTTP.Request.BasicAuthentication:=true;
        HTTP.Request.CustomHeaders.Values['Authorization']:= 'Basic '+encoder.Encode('USUARIO:CONTRASENA');

¿Alguna solución? Saludos

[chenech]

Hola pgranados, es para el nuevo servicio de hospedajes? Lo digo por el formato que pones de autorization y el susuario:contraseña.
Si es así, a mi me da el mismo error, me han dados un usuario y contraseña para hacer pruebas y número de establecimiento, pero no paso de ahí, estoy haciendo las pruebas con PostMan y no hay manera.
Has conseguido conectarte?
Un saludo.

[pgranados]

Hola, no, no es de Hospedajes

Pero desde Postman no tengo ningún problema, si obtengo respuesta del webservice

Saludos

Pero desde Delphi no lo he podido echar a andar.

[Neftali [Germán.Estévez]]

Probad con el REST Debugger que viene con Delphi.
Se puede lanzar desde el IDE directamente.



Si no lo habéis usado, es una "especie de" postan, pero más sencillo.
La ventaja, es que una vez conectado desde RESTDebugger, te permite generar los componentes para "pegarlos" en un proyecto con todas las configuraciones correctas.

[Casimiro Notevi]

Empezado por 'Neftali [Germán.Estévez

La ventaja, es que una vez conectado desde RESTDebugger, te permite generar los componentes para "pegarlos" en un proyecto con todas las configuraciones correctas.

¿Tienes algún ejemplo en tu blog o algún enlace que lo explique?

[Neftali [Germán.Estévez]]

Empezado por Casimiro Notevi

¿Tienes algún ejemplo en tu blog o algún enlace que lo explique?

En este artículo, se puede ver cómo se usa el RESTDebugger a partir del minuto 8:12, tal y como he comentado.
https://neftali.clubdelphi.com/delph...-put-y-delete/

Y es posible que haya alguno más donde haya hecho referencia "de pasada.....".

En el canal de Ermbarcadero también se puede encontrar algún video donde se usa.

[chenech]

Lo he intentado con RestDebuger, pero no me permite adjuntar un archivo XML ya que me da una excepción, solo JSON.
Funciona también con XML o estoy haciendo algo mal?
Y otra cosa es que exige usar un certificado, los permite el RestDebuger?
Gracias.

[pgranados]

Empezado por Neftali [Germán.Estévez]

En este artículo, se puede ver cómo se usa el RESTDebugger a partir del minuto 8:12, tal y como he comentado.
https://neftali.clubdelphi.com/delph...-put-y-delete/

Y es posible que haya alguno más donde haya hecho referencia "de pasada.....".

En el canal de Ermbarcadero también se puede encontrar algún video donde se usa.

Hola Neftali , como siempre un master jeje, ya puse conectarme al webservice y autenticarme, pero ahora quiero exportar el Response obtenido tengo errores, te comparto como tengo el codigo

Código Delphi [-]
var ResponseBody:TStringList;
begin
 RESTRequest1.Params.Clear;
 // Despues agrego los parametros, son muchos jeje.
 RESTRequest1.Execute; // Todo bien hasta aqui
 ResponseBody.Add(RESTResponse1.Content);
 ResponseBody.SaveToFile(ExtractFileDir(ParamStr(0))+'\Response.txt');

¿La forma en la que extraigo el Response es correcta? en caso de que no, ¿cúal es la forma correcta? Saludos.

[pgranados]

Empezado por pgranados

Hola Neftali , como siempre un master jeje, ya puse conectarme al webservice y autenticarme, pero ahora quiero exportar el Response obtenido tengo errores, te comparto como tengo el codigo

Código Delphi [-]
var ResponseBody:TStringList;
begin
 RESTRequest1.Params.Clear;
 // Despues agrego los parametros, son muchos jeje.
 RESTRequest1.Execute; // Todo bien hasta aqui
 ResponseBody.Add(RESTResponse1.Content);
 ResponseBody.SaveToFile(ExtractFileDir(ParamStr(0))+'\Response.txt');

¿La forma en la que extraigo el Response es correcta? en caso de que no, ¿cúal es la forma correcta? Saludos.

Por si a alguien le sirve:

Código Delphi [-]
var
StreamResponse:TStringStream;
begin
StreamResponse:= TStringStream.Create(RestResponse1.Content, TEncoding.UTF8);
StreamResponse.SaveToFile(ExtractFileDir(ParamStr(0))+'\ResponseCancelacion.txt');
end;

[[newtron]]

Empezado por Neftali [Germán.Estévez]

En este artículo, se puede ver cómo se usa el RESTDebugger a partir del minuto 8:12, tal y como he comentado.
https://neftali.clubdelphi.com/delph...-put-y-delete/

Y es posible que haya alguno más donde haya hecho referencia "de pasada.....".

En el canal de Ermbarcadero también se puede encontrar algún video donde se usa.

Yo creo que a este tío habría que ponerle un piso o algo.

Gracias Germán, estas indicaciones tuyas me han sido de muuuuuucha utilidad.

Saludos.

[Neftali [Germán.Estévez]]

Empezado por newtron

Yo creo que a este tío habría que ponerle un piso o algo.

Yo creo que un "pisito" hoy como están las codsas, casi mejor que si te tocara la lotería...