THTTPRIO.HTTPWebNode.ClientCertificate

[_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.

[[duilioisola]]

Cargar los certificados desde un fichero no funciona en Delphi 11.
Si funciona en Delphi 12.3.

Hay diferencias en las librerías. En especial creo que es en System.Net.HttpClient.Win
En la versión 12 hay un método llamado TWinHttpLib.SetCertStore(AValue: HCERTSTORE) que guarda el dato en FStore si está vacío.
El método TWinHTTPRequest.SetWinCertificate también es muy distinto entre versiones.

[_Io]

Empezado por duilioisola

Cargar los certificados desde un fichero no funciona en Delphi 11.
Si funciona en Delphi 12.3.

Hay diferencias en las librerías. En especial creo que es en System.Net.HttpClient.Win
En la versión 12 hay un método llamado TWinHttpLib.SetCertStore(AValue: HCERTSTORE) que guarda el dato en FStore si está vacío.
El método TWinHTTPRequest.SetWinCertificate también es muy distinto entre versiones.

Buenos día.

Pues por ahí puede estar el asunto.

Yo tengo Delphi 12, mi año de mantenimiento no lo renové, en teoría ya no podría optar a Delphi 12.3, no?

Muchas Gracias.

[_Io]

Empezado por Garada

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

Buenos días.

Si, y nada.

Saludos.