标签：style blog io color ar 使用 sp div on
线程话题太大，又都是些坑，不知从哪方面讲起，所以，想一出是一出了。
不管怎样，我们从开始使用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
标签：style blog io color ar 使用 sp div on
原文地址：http://www.cnblogs.com/qiusl/p/4069333.html
