快速业务通道

Action 造成cpu占用过多的奇怪问题

作者 佚名技术 来源 互联网 浏览 发布时间 2012-01-18

问题说明:

  为了维护程序的结构,我在程序中大量使用Action。其优点大家都知道,我可以让MenuItem对应某个Action,同时让工具栏上的Toolbutton也对于相同的Action。这样我只需要对Action进行编程,而MenuItemToolButton都可以相关到这个事件。

  不过我发现了一个非常奇怪的问题。当我在程序中创建了4个工具栏。然后初始化程序时动态创建ToolButton(大约40个),同时把他们都关联到不同的Action。(整个程序还只是一个空壳子,所有的Action里面还没有放入代码)我在主窗体上面的空白处(非工具栏区域)移动鼠标,用任务管理器监视。CPU占用率达30%左右(其他程序都关闭了)。如果我动态创建ToolButton的时候先关联Action,然后再取消管理Action,CPU占有率就下降到10%左右。

  解决思路:

  发现是由于在出发 WM_UPDATE 事件的时候,TActionManager会询问所有 TAction,是否需要响应 OnUpdate 事件。而这个 WM_UPDATE 触发的频率相当频繁,可想而知,不断对所有 TAction 进行询问,需要占用大量的 CPU 时间。在实际运用过程中,这个 OnUpdate 事件几乎不被用到。因此设计了如下的补丁程序。

 


 
  function TContainedAction.Update: Boolean;
  begin {
  Result := (ActionList <> nil) and ActionList.UpdateAction(Self) or
  Application.UpdateAction(Self) or inherited Update or
  (SendAppMessage(CM_ACTIONUPDATE, 0, Longint(Self)) = 1);
  }
  // ---------------------------------------------------------
  // OnUpdate may cause serious performance problem.
  // CPU usage is always at about 20-30% (AthlonXP 2100+)
  // ---------------------------------------------------------

  Result := False; // patched by 5291 2004-05-15
  end;

  把修改后的 ActnList.pas 拷贝到你的应用程序路径之下然后编译该程序。这个文件修改了原先的Update方法。你的程序可以直接使用新的 ActnList.dcu,你可以用它覆盖原先的组件。 

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号