100分有关线程数组创建和终止的高难问题！Delphi高手请进！

[tttk]

线程定义如下：
TNPThreadClass = class of TNPThread;线程类定义
TNPThread = class(TThread);父线程定义

TThread1 = class(TNPThread);线程1定义
TThread2 = class(TNPThread);线程2定义

现在数组A类型是TThread1，数组B类型是TThread2，其中各有一定数量的线程。
Arr1: array of TThread1;
Arr2: array of TThread2;

现在想写一个公共函数，要求判断数组中的线程是否超时，如果超时，则强行终止该线程，并为数组变量创建一个新的进程。

function CheckThread(var NPThread: TNPThread);
begin
if 超时 then
begin
TerminateThread(NPThread.ThreadID, 0);
NPThread := TNPThread.create(...);
NPThread.Resume;
...
end;
...
end;

调用：CheckThread(TNPThread(Arr1[0]))

不知以上方法是否有效？您有什么建议？

[tttk]

这里有个问题，就是函数体内的TNPThread.create(...)；显然这样创建出来的线程无法被子类使用。为此写出下面的函数体：


function CheckThread(NPThreadClass: TNPThreadClass; var NPThread: TNPThread);
begin
if 超时 then
begin
TerminateThread(NPThread.ThreadID, 0);
NPThread := TNPThread(NPThreadClass.NewInstance).create(..);

NPThread.Resume;
...
end;
...
end;

调用：CheckThread(TNPTreadT1, NPThread(Arr1[0]));
这个思路是否正确？会有什么问题？

[tttk]

后一种思路现在运行起来好像没什么问题。

[donaldtyp]

我正研究中，学习学习

[tttk]

此贴抓紧回帖，我要结帖了！

[何鲁青]

这里有个问题，就是函数体内的TNPThread.create(...)；显然这样创建出来的线程无法被子类使用
///////////为什么这么说那？你可以用is 来判断是那个子类，然后调用子类的Create函数不可以吗？

[何鲁青]

我知道你想把CheckThread用到所有子类的检验里面，其实你可以在函数一开始的时候先检验一下传进来的NPThread到底属于那个子类就可以了，不用非要创建一个类的类，调用类方法的...

[wlbfeihu]

线程控制确实麻烦
没有做过这么难的

[naner_china]

关注
Up

[ThenLong]

基类里弄个CheckXXX;virtual;abstract;
子类实现之，岂不更清晰？

[ThenLong]

最好由线程自己判断超时，中止

不然多到一定程度，系统开销太大了

[tttk]

感谢大家的回复。

这个问题是我以前做的一个新闻抓取软件里面用到的，我现在一直使用我回复里提到的办法，没有什么问题。

谢谢大家。