Error al agregar el código, no se ejecuta

[Roger Ruiz]

Hola, saludos a los foristas.

Tengo un programa de facturación al que le he agregado el código para el CFDI, al incluir ciertas líneas el programa ya no funciona, ni siquiera alcanza a ejecutarse y no sé que estaré haciendo mal, por ejemplo:

procedure TFrmFacturas.btnValidarClick(Sender: TObject);
var CFD : TCFD;
aux : integer;
RespuestaDelPAC : string;
ResultadoDelSellado : string;
TimbreDelPAC : string;
Certificado : TCertificado;
begin
CFD := TCFD.Create(cfdV30);

Certificado := TCertificado.Create;
Certificado.LoadFromFile('C:\RVSistemas\Facturacion\mabc780417ar7.cer');
CertificadoB64 := Certificado.Base64;
Certificado.Free;

Con este código ya no funciona, ni siquiera da error, uso Delphi 7 enterprise, de hecho el sistema nunca llega a ejecutar este procedimiento.

procedure TFrmFacturas.btnValidarClick(Sender: TObject);
var CFD : TCFD;
aux : integer;
RespuestaDelPAC : string;
ResultadoDelSellado : string;
TimbreDelPAC : string;
Certificado : TCertificado;
begin
CFD := TCFD.Create(cfdV30);

//Certificado := TCertificado.Create;
//Certificado.LoadFromFile('C:\RVSistemas\Facturacion\mabc780417ar7.cer');
//CertificadoB64 := Certificado.Base64;
Certificado.Free;

Al cancelar estas líneas el programa ya funciona, alguien tiene alguna idea?

Saludos
Roger

[Dado]

Engloba las lineas que te estan dando problema entre un "try...except" y atrapa el error con el clasico "on e:exception.... e.message"

[Roger Ruiz]

Hola Dado


Hace exactamente lo mismo, supongo por que el código nunca se ejecuta y da lo mismo, para ser mas claro, el código está en un modulo que no se carga al iniciar el programa, se carga mediante una opción, pero el sistema ni siquiera llega a ejecutarse, ya que el programa no muestra nada ni da error alguno, gracias por tu respuesta.


Saludos
Roger

[Roger Ruiz]

Haciendo algunas pruebas he encontrado el problema, lo que me faltaba era copiar los archivos libeay32.dll y ssleay32.dll en la misma carpeta del ejecutable.


saludos
Roger