Factura Electronica México

[edgaronfo]

Morris, Excelente! algo así había encontrado.

Oye, pero continuando con las molestias, lo estoy implementando y veo que el tipo TX509Certificate está en OpenSSLUtils.pas, verdad? yo bajé la unidad de la http://www.disi.unige.it/person/Ferr...delphiopenssl/, es la versión 0.5, 2010-10-23. Y de entrada le tuve que cambiar en la declaración de la clase el fCertificate: pX509; lo tuve de des-privatizar, jejeje, pero luego me empezó a dar problemas otra vez con los tipos creo yo en la función TX509Certificate.getTime(asn1_time: pASN1_TIME): TDateTime;

A tí también te dió todos estos problemas el delphi 2010? o tienes otra versión?

Gracias

[edgaronfo]

Hola Morris, oye, ando modificando OpenSSLUtils.pas y como te comentaba, al principio me marcaba el error en TX509Certificate.getTime(asn1_time: pASN1_TIME): TDateTime; así que me puse a cambiar los tipos Char a AnsiChar

Pero ahora me está marcando el error en el procedure donde lo llamo (que es el procedure que posteaste) en la asignación del certificado:

Código Delphi [-]
function GetCertInfio(const AFileName:String):TCertInfo;
var
  bp:   pBIO;
  fn:   PAnsiChar;
  x:    pX509;
  x509: pX509;
  Cert:TX509Certificate;
begin
  InitOpenSSL;
  Cert:=TX509Certificate.Create;
  try
   fn := PAnsiChar(ansistring(AFileName));
   bp := BIO_new(BIO_s_file());
   BIO_read_filename(bp, Pchar(fn));
   x    := X509_new;
   x509 := PEM_read_bio_X509(bp, x, nil, nil);
   Cert.fCertificate:=x; <-----------------AQUÍ EL ERROR
   Result.NotBefore:=Cert.NotBefore;
   Result.Issuer:=Cert.Issuer;
   Result.Subject:=Cert.Subject;
   Result.NotBefore:=Cert.NotBefore;
   Result.NotAfter:=Cert.NotAfter;
   Result.ISExpired:=Cert.IsExpired;
   Result.IsTrusted:=Cert.IsExpired;
   X509_free(x509);
  finally
   Cert.Free;  
   EVP_cleanup;
  end;
end;

Habré echado todo a perder?...

Saludos.

[edgaronfo]

ok, después de mover varias cosas en OpenSSLUtils.pas, la clase TX509Certificate me quedó así, primero re-privatizé fCertificate, osea, la dejé como estaba :

Código Delphi [-]
TX509Certificate = class
  private
    fCertificate: pX509;
    function getDN(pDn: pX509_NAME): String;
    function getTime(asn1_time: pASN1_TIME): TDateTime;
    ...

con fCertificate re-privatizada, añadí a la clase:

Código Delphi [-]
  public
    procedure assignCertificate(certificate : pX509);

que solamente asigna el apuntador:

Código Delphi [-]
procedure TX509Certificate.assignCertificate(certificate: pX509);
begin
  fCertificate := certificate;
end;

eso y los cambios de Char a AnsiChar fueron algunas de las cosas le hice a OpenSSLUtils.pas, luego en mi programa, la función quedó:

Código Delphi [-]
function GetCertInfo(const AFileName:String) : CertificadoX509;
var
  bp:   pBIO;
  fn:   PAnsiChar;
  x:    pX509;
  x509: pX509;
  Cert: TX509Certificate;
begin
  InitOpenSSL;
  Cert := TX509Certificate.Create;
  try
    fn := PAnsiChar(AnsiString(AFileName));
    bp := BIO_new(BIO_s_file());
    BIO_read_filename(bp, PChar(fn));
    x    := X509_new;
    x509 := PEM_read_bio_X509(bp, x, nil, nil);
    //Result.NotBefore:=getTime(X509_get_notBefore(x509));
    Cert.assignCertificate(@x);
    //Cert.fCertificate:=x;
    //Result.NotBefore:=Cert.NotBefore;
    Result.Issuer:=Cert.Issuer;
    //Result.Subject:=Cert.Subject;
    //Result.NotBefore:=Cert.NotBefore;
    //Result.NotAfter:=Cert.NotAfter;
    //Result.ISExpired:=Cert.IsExpired;
    //Result.IsTrusted:=Cert.IsExpired;
    X509_free(x509);
  finally
    BIO_free(bp);
    Cert.Free;
    EVP_cleanup;
  end;
end;

Aquí, como pueden ver, solo puedo acceder a Cert.Issuer, si descomento cualquier otra, me marca Access violation.

Creo que no estoy pudiendo asignar bien el apuntador al fCertificate.

Por cierto, usando uno de los certificados de ejemplo que te da el SAT me devolvió:
NO X509_NAME

Seguiré moviendole a ver si me sale

Saludos

[Morrismx]

Edgar,

me parece que si le hice cambios al unit OpenSSL, te la mando para que hagas tus pruebas, esta es la que yo estoy usando en Delphi 2010

Saludos

[edgaronfo]

Empezado por Morrismx

Edgar,

me parece que si le hice cambios al unit OpenSSL, te la mando para que hagas tus pruebas, esta es la que yo estoy usando en Delphi 2010

Saludos

Morris, de nueva cuenta muchas gracias, estoy bajando la unidad para hacer las pruebas necesarias, y te aviso los resultados.

Gracias!

[edgaronfo]

Morris!, qué crees? no funciona!

Ya probé el OpenSSLUtils.pas que posteaste y nada! me sigue dando el error al asignar fCertificate y cuando le pongo @, osea Cert.fCeretificate:=@x; ya corre pero me marca Access violation in module libeay32.dll

Y luego, para empeorarla más, lo corrí en delphi 2006 y sí funciona!!!!

Qué será?

Lo tendré que pasar todo a delphi 2006???

No debe ser, no crees? se debe de poder en 2010!!!

Voy a postear el código que use para probar si funcionaba esto, es una forma con un botón y un listbox, y le pegué las funciones que pusiste en tu primer ejemplo.
Oye, si no es mucha molestia, te importaría probar el proyectito a ver si contigo sí jala? para saber si es mi configuración o qué, sale?

Muchas gracias.

[alexsazu]

Todo se hace con el openssl,

bien los que esten interesados en ver mi codigo del programa en delphi 2010
sobre la factura electronica, pueden enviarme un correo privado

saludos