Factura Electronica México

[ifarias]

edgaronfo.

Supongo que sí es el problema la versión de Delphi, ya que con la versión 7 no hay problema, deberías revisar si los parámetros que le pasas al libeay32.dll son correctos, ya que esto puede ser tu problema.

[edgaronfo]

Empezado por ifarias

edgaronfo.

Supongo que sí es el problema la versión de Delphi, ya que con la versión 7 no hay problema, deberías revisar si los parámetros que le pasas al libeay32.dll son correctos, ya que esto puede ser tu problema.

Sip, definitivamente tiene que ver con la versión del delphi y la forma en la que maneja los tipos...

Oye, pero de lo que me estoy dando cuenta es que esta función (getNoCertificado) regresa como string un array de chars (array [0..19] of char) que contiene el numero de certificado en formato big-endian, estoy en lo correcto?

Entonces lo que me regresa es un numero en binario en formato big endian... Alguien sabe cómo lo paso a formato string entendible? como que tengo que usar Ord() o algo asi, no?

Siento que es una tontería lo que me está pasando aquí... ustedes que hacen con el valor en string que regresa getNoCertificado() ?... así como viene se lo pasan al xml? o lo transforman primero?

Gracias!

[Morrismx]

Hola, yo tuve el mismo problema con Delphi 2010 y tuve que corregir la funcion. Aqui esta como quedo y funciona bien.

Código Delphi [-]
 
function GetNoCertificado(const AFileName: string): string;
var
bp: pBIO;
fn: PAnsiChar;
x: pX509;
x509: pX509;
bn: pBIGNUM;
num: array [0..19] of AnsiChar;
begin
InitOpenSSL;
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);
bn := ASN1_INTEGER_to_BN(X509_get_serialNumber(x509), nil);
BN_bn2bin(bn, @num[0]);
BN_free(bn);
X509_free(x509);
BIO_free(bp);
Result := num;
EVP_cleanup;
end;

Espero que te sirba, la gran diferencia es que Delphi 2010 usa Unicode en los carcteres, entonces el Char ya no es de 1 byte, ahora es de 2.

[edgaronfo]

Empezado por Morrismx

Hola, yo tuve el mismo problema con Delphi 2010 y tuve que corregir la funcion.

Espero que te sirba, la gran diferencia es que Delphi 2010 usa Unicode en los carcteres, entonces el Char ya no es de 1 byte, ahora es de 2.

Muchas gracias Morrismx, observe bien la función que posteaste también tuve que hacer el mismo typecast a PChar al llamar BIO_read_filename y ya corre el programa, pero veo que el error que me marca ahora no es por eso, sino por el resultado que me da la función.

Una pregunta, usaste el XML DATA BIND del delphi para manejar tu xml??

porque el error que me marca ahora es cuando intento asignarle el resultado de la función a mi atributo NoCertificado en el xml:

Código Delphi [-]
CFD.NoCertificado := GetNoCertificado('aaa010101aaa_CSD_01.cer.pem');

EOleException : 'se encontró un carácter no válido en el contenido del texto'

Es decir, le hiciste algo al resultado antes de pasárselo a NoCertificado?

algo como:

Código Delphi [-]
CFD.NoCertificado := BinaryToStr(GetNoCertificado('aaa010101aaa_CSD_01.cer.pem'));

Muchas gracias.

[Morrismx]

Hola,

No le doy ningun tratamiento especial, la funcion regresa un String y en mi caso uso ese string y lo meto a la base de datos y archivo XML

Código Delphi [-]
procedure TFrmFacturacion.Button1Click(Sender: TObject);
var
NoCertificado:String;
begin
NoCertificado:=GetNoCertificado(ExtractFilePath(Application.ExeName)+'aaa010101aaa_CSD_01.cer.pem');
Label1.Caption:=NoCertificado;
end;

Saludos
Morris

[edgaronfo]

Empezado por Morrismx

Hola,

No le doy ningun tratamiento especial, la funcion regresa un String y en mi caso uso ese string y lo meto a la base de datos y archivo XML

Código Delphi [-]
procedure TFrmFacturacion.Button1Click(Sender: TObject);
var
NoCertificado:String;
begin
NoCertificado:=GetNoCertificado(ExtractFilePath(Application.ExeName)+'aaa010101aaa_CSD_01.cer.pem');
Label1.Caption:=NoCertificado;
end;

Saludos
Morris

Híjole, a mí me regresa:
〱〰㈱〰〰〰〰㈰㔲㜱䓻@篖@텐·V

Entonces creo que estará perdiendo el apuntador de la cadena de regreso o algo por el estilo... o será la versión del libeay32.dll???

[Morrismx]

Edgar, asegurate de hacer los cambios a la funcion

Código Delphi [-]
function GetNoCertificado(const AFileName: string): string;
var
bp: pBIO;
fn: PAnsiChar;
x: pX509;
x509: pX509;
bn: pBIGNUM;
num: array [0..19] of AnsiChar;  <<==== Este es el cambio
begin
InitOpenSSL;
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);
bn := ASN1_INTEGER_to_BN(X509_get_serialNumber(x509), nil);
BN_bn2bin(bn, @num[0]);
BN_free(bn);
X509_free(x509);
BIO_free(bp);
Result := num;
EVP_cleanup;
end;

el resto de la funcion no cambia, solo reemplza Char por AnsiChar y listo

dejame saber si te funciona

saludos
Morris