Cita:
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.