Erro Destroy Tacbrnfe

[jGuto]

Bom dia a todos, de vez em quando, ocorre um erro na tela onde tenho um componente TACBrNFe, e verifiquei a seguinte situação.

 

No destructor do componente, tem esse código abaixo,

destructor TACBrNFe.Destroy;
begin
  FConfiguracoes.Free;
  FNotasFiscais.Free;
  FCartaCorrecao.Free;
  FEventoNFe.Free;
  FDownloadNFe.Free;
  FWebServices.Free;
  {$IFDEF ACBrNFeOpenSSL}
    if FConfiguracoes.Geral.IniFinXMLSECAutomatico then
      NotaUtil.ShutDownXmlSec ;
  {$ENDIF}
  inherited;
end;

dá erro na diretiva, pois o FConfiguracoes recebeu um free no começo do código. Essa diretiva não tinha que ser antes do Free?? O estranho que debugando tem hora que ocorre o erro e tem horas que não(sim, entra na diretiva e existe valor na propriedade)..

Editado 21 Outubro, 2013 por jGuto

[ricardo_casc]

Está atualizando seus Fontes ?

[jGuto]

opa, fontes atualizadissimos, verifique a sua acbrnfe.pas a rotina destructor TACBrNFe.Destroy;

[Roberto.Godinho]

Bom dia,
 
Vendo agora, realmente quando utilizar ACBrNFeOpenSSL vai dar acess violation ao executar a sentença "if FConfiguracoes.Geral.IniFinXMLSECAutomatico then".
 
 
Edit: Conferi nos meus fontes q estão atualizados e esta com o mesmo erro ali. Para resolver é só mover a diretiva pro inicio da função.
 
 

destructor TACBrNFe.Destroy;
begin
  {$IFDEF ACBrNFeOpenSSL}
    if FConfiguracoes.Geral.IniFinXMLSECAutomatico then
      NotaUtil.ShutDownXmlSec ;
  {$ENDIF}
  FConfiguracoes.Free;
  FNotasFiscais.Free;
  FCartaCorrecao.Free;
  FEventoNFe.Free;
  FDownloadNFe.Free;
  FWebServices.Free;
  inherited;
end;

Editado 22 Outubro, 2013 por Roberto.Godinho

[jGuto]

isso sim, eu só queria que alguem arrumasse no svn, pra não ter que ficar arrumando toda vez que atualizo..

[Juliomar Marchetti]

Ao meio dia subo ao svn a correção!

[jGuto]

opa, obrigado..

[Juliomar Marchetti]

Favor atualizar svn e testar

Revision: 6013

Author: juliomar

Date: 22/10/2013 12:47:11