hi, mit meinem programm versuche ich, 2 email-attachments von einem
pop3 server zu laden. das funktioniert auhc ganz gut, nur der code für die progressbar macht nur schmarrn...
Delphi-Quellcode:
procedure TForm1.IdPOP31Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
begin
ProgressBar1.Position:=AWorkCount;
end;
procedure TForm1.IdPOP31WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
if AWorkMode = wmRead then
Label4.Caption:='Downloading...'
else
Label4.Caption:='uploading Data';
ProgressBar1.Max:=msgsize;
end;
procedure TForm1.IdPOP31WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
if AWorkMode = wmRead then begin
Label4.Caption:='Downloaded.';
inc(files);
Form1.Label11.Caption := IntToStr(files);
end
else
Label4.Caption:='uploading complete';
ProgressBar1.Position := 0;
end;
in workend sollte in label11 immer, wenn ein file zu ende gedownloadet wurde, die zahl um 1 erhäht werden. beim ersten file gehts aber gleich von 0 auf 2 und beim zweiten file in ein paar schritten bis auf 26. und dementsprechend läd natürlich auch die progressbar 26 mal hoch... bei 2 dateien...
was ist der fehler?
ich hab den code hier ausm forum, müsste doch eigentlich klappen...