ACBrEAD

[Juliomar Marchetti]

Boa tarde

No dia da minha homologação do PAF me ocorreu um erro curioso

na primeira vez que gerei algum arquivo e assinei foi beleza

depois quando fazia assinatura novamente ele ocorria o erro de Acess violation

se saisse da tela e entrasse novamente ele assinava corretamente

até o homologador questionou mas funcionou saindo e entrando do sistema beleza

hoje estava a testar algo que não tinha a ver e resolvi olhar a unit ACBrEAD.pas

percebi que no create ele setava os valores

constructor TACBrEAD.Create(AOwner : TComponent) ;

begin

   inherited Create(AOwner) ;


   fsInicializado := False ;

e dai no initopenssl

procedure TACBrEAD.InitOpenSSL;

begin

  if fsInicializado then

     exit ;

mas não tinha outro local informando pra false a fsInicializado então fiz a seguinte alteração

procedure TACBrEAD.LiberarChave ;

begin

  if fsKey <> Nil then

  begin

     EVP_PKEY_free( fsKey );

     fsKey := nil;

     fsInicializado := false; // <<---AQUI

  end;

end ;

e não ocorreu mais o problema

ocorreu com alguém também o mesmo problema???

Uso Zeos pra conectar com postgresql que tb usa a libeay32.dll