F
fullstrong
Unregistered / Unconfirmed
GUEST, unregistred user!
我在线程中用自己编写的控件(myemail)来检测邮箱地址，可以通过myemail.Abort
方法来中断线程中的myemail.checkemail检测，由于检测邮箱的所花时间不确定，有时只
要几秒钟，有时由于各种原因可能要花几分钟，我想在当检测所花时间太长的时候，通过
手工运用myemail.Abort方法来中断myemail.checkemail的检测，然后正常的退出检测线程
而不是强行中断线程。
我在这里想问的是：
我该如何运用myemail.Abort方法来中断线程中myemail.checkemail的检测，该如何做？
procedure TTaskThread.Execute;
begin
while not Terminateddo
begin
myemail.checkemail('leser@163.net');
//我的检测代码
end;
end;
方法来中断线程中的myemail.checkemail检测，由于检测邮箱的所花时间不确定，有时只
要几秒钟，有时由于各种原因可能要花几分钟，我想在当检测所花时间太长的时候，通过
手工运用myemail.Abort方法来中断myemail.checkemail的检测，然后正常的退出检测线程
而不是强行中断线程。
我在这里想问的是：
我该如何运用myemail.Abort方法来中断线程中myemail.checkemail的检测，该如何做？
procedure TTaskThread.Execute;
begin
while not Terminateddo
begin
myemail.checkemail('leser@163.net');
//我的检测代码
end;
end;