Error en los envíos que no puedo detectar

[[newtron]]

¿Qué versión de windows tiene? Porque como tenga una anterior a W10 no es compatible con tls 1.2

[espinete]

Voy a ver si lo averiguo, pero dudo que sea anterior a Windows 10.

Y en cualquier caso... si fuera eso, no hay forma de detectarlo o lanzar el error en pantalla o algo? Porque con el código anterior no me salta nada.

[Faneka]

Yo en los que hemos instalado hacia una prueba siempre del nif y si alguno era w7 me saltaba un error, en principio ha sido 1 u 2 creo, porque ya les comentamos que el equipo tenia que ser w10 o superior. Lo bueno de la prueba del nif es que si yo me despistaba y no miraba la versión del SO me cascaba antes de dejarselo puesto definitivamente.

[[newtron]]

Empezado por espinete

Voy a ver si lo averiguo, pero dudo que sea anterior a Windows 10.

Y en cualquier caso... si fuera eso, no hay forma de detectarlo o lanzar el error en pantalla o algo? Porque con el código anterior no me salta nada.

Lo mejor que se me ocurre es que en tu programa detectes qué versión de windows tiene y si es antigua que de un mensaje.

[espinete]

Tiene W11.

Me refería a detectar errores de certificado o de conexión, porque no sé si con el try...except que tengo es suficiente, aunque debería.

Si es que es eso lo que falla, porque sigo sin saber qué más puede ser. Mira que como sea un certificado no válido o algo así...

¿Sabe alguien cómo guardar el XML que se recibe en la respuesta de la AEAT en un archivo? Sé como guardar el que envío (la petición) en el HTTPRIOBeforeExecute, pero no la respuesta, por si eso me ayuda en algo.

[Faneka]

Yo puse una opción para que elimine los certificados caducados, porque tienen costumbre de añadir los nuevos pero no eliminan el caducado, esto da problemas y no envia nada, porque te toma el certificado caducado. En este caso creo que tambien te devuelve un mensaje. Lo raro que comentas que no les salte nada, ningún error, aviso, etc...

[seccion_31]

¿guardar el resultado?

evento: afterExecute

procedure TEventosHttpPrio.AfterExecute(const MethodName: string; SOAPResponse: TStream);
var
ss :TFileStream;
sTmp:TStringList;
CertStream: TMemoryStream;
sesion:integer;
begin
if fileNameAfter<>'' then
begin
sTmp := TStringList.Create;
sTMP.SaveToStream(SOAPResponse);
try
SOAPResponse.Position := 0;
sTmp.LoadFromStream(SOAPResponse);
sTmp.text:=FormatXMLData(sTMP.Text);
sTmp.SaveToFile(fileNameAfter);
finally
FreeAndNil(sTmp);
end;
end;
end;