mostrar Guage mientras envio correo

[dec]

Hola,

Quizá puedas aprovechar ciertos eventos del componente "IdSMTP". Aquí puedes ver más o menos cómo podría quedar:

Código Delphi [-]
procedure TForm1.IdSMTPWork(ASender: TObject;
 AWorkMode: TWorkMode; AWorkCount: Int64);
begin
  Gauge1.Progress := AWorkCount;
  //Application.ProcessMessages();
end;

procedure TForm1.IdSMTPWorkBegin(ASender: TObject;
 AWorkMode: TWorkMode; AWorkCountMax: Int64);
begin
  Gauge1.MaxValue := AWorkCountMax;
end;

procedure TForm1.IdSMTPWorkEnd(ASender: TObject;
 AWorkMode: TWorkMode);
begin
  Gauge1.Progress := 0;
end;

Sin embargo, he dicho quizá puedes aprovechar, y es que, hasta donde yo llego, estos eventos no funcionan todo lo bien que se espera, igual porque dependen también de información que debe proporcionar el servidor SMTP, y que, no sé si a veces es que no la proporciona, o si están obligados a hacerlo o qué.

En todo caso, por ahí irían los tiros... quiero decir, esos son los eventos que proporciona el componente "IdSMTP" (y en general el resto de los componentes Indy) para hacer lo que quieres.

[jocey]

dec y omega, sus respuestas han sido como siempre sensacionales, a ver, a mi se me ocurrio crear el componente IdSMTP en tiempo de ejecuacion, se que estoy bloqueado con esto, nunca lo habia hecho y no me entra la forma de hacerlo, no lo logro cuadrar como lo voy a hacer... si me pueden ayudar bien y si no.... no hay problemas... ya bastantehan hecho.

[Omega]

Revisa esto:

Código Delphi [-]
 SMTP.OnWorkBegin := IdSMTPWorkBegin;
 SMTP.OnWork := IdSMTPWork;
 SMTP.OnWorkEnd := IdSMTPWorkEnd;

PD: Yo también quiero dar las gracias a dec, ya que con el post que cite antes he podido hacer para bajar un archivo con barra de progreso.