我想线程和表单一起工作[关闭]

Question

我想运行我的Thread 然后运行应用程序指令。为什么要在Sleep 后面跑呢？ 我有一个TQuery（它有很多记录和慢速获取）而不是Sleep，当Open、Thread 在OpenTQuery 之前没有运行。 ShowMessage 和 Sleep 用于测试。 有什么解决办法？

  TCustomThread = class(TThread)
  public
    procedure Execute; override;
    procedure doProc;
  end;
.
.
.
procedure TCustomThread.Execute;
begin
  Synchronize(doProc);
end;

procedure TCustomThread.doProc;
begin
  ShowMessage('Thread');
end;
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
var
  thrd : TCustomThread;
begin
  thrd := TCustomThread.Create(True);
  thrd.Resume;
  Sleep(3000);
  ShowMessage('Form');
end;

Answer 1

我理解你的问题是

为什么表单消息出现在线程消息之前？

简单地说，您使用Synchonize 意味着所有代码都在主线程上执行。这意味着第一个消息框必须等待第二个消息框完成。

那么，为什么表单消息框会先显示呢？ Synchronize 方法用于从线程调用主线程上的代码。这个Synchronize 方法通知主线程有工作要做，然后阻塞直到主线程可以完成。

当你的程序忙于事件处理程序时，主线程不会启动这项工作。所以对Sleep 的调用实际上阻塞了两个线程，因为两个线程都在主线程上等待。

所以要重新概括，Synchronize 方法会阻塞，直到主线程完成传递给Synchronize 的过程中描述的工作。如果主线程很忙，那么Synchronize 会阻塞，直到主线程完成其繁忙的任务。

---

更广泛地查看您的问题，您描述了在主线程上发生的长时间运行的数据库任务。有根本问题。您不能在主线程上执行这些任务。主线程专用于为 GUI 提供服务。这要求它始终响应并能够为其消息队列提供服务。将长时间运行的任务放在主线程上会破坏您的 GUI。将这些任务放在远离主线程的工作线程上。

我怀疑您正在使用Synchronize，因为您已经意识到由于您的数据库代码，GUI 没有响应。而且您认为您可以使用线程来保持 GUI 响应。但这永远行不通。主线程必须及时处理消息。如果数据库代码不这样做，那么您将无法从外部为消息队列提供服务。必须有合作。

这里的底线是长时间运行的任务必须远离主线程执行。

Answer 2

Button1Click 正在停止执行主线程 3 秒。

在sleep(3000) 执行期间，没有处理任何 GDI 消息，因此不会立即显示对话框。

事实上，TCustomThread.doProc 工作正常，只是在处理 GDI 消息之前不会显示对话框。

您必须更改此方法，例如进入：

procedure TForm1.Button1Click(Sender: TObject);
var
  thrd : TCustomThread;
  expectedEnd: TDateTime;
begin
  thrd := TCustomThread.Create(True);
  thrd.Resume;
  expectedEnd := Now+(1/24/60/60*3); 
  repeat
    Sleep(50); // or any long process
    Application.ProcessMessages; // to be called to process the GDI messages
  until Now>=expectedEnd;
  ShowMessage('Form');
end;

简而言之：永远不要在 GDI 主线程中长时间使用Sleep()（超过几毫秒），否则您的应用程序将不再响应。 Windows 会为此抱怨并要求您终止该应用程序！

因此，在您的情况下，当发生长时间进程（例如 TQuery）时，您必须在主线程中调用 Application.ProcessMessages，或者在后台线程中运行查询（恕我直言，这是首选方法） ，就像我们做的那样为我们的Open Source mORMot framework on client side。