Fórum enviar e-mail com indy mostrando progresso numa progressbar #330761
05/10/2006
0
Vitor Rubio
Curtir tópico
+ 0Posts
05/10/2006
Lipe_sp
Vitor.
Como não sei a aplicação, não sei se lhe vai ser util, mas... não seria o caso de voce deixar a progressbar em looping(como algumas instalações fazem) até terminar o envio?
Não sei sobre as paletas Indy, mas na Fastnet, era impossivel prever quando ia terminar, ou quanto faltava pra terminar o envio do e-mail.
Ps.: Entra no msn.... preciso falar com vc
Boa sorte ;)
Gostei + 0
05/10/2006
Lipe_sp
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ProgressBar1.Position <> 100 then
ProgressBar1.Position := 0;
ProgressBar1.Position := ProgressBar1.Position + 1;
end;Gostei + 0
05/10/2006
Vitor Rubio
com o idftp, ao enviar um arquivo, no evento workbegin, dá pra pegar o tamanho total da transferencia pelo parametro aworkcountmax, e colocar aworkcountmax no max da progressbar. Aí no evento onwork vc coloca progressbar1.position := aworkcount e a barra acompanha perfeitamente o progresso real.
mas so funciona com o idftp, o idsmtp não funciona. aworkcountmax sempre retorna 0. embora o workcount seja diferente de zero e cumulativo.
O que eu fiz, de gambiarra por enquanto, foi somar o tamanho dos arquivos anexos e colocar esse tamanho total no max da progressbar, a aí o progresso funciona. Mas com ftp isso ocorre automaticamente. Alem disso, se eu não tiver anexos não vai funcionar o progresso.
Gostei + 0
06/10/2006
Vitor Rubio
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ProgressBar1.Position > 100 then
ProgressBar1.Position := 0;
ProgressBar1.Position := ProgressBar1.Position + 1;
end;pra voltar pra 0 depois que chegar a 100, se não ela não progride nunca ....
to entrando no msn.
Gostei + 0
06/10/2006
Lipe_sp
escrevi errado... :oops:
era =, e não <>.
:lol:
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)