盒子论坛 v2.1

有人在idPOP3控件中使用过OnWorkBegin，OneWork和OnWorkEnd事件吗？详细点的使用方法如何？我的例子有点问题，代码如下：
procedure TfrmMain.POPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  if AWorkMode = wmRead then //1
  begin
    ProgressBar1.Max := AWorkCountMax ; //2
    showmessage(inttostr(AWorkCountMax));
    ProgressBar1.Position := 0 ; //3
  end;
end;

procedure TfrmMain.POPWorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
  if AWorkMode = wmRead then
//    showmessage('已接收完成！'); //6
end;

procedure TfrmMain.POPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  if AWorkMode = wmRead then
  begin
    ProgressBar1.Position := AWorkCount ; //4
//   showmessage(IntToStr(AWorkCount) + 'Bytes de :' + inttostr(ProgressBar1.Max)) ; //5
  end;
end;

不明白AWorkCountMax为什么总是0
完整的程序代码在附件中，希望有朋友帮忙

此帖子包含附件:dedragon_200431211219.rar 大小:63.2K

----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/3/12 11:23:11

1楼：

帮你一把偶自己也学习！
----------------------------------------------

作者：

dedragon (dedragon)	★☆☆☆☆	-
	普通会员

2004/3/12 11:25:36

2楼：

谢谢，我昨天下午发现问题的解决办法就在于这里，但早上试了很久都不行，不知道问题出在哪里，希望大家帮帮忙看看
----------------------------------------------
-

作者：

Another (Another)	★☆☆☆☆	-
	盒子活跃会员

2004/3/12 15:36:20

3楼：

对网络编程，只能 Sorry
帮你顶吧！
----------------------------------------------

作者：

tiandou (萧宇)	★☆☆☆☆	-
	盒子活跃会员

2004/3/13 10:50:08

4楼：

帮你顶一下，网络这块还没涉及
----------------------------------------------
顾小而忘大，后必有失；狐疑犹豫，后必有悔。

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/3/13 21:50:42

5楼：

时间太长了还是没人帮忙！
----------------------------------------------

信息

登陆以后才能回复