码迷,mamicode.com
首页 > 编程语言 > 详细

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

时间:2014-11-02 23:53:29      阅读:301      评论:0      收藏:0      [点我收藏+]

标签: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

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

标签:style   blog   io   color   ar   使用   sp   div   on   

原文地址:http://www.cnblogs.com/qiusl/p/4069333.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!