时间戳

首页 > 解决方案 > Delphi 当应用程序在线程等待事件时终止时会发生什么？

multithreading - Delphi 当应用程序在线程等待事件时终止时会发生什么？

问题描述

我有一个线程通过事件循环执行工作和睡眠很长一段时间（几秒钟）。用户可以在线程睡着等待事件时终止应用程序。在这种情况下，事件实际上会发生什么？线程是否会一直运行直到事件超时，从而延迟应用程序的完全终止？或者它是否立即返回超时以外的返回值？

标签： multithreadingdelphievents

解决方案

虽然启动比创建它们的 Delphi 应用程序寿命更长的进程并非不可能，但以通常方式（通过 TThread.Create）创建和启动的线程在主线程结束后立即结束，无需等待循环完成且无需等待up 终止主应用程序。

为了让自己相信这一点，请创建一个 Delphi 应用程序和一个通过单击按钮启动的线程。让线程写入文件，然后休眠任意长的时间。当您确定它处于睡眠状态时，请终止该应用程序。请注意，应用程序立即终止，并且线程“在睡眠中被杀死”。

事实上，如果我们添加一个 finalization 部分：

type
  TTThread = class(TThread)
       msg : string;
       ctr : Integer;
    public procedure Execute; override;
    procedure Update;
  end;

procedure TTThread.Execute;
var F: TextFile;
begin
  ctr := 0;
  assignFile(F, 'log.txt');
  rewrite(f);
  closefile(f);
  while not Terminated do
  begin
      inc(ctr);
      msg := 'Updating';
      Synchronize(Update);
      assignFile(F, 'log.txt');
      append(f);
      writeln(F, IntToStr(Ctr));
      closefile(f);
      msg := 'Sleeping';
      Synchronize(Update);
      Sleep(3000);
  end;
end;

procedure TTThread.Update;
begin
   Form1.Caption := '**********'+msg+IntToStr(ctr)+'******************';
end;

var T: TTThread;
procedure TForm1.Button1Click(Sender: TObject);
begin
   if not assigned(T) then T := TTThread.Create(false);
end;


var F: TextFile;
initialization
finalization
      assignFile(F, 'log.txt');
      append(f);
      writeln(F, 'Application out!');
      closefile(f);
end.

（注意，这不是作为线程安全代码提供的，但它对实验很有用。）您可以将调试器设置在最终确定的最后一个 closeFile 处，然后将其停在那里，只要您愿意，线程就不会再次写入文件. 这告诉我们，当完成代码命中时，拥有的线程已经死了。

根据您的兴趣程度，您还可以签入表单的 OnClose、覆盖主表单的 Close 方法等。

这在我们的理解中留下了一些漏洞，比如主窗体是否正式终止每个线程，但我相信你可以从中弄清楚你将如何测试它。（对表单源的快速扫描并不是特别有启发性。）

推荐阅读