THTTPRIO.HTTPWebNode.ClientCertificate

[Garada]

Acabo de hacer una prueba y funciona sin problemas.

He usado D12CE, el servicio de la AEAT para consultar los NIF, un archivo PFX generado por Windows y un TFileStream

El problema debe estar en otro lado.

Si responde "No había credenciales disponibles en el certificado de cliente" el PFX está mal montado y no tiene clave privada.
De hecho, he forzado errores como una contraseña errónea o un fichero que no es un PFX y los errores que devuelve explica claramente el fallo (contraseña errónea o formato incorrecto).

Si no das con el problema pon algo de código que a veces es un punto y coma mal puesto. 😉

[_Io]

Empezado por Garada

Acabo de hacer una prueba y funciona sin problemas.

He usado D12CE, el servicio de la AEAT para consultar los NIF, un archivo PFX generado por Windows y un TFileStream

El problema debe estar en otro lado.

Si responde "No había credenciales disponibles en el certificado de cliente" el PFX está mal montado y no tiene clave privada.
De hecho, he forzado errores como una contraseña errónea o un fichero que no es un PFX y los errores que devuelve explica claramente el fallo (contraseña errónea o formato incorrecto).

Si no das con el problema pon algo de código que a veces es un punto y coma mal puesto. 😉

Juerrr, que bien.

Ahora estoy liado pero en cuanto pueda por supuesto que lo pongo.

Muchas Gracias !!!!!

[_Io]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
const
  CERTIFICATE ='D:\PROYECTOS\D12\04 VERI-FACTU\04 DOCUMENTOS\Cerificados\Pruebas AEAT\Certificado_RPJ_A39200019_CERTIFICADO_ENTIDAD_PRUEBAS_4_Pre.p12';
  PASSWORD = '1234';

var
  Nif :VNifV2;
  NifEnt :VNifV2Ent;
  NifSal :VNifV2Sal;
  PrioInt :THTTPRIO;
  Cert :TFileStream;
  j:integer;
begin

  // Cargamos Certificado
  Cert:=TFileStream.Create(CERTIFICATE,fmOpenRead);
  try

    // Configuramos comunicación con la AEAT
    PrioInt:=THTTPRIO.Create(nil);
    PrioInt.URL:='https://www1.agenciatributaria.gob.es/wlpl/BURT-JDIT/ws/VNifV2SOAP';
    PrioInt.HTTPWebNode.ClientCertificate.Stream:=Cert;
    PrioInt.HTTPWebNode.ClientCertificate.Password:=PASSWORD;
    Nif:=(PrioInt as VNifV2);

    // Preparamos consulta
    setlength(NifEnt,1);
    NifEnt[0]:=Contribuyente.Create;
    NifEnt[0].Nif:='**7242***';
    NifEnt[0].Nombre:='*O*E *AR**A G*L*C*A';

    // Lanzamos consulta
    NifSal:=Nif.VNifV2((NifEnt));

  // Cargamos respuesta
    for j:=0 to length(NifSal) -1 do
    begin

      if assigned(NifSal[j]) then
      begin

        memo2.Lines.Add(NifSal[j].Nif);
        memo2.Lines.Add(NifSal[j].Nombre);
        memo2.Lines.Add(NifSal[j].Resultado);

      end;

    end;

  finally

    Cert.Free;

  end;

end;

Buenos días.

El Certificado es uno de pruebas de la AEAT, lo utilizo en FACe y funciona bien.
Este código da el error Error sending data: (12185) No había credenciales disponibles en el certificado de cliente

Ya me dices si ves algo raro.

Muchas Gracias.

[_Io]

Empezado por _Io

[delphi]
El Certificado es uno de pruebas de la AEAT, lo utilizo en FACe y funciona bien.
Este código da el error Error sending data: (12185) No había credenciales disponibles en el certificado de cliente

He utilizado otro certificado y me da el mismo error.
También he probado en poner una contraseña errónea y me da el error: Error opening certificate file: (86) La contraseña de red especificada no es válida

Saludos.

[Garada]

El código es casi idéntico al mío.

Incluso acabo de probar con otro certificado y sin problemas.

Las pruebas las he hecho con certificados reales, uno de empresa (representante) y otro personal. Ambos de la FNMT.

Si estás usando certificados de pruebas de la AEAT, igual no van con ese servicio que no es de pruebas.

Por mirar, esos certificados... han caducado?

Esos certificados de pruebas, se pueden descargar de algún sitio?

[_Io]

Empezado por Garada

El código es casi idéntico al mío.

Incluso acabo de probar con otro certificado y sin problemas.

Las pruebas las he hecho con certificados reales, uno de empresa (representante) y otro personal. Ambos de la FNMT.

Si estás usando certificados de pruebas de la AEAT, igual no van con ese servicio que no es de pruebas.

Por mirar, esos certificados... han caducado?

Esos certificados de pruebas, se pueden descargar de algún sitio?

Hola Buenos días.

Los certificados funcionan correctamente con FACe.
Los conseguí mandando un correo a verifactu, estoy empezando a pensar que tenga un problema con la instalación de delphi 12.
¿Sabes si hay alguna forma de saber esto último, o solucionarlo?
Muhas Gracias.

[Garada]

¿Has probado certificados reales?
https://www.clubdelphi.com/foros/sho...041#post560270

Empezado por _Io

Hola Buenos días.

Los certificados funcionan correctamente con FACe.
Los conseguí mandando un correo a verifactu, estoy empezando a pensar que tenga un problema con la instalación de delphi 12.
¿Sabes si hay alguna forma de saber esto último, o solucionarlo?
Muhas Gracias.