ValidaCFD

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

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

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

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