Barra de Progresso para Envio de Email com Indy

Question

Caros, gostaria de saber como fazer para mostrar na barra de progresso quando estiver enviando emails, tanto com anexo e sem. Estou utilizando componentes

Bon Jovi · Answer

Primeiro vai ter q obter o tamanho do email em bytes, podendo usar SaveToStream ou SaveToFile no TIdMessage, obtendo o tamanho com a propriedade Size do MemoryStream, ou fun��o, FileSize por exemplo, pra pegar de um arquivo f�sico caso prefira dar SaveToFile.

//antes de enviar o email
BarraProgresso.Max := TamanhoDoArquivo;

//E no evento Work do TIdSMTP pegar os bytes em andamento:

if BarraProgresso.Max > 0 then
BarraProgresso.Position := AWorkCount;