Como hacer un envio de un xml utilizando el dll

[Carlos]

Empezado por TheRafa

Hola Buenos días...
Desde nuestra aplicativo, nos gustaría hacer el envío de un xml que ya hemos generado completamente utilizando el envío de VERIFACTU, aunque claro, la aplicación que ejecutáramos no tiene que ser visual, y que lo hiciéramos con un ShellExecute. Se ha generado o se puede generar algún ejecutable no visual que haga el envío?

Muchas gracias y un saludo.

Yo lo hago así (no es Delphi pero la idea se entiende):

Código Delphi [-]
ShellExecute( AMPAArra[1][1][2][1][1]:hWnd, Nil, C:\Desarrol\Treball\Utilitats\CURL\BIN\curl.exe, " -k --connect-timeout 60 -m 300 -s -S -L --header" +  "Content-Type: text/xml;charset=UTF-8" +
 " --cert C:\Particular\Ampa\Ampa32\firma_digital\79999999B_LUIS__R__B99999923_20241111.pem --key C:\Particular\Ampa\firma_digital\799999999B_LUIS__R__B99999923_20241111.pem 
--data @C:\DESARROL\TREBALL\BD\BL\VERIFACTU\2025\VER-20251025-190839-455.xml https://prewww1.aeat.es/wlpl/TIKE-CO.../VerifactuSOAP -v 
--output C:\DESARROL\TREBALL\BD\BL\VERIFACTU\2025\VER-20251025-190839-455.xml-Resposta_02.XML", Nil, If( lShowCMD, 1, 0 ) )

Es decir, con la instrucción ShellExecute() utilizo curl.exe para enviar en una sesión CMD, uno de los parámetros de ShellExecute() (el último en este caso), sirve para que se vea la ejecución de curl.exe o no.

Yo lo tengo en bucle con 'n' intentos, si la ejecucución falla, en la siguiente 'n' ejecución cambio el valor de lShowCMD y así veo por pantalla que está trabajando.

[TheRafa]

Si ejecuto este curl para enviar directamente el xml, todo el rato me da error 56. Alguien que pueda ayudarme?

curl.exe -k --tlsv1.2 --connect-timeout 60 -m 300 --data "@NFra_2517046.xml" --cert-type P12 --cert "CertDigital.p12" --pass "*****" --header 
"Content-Type: application/xml;charset=UTF-8" -X POST https://prewww1.aeat.es/wlpl/TIKE-CO.../VerifactuSOAP -o respuesta.XML

% Total % Received % Xferd Average Speed Time Time Time Current
Dload Upload Total Spent Left Speed
100 3793 0 0 100 3793 0 2710 0:00:01 0:00:01 --:--:-- 2713
curl: (56) Recv failure: Connection was reset


Gracias de antemano.

[ermendalenda]

Os rexomiendo bajar los tiemours a 60 max
Cuando tienen retardos de rspuestas podeis obtwner un aceptafo con errores, y mejor wnviarlo despues como incidencia
El -k lo estoy reevaluando, puede dar problemas en wl futuro

[ermendalenda]

Por otro lado, forzar tlsv1.2 no me parece acertado, dejad que curl negocie el tls correcto,, que lo hace muy bien, la Aeat está ya aceptando tlsv1.3, para probar errores y si añadis a la llamada un -trace "pathdestino.txt" (quitando lo de forzar tlsv1.2) también podeis ver la traza completa en el archivo de destino, donde se produce el error y qué protocolo es el que negocia curl, que posiblemente sea:
"== Info: TLSv1.3 (OUT), TLS handshake, Client hello (1):"
"== Info: TLSv1.3 (IN), TLS handshake, Server hello (2)"