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

[elguille]

Hola, muchas gracias por iluminar el camino. Tengo un problema al cargar directamente un certificado PFX, no me funciona el procedimiento

Código Delphi [-]
cargaCertificado(Data: Pointer; cert, pass: string)

que está en uverifactufuncs.pas, la siguiente linea no carga el certificado correctamente

Código Delphi [-]
InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, pCert, SizeOf(CERT_CONTEXT))

lo he modificado para saber cual es el error

Código Delphi [-]
   if not InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, pCert, SizeOf(CERT_CONTEXT)) then
   BEGIN
      LastError := GetLastError();
      raise Exception.CreateFmt('Error en InternetSetOption. Código: %d', [LastError]);
   END;

recibo el código de error 6 . He importado el certificado al almacen de windows y desde ahi funciona perfectamente ¿alguien ha probado de cargar un certificado desde el fichero PFX directamente?
Gracias anticipadas.