Thema: Delphi Gauge

Einzelnen Beitrag anzeigen

-Phantom-

Registriert seit: 26. Nov 2009
Ort: Bockhorst
319 Beiträge
 
Delphi 7 Enterprise
 
#8

AW: Gauge

  Alt 16. Feb 2011, 17:00
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
Mathias Jansen

Geändert von -Phantom- (16. Feb 2011 um 17:03 Uhr)
  Mit Zitat antworten Zitat