创建一个可以杀死或终止运行进程的按钮

Question

我想在我的表单中添加一个按钮，如果用户出于任何原因希望停止进程或加载另一个文件，可以使用该按钮终止运行进程（运行数千次的循环） .

该程序有一个部分对多个案例执行插值，并为每个案例创建并保存一个文本文件。一旦进程启动（这是通过在加载必要的文件后按下按钮来完成的），它将开始运行并且在完成之前不能停止。此过程的持续时间可能在几分钟到几小时之间，具体取决于某些文件的大小。

我从按下按钮时调用的部分复制了一个代码片段（更改了名称和某些部分并省略了第一个 if 块后面的内容，因为它与此处无关）。

void __fastcall TMapperForm::bt_InterpolationClick(TObject *Sender)
 {
 int i;

 if(someflagused == true)
 {
      different_cases_total = 0;
       for(i=0; i<something_counter; i++)
       {
       CleanStuff();
       FunctionReadingFiles(list_of_stuff->Items->Strings[i]);
       InterpolatingFunction();
       different_cases_total+= no_cases;
       }
 }
}

如上所述，我想创建另一个可以 kill/terminate 该过程的按钮。我的主要问题是当程序运行时，它冻结了，我看不出有什么办法可以中断循环。

有什么方法可以添加一个按钮，即使在循环运行时也能保持活动状态，并且在单击时可以终止进程？

Answer 1

给TButton没问题。问题是要为事件做好准备。这样的循环捕获 activity 并且您的应用程序不响应事件。

bool BreaKtheLoop = false;

void __fastcall TMapperForm::bt_InterpolationClick(TObject *Sender)
 {
 int i;

 if(someflagused) // redundant comparison == true)
 {
   ..
       for(very long loop)
       {
           ...
           Application->ProcessMessages();
           if(BreaktheLoop )
              break;
       }
 }
}

点击新按钮将变量设置为真；

Answer 2

如我所见，您正在 VCL 内插值，这意味着 VCL 已冻结

VCL/WinProc 函数会停止，直到您的计算完成，因此所有组件都无法工作（没有按钮、计时器、滑块...）

如何修复？

将计算移至线程

线程对此非常有用，但您需要进行一些同步并且

避免从线程访问 VCL 组件和视觉内容 WinAPI 调用！！！

因此，如果您需要绘制一些东西，请将其传递给您的 window，然后从 App 主线程（内部计时器或其他东西）绘制。

在线程内部扫描一些 volatile bool stop; 并且如果 true 从 for 循环中断。然后在线程开始时设置 stop=false; 并在您的按钮单击事件上 stop=true;
将您的计算移动到应用程序的 OnIdle 事件

只需在您的表单 class 头文件 (*.h) 中添加 void __fastcall MyOnIdle(TObject* Sender, bool &Done);，然后在您的表单 (*.cpp) 中添加：
```
    void __fastcall TForm1::MyOnIdle(TObject* Sender, bool &Done)
     {
     for (int i=0;i<1000;i++) // iterate so many times it does not slow the App too much
      {
      if (computation_done) { Done=true; Application->OnIdle=NULL; return; }
      // here iterate your computation
      }
     Done=false; // if you let Done be false all the time the CPU would be 100% loaded !!!)
     } 
```
现在，当您想要开始计算时，您只需执行 Application->OnIdle=MyOnIdle; 并停止计算 Application->OnIdle=NULL; 将 TForm1 更改为 class 表单名称。

OnIdle 事件是 VCL 主线程的一部分，因此您可以随意访问任何 VCL 内容 所以 没问题 access violations 和 invalidating WinAPI 就像线程一样，你也不需要再使用 volatile
可以使用VCL定时器

它几乎与 OnIdle 事件相同，只是在 time 传递后不再在 1000（或任何其他数字）循环停止后停止。为此，您需要扫描时间，例如
```
    LARGE_INTEGER i;
    QueryPerformanceFrequency(&i); double freq=double(i.QuadPart);
    QueryPerformanceCounter(&i); double cnt=double(i.QuadPart);
```
freq 以 [Hz] 为单位，cnt 是实际计数，因此在定时器内部循环开始时取一个 cnt0 值取另一个 cnt1 和
```
if ((cnt1-cnt0)/freq>double(Timer1->Interval)*0.001*0.9) break;
```
这样您将运行几乎在您的计时器启动时，因此应用程序不应在任何 CPU 上减慢太多。如果你运行宁OS没有这些计数器（Win9x ...）你仍然可以使用RDTSC或一些OS时间api具有足够高的分辨率

[备注]

只有第一个选项能够像子弹一样使用你的插值#2,#3你需要重写它以便它可以在迭代过程中计算直到它完成了。

创建一个可以杀死或终止运行进程的按钮

Creating a button with which a running process can be killed or terminated

c++

vcl

c++builder

borland-c++

创建一个可以杀死或终止 运行 进程的按钮

Creating a button with which a running process can be killed or terminated

c++

vcl

c++builder

borland-c++

创建一个可以杀死或终止运行进程的按钮