Board logo

Subject: bpl内线程怎么退不出来 [Print This Page]

Author: niaoge    Time: 2007-8-25 18:21     Subject: bpl内线程怎么退不出来

在运行时 bpl内
destructor TxxThread.Destroy;
begin
  //下面这段话...到结束 如果不加的话,exe关闭时就出错,加的话,又退不出来 ,请版主看看
  if ModuleIsLib then
  begin
    if not FreeOnTerminate then
    begin
      FreeOnTerminate := true;
      WaitFor;
      Exit;
    end;
  end;
  //结束
  Terminate;
  PMessages;
  WaitFor;
  inherited;
end;
Author: skyjacker    Time: 2007-8-27 22:19

我不知道你说的 bpl内线程 与普通线程有什么区别。

我想知道你想在 TxxThread.Destroy 里干什么。
Author: niaoge    Time: 2007-8-29 01:29

destructor TxxThread.Destroy;
begin
  //下面这段话...到结束 如果不加的话,exe关闭时就出错,加的话,又退不出来 ,请版主看看
  if ModuleIsLib then
  begin
    if not FreeOnTerminate then //判断是不是结束时退出
    begin
      FreeOnTerminate := true;   //让结束时退出
      WaitFor;                            //暂先不退出,等待这个线程的事情结束后由于FreeOnTerminate := true会再次触发 Destroy 以便执行下面代码
      Exit;
    end;
  end;
  //结束
  Terminate;
  PMessages;
  WaitFor;
  inherited;
end;

这是rem内的,怎么改都退不出来,我只好把多线程的这块分出来,不放在bpl内,其它的合做成一个静态包bpl
以前不相信多线程不能打包到bpl内,通过自己做才相信了这点,不是退不出来,就是内存报错,
注:这段代码放在exe内,不会报错

[ 本帖最后由 niaoge 于 2007-8-29 01:32 编辑 ]
Author: Passion    Time: 2007-8-29 14:27

WaitFor的时候会再次触发Destroy?
Author: AdamWu    Time: 2007-10-10 05:05

Because wait for will not set Terminated flag before calling WaitForSingleObject API,  so your program will be stuck just before Exit.
Instead, I think you should call Terminate and then call Exit.




Welcome to CnPack Forum (http://bbs.cnpack.org/) Powered by Discuz! 5.0.0