delphi.thread.线程循环执行体结构

港控/mmm° 2021-11-27 06:10 206阅读 0赞

不管怎样，我们从开始使用D，不管有没有用线程，其实它已经帮我们做了一个最完整的线程执行处理：Application.Run.

这行App.Run，在dpr，想来各位都经常能够看到，如果跟踪下去，我们就会发现，它其实就是一个最完整的线程执行体的结构了：

我将里面一些代码删除掉了，再将HandleMessage的代码复制过来，然后，代码如下：

procedure TApplication.Run;
    var
      Msg: TMsg;
    begin 
      repeat
        try
          if not ProcessMessage(Msg) then Idle(Msg);
        except
          HandleException(Self);
        end;
      until Terminated;
    end;

好了，我们不用去看里面代码意思，因为从代码意思来讲，它思路很简单，而且此文，也不是要去分析介绍App的代码。

这个Run，其实给我们介绍了一个线程执行体的大体结构思路，我觉得有意思的就是这循环体结构了。

上述的APP循环执行体，大体思路是：

1: 调用消息处理();

2: 没消息，就做空闲处理();

3: 不中断程序就继续循环。

这循环结构，我觉得与线程操作大体思路是相符的。那么，它也是可以看成是线程循环执行结构了：

procedure TMyThread.Execute();
    begin 
      repeat
        try
          if not DoThreadJob() and not DoThreadIdle() then
             Sleep(10);
        except
          on E: Exception do
            DoHandleException(E);
        end;
      until Terminated;
    end;

当然，未有作业时，Sleep进行阻塞及切换线程时，可以弄个计数，累计idle的次数，到了一定次数后，再进行sleep，计数再复位。

如下示例：

procedure TMyThread.Execute();
    const
      // 根据线程服务性质，进行设定，或进行外部配置
      // MAX_IDLE值越大，表示该线程的处理需要越多时间(切换次数越少)，
      // MAX_IDLE值越小，线程切换次数越多。
      MAX_IDLE = 32;
    var
      idle_count: Integer;
    begin
      idle_count := 0;
      repeat
        try
          if not DoThreadJob() then
          begin
            if not DoThreadIdle() then
              Inc(idle_count)
            else
              idle_count := 0;
          end else
            idle_count := 0;
    
          if idle_count >= MAX_IDLE then
          begin
            idle_count := 0;
            Sleep(10);
          end;
        except
          on E: Exception do
            DoHandleException(E);
        end;
      until Terminated;
    end;

然后，线程在未有作业处理时，去做空闲处理，空闲处理也未有时，再sleep，我觉得这思路，在写长期运行的逻辑服务处理是很好的适用思路。

且很多处理，是可以放置于ThreadIdle进行外部处理，再扩展，如同Application.Idle，运行频率是非常高。。。