QWorker更新-TQJobGroup.Cancel加入是否等待参数

【更新内容】

TQJobGroup.Cancel函数默认是等待正在运行的作业完成后才会退出,而这会造成如果在TQJobGroup的作业中调用Cancel函数时,会陷入死循环无法退出的问题。通过加入一个布尔参数以决定是否等待可以更方便的调用Cancel函数。

在分组作业的作业函数中,下面的代码是错误的:

procedure TForm1.DoGroupJob(AJob:PQJob);
begin
TQJobGroup(AJob.Group).Cancel;
end;

下面的代码也是错误的:

procedure TForm1.DoGroupJob(AJob:PQJob);
begin
TQJobGroup(AJob.Group).Cancel(True);
end;

而下面的代码是正确的:

procedure TForm1.DoGroupJob(AJob:PQJob);
begin
TQJobGroup(AJob.Group).Cancel(False);
end;

 【更新级别】

可选

【特别感谢】

恢弘

分享到: