Alteração No Acbrmail - Inclusão De Thread No Processo De Envio.

[strago]

Boa noite pessoal,

 

Estou afastado a algum tempo do projeto e parece que muita coisa mudou.

 

Comecei a testar o componente de Email, TACBrMail, para automatizar o envio de notas e outros arquivos e verifiquei que o componente não está trabalhando com thread no método de envio, portanto fiz a alteração e estou disponibilizando para a comunidade.

O método send foi protegido e um novo método "Enviar" tomou o seu lugar como método publico.

 

Realizei o teste no Delphi 7 e XE3 e em ambos está funcionando perfeitamente.

ACBrMail.pas

ACBrMail.pas

[Isaque Pinheiro]

Vamos analisar o código, obrigado pela colaboração.

[Isaque Pinheiro]

Só uma pergunta. O método Send para que a thread chame ela, precisa estar em "protected" ? A pergunta é pelo motivo de manter compatibilidade com o código que já existia, deixando assim a possibilidade de quem não quiser usar thread, possa chamar o Send direto, para isso ele terá que voltar para "public"

 

Avalie essa alteração, em seguida me responda que subo sua implementação, do resto esta de acordo.

[strago]

Na verdade nao ha necessidade de ser protegida... só fiz essa alteração pensando em forçar o uso da thread.

Pode volta-la a public e talvez alterar o novo metodo pra algo como enviar thread pra diferenciar.

[Isaque Pinheiro]

Disponível no SVN.

[Jean Patrick]

Uma coisa que observei ao testar é que, quando tem um erro no envio do e-mail (senha errada, por exemplo), a thread fica rodando sem parar.

 

Editado: Na verdade não está mostrando que ocorreu um erro.

[Jean Patrick]

Fiz algumas alterações:

 

Modifiquei para não ser preciso uma propriedade de envio extra e continuar compatível com códigos antigos:

 

Exemplos:

 

Sem Thread:

 

ACBrMail1.Send;

 

ou

 

ACBrMail1.Send(False);

 

Com Thread:

 

ACBrMail1.Send(True);

 

Fiz, também, modificações para poder pegar erros de envio usando Thread.

No evento OnMailProcess do componente usar, por exemplo:

  case aStatus of

    ...

    pmsError:

      Memo1.Lines.Add(ACBrMail1.GetLastSmtpError);

    ...

  end;

 

Ver anexo.

 

ACBrMail.pas

ACBrMail.pas

[Isaque Pinheiro]

Jean vc tem permissão para subir, pode subir.

[Jean Patrick]

Isaque, ainda não tenho acesso para subir alterações para o SVN do ACBr.

[Isaque Pinheiro]

ok, subi.

[Giovani Reis]

Bom dia a todos.

 

- Atualizei pelo SVN o acbr mail e notei que ainda acontecem agums problemas com acentuação, os caracteres ainda aparecem desfigurados, outra coisa, como envia email usando Thread ?

 

Obrigado.

[strago]

Envio SEM Thread : ACBrMail1.Send(False);

 

Envio COM Thread : ACBrMail1.Send(True);