Email com Progresso !!!!

Question

Pessoal estou usndo os componentes da paleta indy para enviar e-mail so que dependendo do tamanho do anexo a aplica�ao tipo trava so q si espera mto tempo ela termina de enviar ai comoquei um IdAntiFreeze melhorou mto poko alguem sabe como resolver isso ?????
e como colocar progress no envio da mensagen ??????

vlw !!!!!

Saint · Answer

opa..cara, vc pode pegar o tamanho do idmessage como arquivo e usar o onwork como referencia para a qtd enviada..abraco...

Guilherme · Answer

comi ki fa�o isso nunca fiz isso !!!!!!...

Guilherme · Answer

nao to conseguindo pegar o tamanho do idmessage como ki pego ???...

Christian_adriano · Answer

[code:1:8c145ed9c9]function TamanhoArquivo(Arquivo: string): Integer;begin   try       Result := 0;       with TFileStream.Create(Arquivo, fmOpenRead or fmShareExclusive) do begin          try            Result := Size;          finally            Free;          end;       end;   except end;end;// *********** Anexando Arquivos ****************** //    tam := 0;  ProgressBar1.Position := 0;    if (ListBox1.Items.Count > 0) then     for i := 0 to ListBox1.Count - 1 do begin       TIdAttachment.Create(idMsgSend.MessageParts, ListBox1.Items.Strings&#91;i&93;);       tam := tam + TamanhoArquivo(ListBox1.Items.Strings&91;i&93;);     end;    ProgressBar1.Max := tam;[/code:1:8c145ed9c9]E no Evento OnWork do TidSMTP vc coloca esse c�digo:[code:1:8c145ed9c9]ProgressBar1.Position := AWorkCount;[/code:1:8c145ed9c9]Espero que ajude.[]�s.Christian....

Guilherme · Answer

cara valew deu certo so ki quando nao tem anexo o progress nem mexe como ki faz para colocar o progress tbm no texto ?...

Christian_adriano · Answer

J� tentou colocar no Evento OnWork do TidSMTP vc coloca esse c�digo: [code:1:108491d963] ProgressBar1.StepIt;[/code:1:108491d963]Espero q ajude... []�s.Christian....

Guilherme · Answer

cara eu coloquei como vc falou no 1� post intao so me diz uma coisa o q devo colocar para funcionar com anexo ou sem anexo ?????...

Guilherme · Answer

[quote:9490599a28]J� tentou colocar no Evento OnWork do TidSMTP vc coloca esse c�digo: C�digo:  ProgressBar1.StepIt; Espero q ajude... []�s. Christian.[/quote:9490599a28]Nao adiantou nada !!!...

Powerlog Tecnologia · Answer

S� pra complementar, pego o tamanho da mensagem desse jeito:

const
  cBytesPorMb = 1024 * 1024;
var
  NumMsg, TotMsg: Integer; 
  xTamMsg: extended;
begin
      if not idPOP.Connected then
        idPOP.Connect(xTimeOut);

      TotMsg := idPOP.CheckMessages;
      pbEmail.MaxValue := TotMsg;

      for NumMsg := 1 to TotMsg do
      begin
        xTamMsg := idPOP.RetrieveMsgSize(NumMsg) / cBytesPorMb;
       (... etc, etc, etc ... )
      end;
end;

Se a mensagem for maior que �X� mega, eu nem baixo, j� apago de vez ... (a pedido do cliente, claro)

F�rum Email com Progresso !!!! #290055