TAnimate - Trava ao executar uma operação
18/11/2005
0
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 para .... ela simplesmente trava, fica parada até que o email seja enviado .... depois ela volta a funcionar. Já tentei fazer assim:
Mas nao resolveu, continua travando o TAnimate.
alguem sabe o que posso fazer para resolver???
valewsss
Mmoreira
Posts
18/11/2005
Massuda
18/11/2005
Michael
[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
18/11/2005
Mmoreira
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
18/11/2005
Massuda
18/11/2005
Martins
Concordo com vc garotinho...
TMailThread = class( TThread ) protected procedure Execute; override; end; ..... procedure TMailThread.Execute; begin {Seus códigos.... } ..... end;
Depois vc faz a chamada a sua Thread.
Michael passa no fórum do ArapuKa.
Um Abraço
21/11/2005
Mmoreira
Eu 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
Clique aqui para fazer login e interagir na Comunidade :)