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;
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;