首页 > 代码库 > delphi.thread.线程循环执行体结构

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

线程话题太大,又都是些坑,不知从哪方面讲起,所以,想一出是一出了。 

 

  不管怎样,我们从开始使用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,运行频率是非常高。。。

 

  好像要写的东西,就这么些。。。

  

 水平有限,如有雷同,就是盗链,:D

2014.11.02 by qsl

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