Gauge

[-Phantom-]

Wie versickst du die E-mails den? Mit der Indy-Komponente? Wenn ja haben diese Indy Komponenten ( meistens ) das Event "Workbegin", "Work" und "Endwork" ...

So hab ich das dann gemacht

Delphi-Quellcode:

procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
progressbar1.Position := AworkCount;
end;

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
Progressbar1.Max := AworkCountmax;
end;

procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
Progressbar1.Position := 100;
Showmessage('emails wurden verschick')

Man macht es aber nicht mit der "idHTTP" sondern mit "IdSMTP"

http://www.delphi-library.de/topic_P...n_10361,0.html

Hoffe ich konnte dir weiter helfen

[Sir Rufo]

Oder wenn du die problemlos verschicken willst, dann mit Synapse versenden.

Das Versenden selber lagert man ja auch in einen Thread aus.

Zu beiden Themen gab es erst vor kurzem ein paar Posts, die SuFu hilft

[lbccaleb]

Vllt musst du nen bissel mehr deines Codes zeigen, damit man dir helfen kann, den Fehler zu finden der dafür Schuld ist, dass sich dein Programm aufhängt.
Oder ist das Problem mitlerweile gelöst?