TAnimate - Trava ao executar uma opera��o

Question

Salve!!!Tenho uma rotina para envio de email usando o indy + delphi7, O envio de email esta funcionando normal o meu problema � que quando mando enviar o email .... a anima��o do componente TAnimate p...

Massuda · Answer

Se o �smtp� em seu c�digo for um TIdSMTP do Indy, coloque tamb�m no form um componente TIdAntiFreeze (normalmente na aba Indy Misc)....

Michael · Answer

Ol�![b:ebf9204839]ProcessMessages [/b:ebf9204839]n�o funciona neste caso pq o lag est� no m�todo [b:ebf9204839]Send[/b:ebf9204839]. A solu��o seria enviar o email de dentro de uma thread.[]�s...

Mmoreira · Answer

Massuda,Eu coloquei o TIdAntiFreeze e nao adiantou muito, a anima��o continua travando ....Michel,Bom eu nao saco nada de thread, vou dar uma pesquisada no forum e ver o que consigo ...valews...

Massuda · Answer

[quote:54e32e00f8=�mMOREIRA�]Eu coloquei o TIdAntiFreeze e nao adiantou muito...[/quote:54e32e00f8]Voc� tem algum processamento adicional sendo feito durante o envio do email (por exemplo, barra de progresso)?...

Martins · Answer

[quote:0314e39111=�Michael�]Ol�![b:0314e39111]ProcessMessages [/b:0314e39111]n�o funciona neste caso pq o lag est� no m�todo [b:0314e39111]Send[/b:0314e39111]. A solu��o seria enviar o email de dentro de uma thread.[]�s[/quote:0314e39111]Concordo com vc garotinho...[code:1:0314e39111]  TMailThread = class( TThread )  protected     procedure Execute; override;  end;.....procedure TMailThread.Execute;begin{Seus c�digos.... }.....end;[/code:1:0314e39111]Depois vc faz a chamada a sua Thread.Michael passa no f�rum do ArapuKa.Um Abra�o...

Mmoreira · Answer

MassudaEu nao tenho nenhum outro processo junto com:try smtp.Send( mensagem ); Um pouco antes de enviar o email eu abro um ClientDataSet com poucos registros.Martins,Estou dando uma estudada sobre thread ...Tenho que resolver isso o quanto antes.valews...