Acces Violation

[Paulo Starling Perdigao]

Pessoal bom dia

 

Na virada do lay-out da Nfe3.10 mudei meu sistema para começar a usar ACBr.

 

Desde a mudança tenho tido o erro de access violation , o sistema funciona normalmente , só que quando vou gerar assinar, validar e transmitir a nota a primeira funciona normalmente. 

ao finalizar a primeira , fecho a tela e volto a tela anterior pra selecionar outra nota da erro de access violation e não consigo achar o erro via breakpoint. Algum processo ficou aberto e não fechou ao fechar o form que envia a nota

 

Ai tenho que sair e entrar no sistema de novo.  

 

Alguém ai pode ajudar ? como finalizar tudo (thead , socket, ws, ao fechar o form?)

 

 

 

 

[Isaque Pinheiro]

Bom dia Paulo, Acess Vialotion é uma dos erros mais chatos de se descobrir, sabemos que ele representar, mas achar exatamente o que o ocasiona, somente debugando os fontes.

 

Vi que na 4a imagem a mensagem diz "A component named FrmGerarNotaAcbr already exists" esse componente é seu, então tem que vê como você o está instanciando e liberando ele da memória, pois essa mensagem mostra que você está criando um objeto, mas o mesmo já foi criado e está na memória.

 

De uma analisada, e tenta debugar, não fique no pensamento que você não mexeu em nada no seu código que antes funcionava, debugue assim mesmo e tente encontrar o ponto do erro, assim podemos te ajudar mais.

[Paulo Starling Perdigao]

Isaque Pinheiro é isso mesmo , esse é o form que que faz o envio e o retorno  e que esta o componente visual AcBr.

Ou seja , quando ele é fechado , parece que algo fica em abrto e não é fechado.

as linhas que estão no evento onclose dele são essas

 

 ACBrNFe1.SetStatus(stIdle);

 FrmACBrStatus_sics.release;

 try  FrmACBrStatus_sics.close; except showmessage('Erro de Status');end;

 FrmGeraNotaAcBr.Release;

 FrmGeraNotaAcBr:=nil;

 Action:=cafree;

 

 

[Isaque Pinheiro]

Existem várias formas de se fechar e destruir um form sendo:

 

Se vai usar .Show normal, faça assim no evento onclose.
 

...

  Self.Release;

  FreeAndNil(Self);

 

Para fechar esse use CLOSE;

 

Se vai usar ShowModal faça assim:

 

FormACBrStatus_sics := TFormACBrStatus_sics.Create(Application)

try

  FormACBrStatus_sics.ShowModal;

finally

 FreeAndNil(FormACBrStatus_sics)

end;

 

Para fechar esse use ModalResult := mrOK ou mrCancel.

[Paulo Starling Perdigao]

Obrigado , resolvido....