Jejeje, me ha pasado lo que le pasa a dado, así que lo comprendo.
Pero también tiene razón juanelo cuando dice que es fácil, que solo hagas uno y pruebas, digo, no se pierde nada con tratar, no?
Bueno, pasando a otro asunto, aunque creo que fui el único que tuvo problemas implementando la unidad sello.pas en delphi 2010, les comento que ya pude sacar la información del certificado que no había podido obtener. y me quedó así:
Original
Código Delphi
[-]
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;
Result.NotBefore:=Cert.NotBefore;
Result.Issuer:=Cert.Issuer;
...
end;
Delphi 2010
Código Delphi
[-]
begin
InitOpenSSL;
Cert:=TX509Certificate.Create;
try
fn := PAnsiChar(ansistring(AFileName));
bp := BIO_new(BIO_s_file());
BIO_read_filename(bp, Pchar(fn));
Cert.fCertificate := X509_new;
x509 := PEM_read_bio_X509(bp, Cert.fCertificate, nil, nil);
Result.NotBefore:=Cert.NotBefore;
Result.Issuer:=Cert.Issuer;
...
end;
lo pongo para que si a alguien le llega a pasar, que sepa cómo lo pude solucionar yo.
Oigan y cómo van con los CFDi ?
por cierto, cómo se van a enviar las facturas para que las timbren?
por algún tipo de conexión ppp? o cómo?
Y luego, mandas el xml ya sellado y te lo regresan con el timbre ya sellado?
Saludos!