c++ - 事件处理程序是否可重入 Embarcadero C++Builder？

Question

我想就如何处理 Embarcadero CB10.1 的重新进入问题提出一些建议。在“禁用所有优化”设置为 true 的调试配置中编译。我在 Win7 上运行。

我有一个简单的测试用例。带有两个按钮的表单。每个按钮的 OnClick 事件处理程序调用相同的 CPU 密集型函数。下面是头文件，后面是程序文件。

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    TButton *Button2;
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall Button2Click(TObject *Sender);
private:    // User declarations
    double __fastcall CPUIntensive(double ButonNo);
    double __fastcall Spin(double Limit);

public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif



//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Button1->Caption = "Pushed";
double retv = CPUIntensive(1);
Button1->Caption = "Button1";
if (retv) ShowMessage("Button1 Done");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
Button2->Caption = "Pushed";
double retv = CPUIntensive(2);
Button2->Caption = "Button2";
if (retv) ShowMessage("Button2 Done");
}
//---------------------------------------------------------------------------

double __fastcall TForm1::CPUIntensive(double ButtonNo)
{
//
static bool InUse = false;
if (InUse) {
    ShowMessage("Reentered by button number " + String(ButtonNo));
    while (InUse) {};
    }
double retv;
InUse = true;
retv = Spin(30000);         // about 9 seconds on my computer
//retv += Spin(30000);      // uncomment if you have a faster computer
//retv += Spin(30000);
InUse = false;
return retv;
}
//---------------------------------------------------------------------------

double __fastcall TForm1::Spin(double Limit)
{
double k;
for (double i = 0 ; i < Limit ; i++) {
    for (double j = 0 ; j < Limit ; j++) {
        k = i + j;
        // here there can be calls to other VCL functions
        Application->ProcessMessages(); // added so UI would be responsive (2nd case)
        }
    }
return k;
}
//---------------------------------------------------------------------------

-第一种情况:显示的代码但没有调用 ProcessMessages()。

当我运行它并点击按钮 1 时，CPU 使用率几乎上升到100% 约 9 秒。在此期间，表单变得无响应。无法移动表单或单击按钮 2。

这如我所料。

第二种情况:让表单在 CPU 期间响应用户密集型功能，我添加了 ProcessMessages() 调用，如图所示。现在，我可以四处移动表单并单击其他按钮。

这并不总是好的，因为我可以再次点击按钮 1 或者甚至单击按钮 2。单击任何一次都会再次触发 CPU 密集型功能。为了防止第二次运行 CPU 密集型函数，我制作了一个静态 bool 标志“InUse”。我设定那个当函数开始时清除它，当函数完成时清除它。

所以当我进入 CPU 密集型函数时我会检查标志并且如果它已设置(它必须是通过先前单击按钮设置的)，我显示一条消息，然后等待标志清除。

但标志永远不会清除，我的程序在“while”语句上循环永远。我希望程序只等待 CPU 密集型功能完成然后再次运行它。

如果我在遇到死锁后在 Spin() 函数中设置断点，它从不触发，表明两个事件都没有执行。

我知道 VCL 不是线程安全的，但在这里，所有的处理都需要放在主线程中。在我的实际代码中，有很多调用VCL 功能，因此 CPU 密集型功能必须保留在主线程。

我考虑过临界区和互斥体，但因为一切都在主线程，任何使用它们都不会阻塞。

也许是堆栈问题？有没有解决方案可以让我在没有死锁的情况下处理这个问题？

Answer 1

2nd case : To make the form responsive to the user during the CPU intensive function, I added the ProcessMessages() call as shown. Now, I can move the form around and click on other buttons.

那总是错误的解决方案。处理这种情况的正确方法是将 CPU 密集型代码移动到一个单独的工作线程，然后让您的按钮事件启动该线程的一个新实例(如果该线程尚未运行)。或者，让线程在没有工作要做时休眠的循环中运行，然后让每个按钮事件都向线程发出信号以唤醒并完成其工作。无论哪种方式，绝不阻塞主 UI 线程!

That is not always good, because I could click on button 1 again or even click on button 2. Either click would fire off the CPU intensive function again.

To prevent the CPU intensive function from running the second time, I made a static boolean flag "InUse". I set that when the function starts and clear it when the function completes.

更好的方法是在执行工作时禁用按钮，并在完成后重新启用它们。然后不能重新输入工作。

但是，即使您保留了标志，如果标志已经设置，您的函数也应该不执行任何操作就退出。

无论哪种方式，您都应该显示一个 UI，告诉用户工作正在进行中。如果工作在单独的线程中完成，这将变得更容易管理。

So I check the flag when I enter the CPU intensive function and if its set (it must have been set by a previous click on a button), I show a message and then wait for the flag to clear.

But the flag never clears and

那是因为你只是在运行一个无所事事的无限循环，所以它不允许代码继续前进。并且肯定不会完成现有工作并重置标志。

无需重写即可对现有代码进行的最小修复是将CPUIntensive()更改为使用return 0 while (InUse) {} 当 InUse 为真时。这将允许对 ProcessMessages() 的调用退出并将控制权返回到之前等待完成运行的 CPUIntensive() 调用。

I know the VCL is not thread safe but here, all of the processing takes place in the main thread.

Thay 是个大错误。

In my actual code, there are many calls to VCL functions so the CPU intensive function has to remain in the main thread.

这不是在主线程中执行工作的充分理由。将它移动到它所属的工作线程，并在需要访问 UI 时让它与主线程同步。在工作线程中做尽可能多的工作，仅在绝对必要时才同步。