indy的smtp和pop3收发邮件过程中怎样实现进度条

idsmtp和idpop3都有一個onWork事件三個參數
SMTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);

AWorkCount表示當前已經完成(收或者發)的byte
你看一下Help就會明白的.很好用.也正合你用

//以indyPop3为例
procedure TForm1.IdPOP31WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
 progressBar1.Max:=AWorkcountMax;
 progressBar1.Position:=0;
end;

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

procedure TForm1.IdPOP31WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  progressBar1.Position:=0;
end;