Exceção ao enviar email com thread (exige correção)

[Cantu]

Já estava ficando louco aqui com um problema no envio de email de NFe pelo ACBr, usando thread, em alguns clientes. Simplesmente dava uma exceção, mas o que aparecia pro usuário não

servia pra nada:

Project xxx.exe raised exception class EAccessViolation with

message 'Access violation at address 00404E96 in module

'xxx.exe'. Read of address 00000000

Com a nova opção de enviar o email sem usar threads, fui capaz de identificar o problema (o endereço do email que o cliente estava especificando estava incorreto), porque nesse caso, a exceção trazia a mensagem real do erro.

Assim, ficou mais fácil de debugar o código do envio via thread, e achei o culpado:

procedure TSendMailThread.DoHandleException;

begin

TACBrNFe(TNotasFiscais(FOwner.GetOwner).ACBrNFe).SetStatus( stIdle ); <- PAU!!!!

FOwner.Alertas := FException.Message;

if FException is Exception then

Application.ShowException(FException)

else

SysUtils.ShowException(FException, nil);

end;

No caso, a linha TACBrNFe(TNotasFiscais(FOwner.GetOwner).ACBrNFe).SetStatus( stIdle );

sempre dá pau, pois FOwner sempre está nil.

Enfim, a solução é comentar as duas primeiras linhas, ou então implementar o código que atribui à FOwner o objeto correto. Como não domino o código do componente, eu comentei as linhas aqui e agora consigo ver a mensagem real de erro, mesmo quando envio via Thread.

Aos responsáveis, favor corrigirem o código oficial.

[Cantu]

Alguém aí poderia incluir a correção no SVN antes que caia no esquecimento, please?

[Daniel Simoes]

Oi Cantu... a tempo não nos falamos...

 

Obrigado pelo Bug report.. já encaminhei pro André...

 

Ainda estou brigando para instalar o "Tracker" que achei na comunidade do Invision Power Bord... (estou quase desistindo e instalando o MantisBT) , a vantagem de usar algo integrado é que teriamos tudo com um único login...

 

Assim que terminar de configurár o Bug Tracker ficará mais fácil de reportar e acompanhar o andamento dos bug reports

[Cantu]

Grande Daniel! Quando vai aparecer pra uma "pizzada" relembrando os tempos de BBS ?

 

Eu já tinha enviado pro André, mas o bicho deve estar enrolado.

[Daniel Simoes]

Bons tempos... tudo via Modem... a 2400 bps, com o máximo de 2 conexões simultâneas no BBS    (era uma briga pra conseguir conexão)

 

Quem tinha um USRobotis de 9.600 bps fazia inveja pra todo mundo

[Régys Silveira]

Cantu, procurei uma forma de fazer passando a referência, mas como o envio de e-mail é implementado no componente ACBrNFe ficou um tanto estranho, decidi somente comentar como você propôs.

[Cantu]

Valeu Regys!