mails abhohlen: größe und datum vorher checken

[SleepyMaster]

Delphi-Quellcode:

procedure TForm1.IdPOP31WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
if AWorkMode = wmRead then
  Label1.Caption:='downloading Data'
else
  Label1.Caption:='uploading Data';
ProgressBar1.Max:=AWorkCountMax;
end;

procedure TForm1.IdPOP31Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
ProgressBar1.Position:=AWorkCount;
end;

procedure TForm1.IdPOP31WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
if AWorkMode = wmRead then
  Label1.Caption:='downloading complete'
else
  Label1.Caption:='uploading complete';
end;