Captura de EHTTPProtocolException

[jmbarrio]

Buenas tardes, al ejecutar el siguiente código me da un error en modo debugger HTTP/1.1 400 Bad Request, que no logro capturar en la excepción.
He desmarcado la propiedad RaiseExceptionOn500 dejándola a false, y tampoco la captura. ¿Qué puedo hacer para capturar la excepción?

Gracias, un saludo

Código Delphi [-]
try
   RestClient3.BaseURL := servidorWS + 'Facemi/Importar';
   RestRequest3.ClearBody;  //Si no se pone solo se puede ejecutar el post una sola vez
   RestRequest3.Body.Add(json,TRestContentType.ctAPPLICATION_JSON);
   RestRequest3.Execute;
   showmessage('Json de Facturas envíado corréctamente a la nube.');
except
  on E: EHTTPProtocolException do
      showmessage(e.message);
end;

[jmbarrio]

Buenos días, es mi primera aplicación con webservice y como podéis comprobar ando muy , pero que muy perdido.

Lo que necesito es capturar el status y el body response que me envía la webservice cuando yo le mando el POST.

Me obceque pensando que el mensaje del status era un error.

¿Cómo puedo capturar el status y la respuesta de la webservice?

Perdón por las molestias y muchas gracias por vuestra ayuda.

[jmbarrio]

YA esta todo OK, ya lo he encontrado.

Gracias, un saludo

[Casimiro Notevi]

Empezado por jmbarrio

YA esta todo OK, ya lo he encontrado.
Gracias, un saludo

Es buena costumbre explicar cómo se ha solucionado para que otros posibles usuarios con la misma duda puedan saberlo.

[jmbarrio]

Buenas tardes, perdona que no lo haya escrito, pero como la solución no se correspondía con el título del hilo pensé que no era necesario. Mil disculpas.

La solución que he encontrado para lo que realmente necesitaba ha sido está, con las propiedades StatusCode y Content del componente RestResponse

Código Delphi [-]
if RestResponse3.StatusCode = 200 then  //Si la WS responde que todo OK
            begin
              sqlstr := 'update caalcl set cal_entregado = ' + '''' + 'T' + '''' + ' where cal_entregado = ' + '''' + 'S' + '''';
              with F_Data.FDQry do
                begin
                  Sql.Clear;
                  Active := False;
                  Sql.Add(sqlstr);
                  ExecSQL;
                end;
              showmessage('Json de Albaranes envíado corréctamente a la nube.')
            end
          else
            showmessage('Status Code: ' + RestResponse3.StatusCode.ToString + ' ' + RestResponse3.Content);

Un saludo.

[Casimiro Notevi]

Empezado por jmbarrio

La solución que he encontrado para lo que realmente necesitaba ha sido está, con las propiedades StatusCode y Content del componente RestResponse Un saludo.

Gracias por compartirlo