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

原创于 2005-04-22 09:57:00 发布 · 1.8k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #byte

博客介绍了idsmtp和idpop3的onWork事件有三个参数，其中AWorkCount为Integer类型，表示当前已完成（收或发）的byte，还建议查看Help以更好理解该事件的使用。

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;