线程终止问题

[zhengyanwml]

大家好！我用delphi开发了一个应用程序，利用了十几个线程。线程都是用的delphi封装的线程类，我都设置freeonterminate:=true了。现在想实现关闭窗体时等待所有线程运行完再把窗体关闭。该功能怎么实现？请大家帮忙。谢谢！

[Seamour]

加个计数器，创建的时候+1，结束的时候-1，然后在 form 的 OnCloseQuery 里判断一下是不是0就可以了

[wooden954]

TThread.WaitFor();//等待线程关闭

[Harryfin]

freeonterminate设置为false，创建的时候用一个TObjectList来记录这些线程，关窗体的时候直接释放ObjectList完事。原理：释放ObjectList -> 释放线程（线程释放的时候会堵塞到运行完了才释放）

[lhy]

循环判断terminate了吗？

[Harryfin]

补充下给楼主，TObjectList在Contnrs单元。

[lengfengxiaodao]

waitformultipleobject
VCL 线程类的waitfor 都可以

[不得闲]

楼主可以写一个线程池来管理

[Harryfin]

线程FREE的时候会自动调用waitfor，可不手动调用

[zhengyanwml]

[Quote=引用 3 楼 harryfin 的回复:]
freeonterminate设置为false，创建的时候用一个TObjectList来记录这些线程，关窗体的时候直接释放ObjectList完事。原理：释放ObjectList -> 释放线程（线程释放的时候会堵塞到运行完了才释放）
[/Quote]我循环判断了

[wintergoes]

freeonterminate设置为false

myThread.Terminate;
myThread.WaitFor;

[Harryfin]

不用循环判断，都说了直接释放objectlist就完了

[iqyely]

学习下。。

[Harryfin]

补上例子，楼主请自行按需要修改。

uses
  contnrs;

var
  AList: TObjectList;
  AThread: TMyThread;
  i: integer;
begin
  AList := TObjectList.Create;
  try
    for i := 0 to 100 do
    begin
      AThread := TMyThread.Create(False);
      ALIst.Add(AThread);
    end;

    AList.Free;  // 此处释放ObjectList，ObjectList会释放里面全部的线程
                   // 线程被Free的时候，会自动调用WaitFor
                   // 因此会自动等待全部线程执行完后才继续
  except
    AList.Free;
    raise; 
  end;
end;

[Elvis_chen]

AList.Free; // 此处释放ObjectList，ObjectList会释放里面全部的线程
// 线程被Free的时候，会自动调用WaitFor
// 因此会自动等待全部线程执行完后才继续
系统在释放资源时会死机呀，不能这样处理吧。