Problem mit ProgressBar beim versenden von Emails - IdSMTP

[Klaus01]

Hallo,

ich würd das ganze auf Prozentbasis machen.

Delphi-Quellcode:

procedure Tmaengel.IdSMTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; 
  const AWorkCountMax: Integer); 
var FS:TFileStream; 
begin 
 choose_adress.ProgressBar1.Max := 100; 
end; 

procedure Tmaengel.IdSMTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer); 
begin 
  choose_adress.ProgressBar1.Position := round( (AWorkCount/Dateigroesse(FileName))*100); // <-- setze hier mal einen Haltepunkt
end;

Schau Dir in dem Haltepunkt einmal den Wert von AWorkCount an.

Grüße
Klaus