Acbrmail Erro E Aplicação Presa

[joaoelson]

olá amigos.

 

Estou em dúvidas com uma situação. Migrei o envio de email para o ACBrMail. 

Consegui fazer enviar e-mail, está tudo ok, porém, quando dá um erro por algum motivo, seja lá no servidor smtp e etc, mesmo que eu feche a aplicação, a mesma fica presa em memória. Somente consigo encerrar totalmente pelo gerenciador de tarefas do windows. 

Já coloquei antes do comando que encerra a aplicação, o comando para eliminar o componente, mas nada resolveu:

FreeAndNil(DM.ACBrMail1);
Application.Terminate;

A aplicação fecha, mas continua presa em memória e só consigo encerrar totalmente pelo gerenciador de tarefas, Alguma dica para isso?

Só acontece com o ACBrMail.

 

 

 

[Daniel Simoes]

Há um TimeOut definido no sistema operacional, para erros Socket...

 

A aplicação não é encerrada mesmo depois de um Tempo ?

 

Consegue reproduzir os problemas nos demos do ACBrMail ?

[EMBarbosa]

Você está utilizando o envio de e-mail por Thread?

[joaoelson]

Olá amigos.

 

Desculpa a demora para responder, desde já agradeço a ajuda.

Modifiquei algumas linhas na finalização do meu aplicativo. Analisando pausadamente a compilação do aplicativo, verifiquei algumas situações. 

A aplicação não está mais ficando presa permanentemente, agora, está demorando muito para encerrar totalmente.

Estudando o caso, verifiquei o que está causando lentidão ao destruir o componente. Dentro de "destructor TACBrMail.Destroy", tem o comando "Clear;". Dentro de "Clear;" ao chegar na linha "fSMTP.Reset;", está demorando muito para passar. A function TSMTPSend.Reset está levando 1 minuto contado para retornar. 

Percebi que esse problema só ocorre, quando anteriormente no envio pelo ACBrMail, o erro foi de SMTP. 

 

Respondendo a pergunta do amigo Daniel, No demo do ACBrMail, não ocorre esse erro, tentei reproduzir mas não ocorreu.   

A forma que utilizo para enviar e-mail é praticamente a cópia do demo do acbr, amigo EMBarbosa. 

 

Alguma sugestão caros amigos?

Editado 11 Janeiro, 2015 por joaoelson

[joaoelson]

Amigos.

 

Depois de analisar alguns pontos, resolvi o problema.

Esse problema só ocorre quando a propriedade Host do componente ACBrMail estiver: em branco ou for um endereço ou IP inválido. A aplicação demorará 60 segundos para encerrar totalmente. Consegui reproduzir o problema com o demo do ACBrMail.

Um dos meus clientes me passou o endereço do seu servidor de e-mail errado, por isso estava ocorrendo o erro, só consegui resolver hoje, depois de entrar em contato com o serviço de hospedagem. 

Para maiores esclarecimentos, leia o post acima.

 

 

Obrigado.

João elson

[EMBarbosa]

Muito obrigado pelo retorno João. Tenho certeza que poderá ajudar outros.

A propósito, você pode marcar seu tópico como resolvido clicando no botão "Resolvido" que fica logo abaixo do post no qual você está a solução.

[MAURICIO BARRETO]

Caros colegas,

 

Como faço para inserir uma imagem no corpo do email?

 

Grato

[Daniel Simoes]

2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]".

[alexandres.silva]

Em 14/01/2015 at 12:43, Daniel Simoes disse:

2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]".

 

Prezados,

Ao enviar um email a propriedade Reset trava em torno de 1 minuto. Em resumo trava o envio de email. 

É possível criar uma variável do tipo boolean no método Clear? Informado se deseja utilizar a propriedade Reset. Caso a variável seja false a propriedade Reset não é chamada. Dessa forma o envio de email não trava. 
Ex.:

O Default é true.

procedure TACBrMail.Clear(Reset: Boolean);
begin
  ClearAttachments;
  if Reset then
    fSMTP.Reset;
  Etc...  
end;

 

 

 

 

[Daniel Simoes]

Ative o uso de Threads

[alexandres.silva]

Você tem um exemplo para eu utiliza? Pois defini como true o parâmetro do método send(true) e ocorreu um erro:

Semaphore init failed (possbly too many concurrent threads).

 

Grato.

 

[Daniel Simoes]

Teste com o Demo do ACBr... verifique se seus fontes do ACBr estão corretamente atualizados