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;
       }
 }
}

如上所述，我想创建另一个可以终止/终止进程的按钮。我的主要问题是，当程序运行时，它会冻结，我看不到中断循环。

有没有办法添加一个按钮，即使在循环运行时仍保持活动状态，并且可以在点击时终止该过程？

Answer 1

给予TButton没问题。问题是要为事件做好准备。此类循环捕获活动和您的应用不会响应事件。

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;
       }
 }
}

在新按钮中单击将变量设置为true;

Answer 2

我认为你正在 VCL 内插，这意味着 VCL被冻结

VCL / WinProc 功能停止，直到您的计算完成，因此没有任何组件可以工作（没有按钮，定时器，滑块，......）

如何修复？

将计算移至线程

线程很适合这个，但你需要做一些同步和

避免从线程访问VCL组件和可视化内容WinAPI调用!!!

因此，如果你需要画一些东西将它传递给你的窗口，然后从App主线程（在计时器或其他内部）中绘制。

在线程内扫描一些volatile bool stop;，如果true从for循环中断。然后在线程集stop=false;的开始和按钮点击事件stop=true;
将您的计算方式移至OnIdle申请事件

只需在表单类头文件void __fastcall MyOnIdle(TObject* Sender, bool &Done);中添加(*.h)，然后添加到表单(*.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更改为表单的类名。

OnIdle事件是VCL主线程的一部分，因此您可以随意访问任何VCL内容，因此没有问题 访问冲突和使WinAPI无效就像有线程一样，您也不需要再使用volatile
可以使用VCL计时器

它与OnIdle事件几乎相同，而不是在传递1000后time（或任何其他数字）循环停止后停止。为此，您需要扫描时间，例如
```
    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 上减慢太多。如果您运行没有这些计数器的操作系统（Win9x ...），您仍然可以使用RDTSC或某些操作系统时间api，分辨率足够高

<强> [注释]

只有第一个选项能够使用插值，因为你需要重写它的子弹＃2，＃3 ，这样它就可以在迭代过程中计算直到完成。

创建一个按钮，使用该按钮可以终止或终止正在运行的进程

2 个答案: