急...急....Indy中Idpop3控件异常处理的问题????

dida200 2005-12-26 03:34:15
我引用Idpop3控件,连接多个服务器去接收邮件,在实现中,使用了循环,但是当一个服务器出现异常(就比如说,连接失败吧),该次循环之后的都不执行了,为什么呀???
说明:当有3个服务器时,接收第一个服务器的时候,连接失败,Idpop3提示连接失败的错误,但是就是继续执行了,因为我的循环中还要接收第二个和第三个服务器的邮件呢,并且,我对这个异常没处理。

代码如下:
Listtmp: TStringList;
......
for EmailAddCount:=1 to 3 do
begin
CutString(ListTmp,DelEmailList[EmailAddCount-1]);
if Idpop31.Connected then
begin
Idpop31.Disconnect;
end;
Idpop31.Host:=ListTmp[1];
Idpop31.Port:=110;
Idpop31.Username:=ListTmp[2];
Idpop31.Password:=ListTmp[3];

try
begin
Idpop31.Connect(1000);
end
finally
begin
StatusBar1.SimpleText:='连接服务器失败!';
end
end;
end
...全文
146 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
dida200 2005-12-28
  • 打赏
  • 举报
回复
谢谢!
w1w2w3w4 2005-12-27
  • 打赏
  • 举报
回复
try
begin
Idpop31.Connect(1000);
end
except
on E :Exception do
begin
StatusBar1.SimpleText:=ListTmp[1]+'连接服务器失败!'+E.message;
continue;
end
end;
这样应该就可以
dida200 2005-12-27
  • 打赏
  • 举报
回复
好,在试中
dida200 2005-12-26
  • 打赏
  • 举报
回复
哎....
还是自己顶吧!!!
雄牛 2005-12-26
  • 打赏
  • 举报
回复


飘过...
友情UP....

dida200 2005-12-26
  • 打赏
  • 举报
回复
没人顶呀,难道年底了,大家都在发年终奖了!?

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧