Demo con código Verifactu.dll para (delphi 7)

[Carlos]

Empezado por seccion_31

es un componente de delphi webservices, creo que ahi esta el asunto.

Slds !

Una prueba a realizar sería generar el XML en fichero e intentar enviarlo con esta sentencia:

C:\Desarrol\Treball\AMPA2506\Exe\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\MiCertificadodogital.pem --key C:\Particular\Ampa\Ampa32\firma_digital\MiCertificadodogital.pem --data @C:\DESARROL\TREBALL\AMPA2506\EXE\BD\BL\VERIFACTU\2025\MiFicheroXML.xml https://prewww1.aeat.es/wlpl/TIKE-CO.../VerifactuSOAP -v --output C:\DESARROL\TREBALL\AMPA2506\EXE\BD\BL\VERIFACTU\2025\MiFicheroXML.xml-Resposta_01.XML

Así se sabría si es cosa del XML o del componente de delphi webservices httprio; obteniendo un fichero XML de respuesta de Veri*factu.

Notas:

-El CURL.EXE de Windows (tengo W10) no me funcionaba, bajé otro de www.

-El Certificado Digital era originalmente .p12 , lo convertí a .pem con:

"C:\Program Files\OpenSSL-Win64\bin\openssl" pkcs12 -in MiCertificadoDigital.pfx -out MiCertificadoDigital.pem -nodes

-No se dejen la '@' precediendo el nombre del XML

[seccion_31]

Empezado por Carlos

Una prueba a realizar sería generar el XML en fichero e intentar enviarlo con esta sentencia:

C:\Desarrol\Treball\AMPA2506\Exe\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\MiCertificadodogital.pem --key C:\Particular\Ampa\Ampa32\firma_digital\MiCertificadodogital.pem --data @C:\DESARROL\TREBALL\AMPA2506\EXE\BD\BL\VERIFACTU\2025\MiFicheroXML.xml https://prewww1.aeat.es/wlpl/TIKE-CO.../VerifactuSOAP -v --output C:\DESARROL\TREBALL\AMPA2506\EXE\BD\BL\VERIFACTU\2025\MiFicheroXML.xml-Resposta_01.XML

Así se sabría si es cosa del XML o del componente de delphi webservices httprio; obteniendo un fichero XML de respuesta de Veri*factu.

Notas:

-El CURL.EXE de Windows (tengo W10) no me funcionaba, bajé otro de www.

-El Certificado Digital era originalmente .p12 , lo convertí a .pem con:

"C:\Program Files\OpenSSL-Win64\bin\openssl" pkcs12 -in MiCertificadoDigital.pfx -out MiCertificadoDigital.pem -nodes

-No se dejen la '@' precediendo el nombre del XML

gracias, el XML lo envia bien atraves de los endpoint de la AEAT, el XML no es el problema, seguro que con CURL.exe lo enviara bien.

El problema creo que viene por el keep-alive del httprio para mantener el certificado activo en el envio. Estoy buscando x ahi.

[bmfranky]

Empezado por seccion_31

gracias, el XML lo envia bien atraves de los endpoint de la AEAT, el XML no es el problema, seguro que con CURL.exe lo enviara bien.

El problema creo que viene por el keep-alive del httprio para mantener el certificado activo en el envio. Estoy buscando x ahi.

Hola, una cosa, el httprio tiene limite de bytes enviados?

[seccion_31]

Empezado por bmfranky

Hola, una cosa, el httprio tiene limite de bytes enviados?

Httprio no tiene límite
Pero el conector http que lleva en delphi 10 no tiene la función keepalive y por eso se pierde el certificado al cabo de unos segundos.

Si se cambia por el de indy o versión de delphi puede solucionarse

Ahí estoy

Me gustaría tener más opiniones y ver si a alguien más le pasa fuera del componente

Slds

Esa es mi teoría.

[seccion_31]

buenas noticias,

parece que ya esta solucionado (httprio) gracias a matorral, en cuanto quede confirmado subimos la version 5, que sera en unos dias.

Aparentemente se han enviado cerca de 400 facturas en una sola conexion.

Lo cual es doble buena noticia, porque tambien se han comprobado los limites del propio componente, con un envio grande.

Slds !

[DarkDudae]

Genial! Tengo ganas de probarla, a ver si por casualidad eso también soluciona el problema que tengo con VeriFactu y mi certificado de pruebas. Ya que cuando hago envío al SII con el mismo sí que se lo traga pero misteriosamente con el componente de Verifactu dejó de funcionar misteriosamente (aunque con el personal funciona sin problemas).

[Isaac_uni]

Buenas tardes.
Estoy intentando usar la dll en un proyecto de delphi con unigui, pero siempre me devuelve el error en la imagen.
Salta en esta funcion

Código Delphi [-]
function TVerifactu.addRegistroInicial(numserieFactura, fechaFactura, huella:string):boolean;
var
  registroInicial:TRegistroInicial;
  infoSesion:TInfoSesion;
begin
      result:=false;
      if (sesion<0) then exit;

      registroInicial.numSerieFactura:=numSerieFactura;
      registroInicial.huella:=huella;
      registroInicial.fecha:=fechaFactura;

      result:=anadeRegistroInicial(sesion,registroInicial, infoSesion); //da el error aqui.
      if result then
      begin
            fPrimero:=infoSesion.primerRegistro;
      end;
end;

La prueba la hago directamente con el propìo excel que esta en la carpeta excel demo "HOJA_EJEMPLO_ALTA.xlsx"
No se si alguien podría ayudarme
Gracias

[Carlos]

Empezado por Carlos

Una prueba a realizar sería generar el XML en fichero e intentar enviarlo con esta sentencia:

C:\Desarrol\Treball\AMPA2506\Exe\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\MiCertificadodogital.pem --key C:\Particular\Ampa\Ampa32\firma_digital\MiCertificadodogital.pem --data @C:\DESARROL\TREBALL\AMPA2506\EXE\BD\BL\VERIFACTU\2025\MiFicheroXML.xml https://prewww1.aeat.es/wlpl/TIKE-CO.../VerifactuSOAP -v --output C:\DESARROL\TREBALL\AMPA2506\EXE\BD\BL\VERIFACTU\2025\MiFicheroXML.xml-Resposta_01.XML

Así se sabría si es cosa del XML o del componente de delphi webservices httprio; obteniendo un fichero XML de respuesta de Veri*factu.

Notas:

-El CURL.EXE de Windows (tengo W10) no me funcionaba, bajé otro de www.

-El Certificado Digital era originalmente .p12 , lo convertí a .pem con:

"C:\Program Files\OpenSSL-Win64\bin\openssl" pkcs12 -in MiCertificadoDigital.pfx -out MiCertificadoDigital.pem -nodes

-No se dejen la '@' precediendo el nombre del XML

OpenSSL lo bajo de:
https://slproweb.com/products/Win32OpenSSL.html

Versión 64b reducida:
https://slproweb.com/download/Win64O...ight-3_4_1.msi
https://slproweb.com/download/Win64O...ight-3_4_0.msi

Versión 64b completa:
https://slproweb.com/download/Win64OpenSSL-3_5_0.msi
https://slproweb.com/download/Win64OpenSSL-3_4_1.msi