CnPack 开源软件项目 - Delphi 2009 VCL 源码中一处可能导致死循环的 Bug
  网站首页 下载中心 每日构建 文档中心 公益基金 开发论坛 关于我们 致谢名单 English


 Google 搜索

内容: 
 最新下载包


 
CnWizards 1.1.9.991
[2020-03-12]

 
CnVCL 组件包 20200312
[2020-03-12]

 
CVSTracNT 多语言版 V2.0.1_20080601
[2008-06-02]

 
CVSTrac Linux 中文版 V1.2.1_20060112
[2006-01-12]
  最新开发版下载 RSS
  项目时间线 RSS RSS
 项目相关链接

CnPack GitHub 首页
GIT 使用说明
申请加入 CnPack
CnPack 成员名单
CnPack 邮件系统
 网站访问量

今日首页访问: 683
今日页面流量: 2351
全部首页访问: 3855215
全部页面流量: 14772075
建站日期: 2003-09-01

Delphi 2009 VCL 源码中一处可能导致死循环的 Bug

CnPack 开源软件项目 2008-11-06 17:50:10

Delphi 2009 VCL 源码中一处可能导致死循环的 Bug
CnPack 开发组
Liu Xiao
2008-11-06
(转载请注明出处并保持完整)

Delphi 2009/2007 的 source\Win32\vcl\Forms.pas 中,GetNonToolWindowPopupParent 函数实现部分:

function GetNonToolWindowPopupParent(WndParent: HWND): HWND;
begin
  Result := GetParent(WndParent);
  while (Result <> 0) and (GetWindowLong(Result, GWL_EXSTYLE) and WS_EX_TOOLWINDOW = WS_EX_TOOLWINDOW) do
    Result := GetParent(WndParent);
    ... // 以下省略
    
很明显,如果第一次进入 while 时判断成立,那么 Result 的值就始终是 WndParent 的 Parent,也就没机会跳出循环了。Result := GetParent(WndParent); 应该改成 Result := GetParent(Result); 才对。

GetNonToolWindowPopupParent 是在 TCustomForm 的 CreateParams 中被调用的,也就是说某些窗口在 Create 的时候,可能就会碰上这个死循环,导致程序挂在这个窗体 Create 的过程中。

网上没搜到这个 Bug 的相关内容,可能一般人的程序中都不会进入这个 while,但 CnPack IDE 专家包的某些窗体代码偏偏就进入了这个 while,导致用户 IDE 失去响应,然后我们在调试过程中才碰到这个问题。

Delphi 2009 Update 1 中仍旧存在此问题,并且以前的 BDS 中貌似也有此问题。目前还在想办法看如何绕过它。

感谢 godnumen 和 笑三少 的报告与协助。

====================================

补充一下后来想出的半截子绕过这个问题的办法:

这个问题在TCustomForm的CreateParams被调用时,如果当前Application的ActiveForm的Handle存在,并且这个Handle拿来GetWindowLong一下其GWL_EXSTYLE时具有WS_EX_TOOLWINDOW风格的话,即会产生这个死循环。

在自己的窗体创建并显示的情况下,如要躲过此循环,可override CreateParams函数,在inherited前判断Application的ActiveForm的Handle并设置其GWL_EXSTYLE为 非 WS_EX_TOOLWINDOW,inherited 后再恢复,即可。

如果是多模块协作带包链接,是别人的窗体没法改源码,那就得考虑动态修补vcl120.bpl了。将Result := GetParent(WndParent); 改成 Result := GetParent(Result); 只需要将一处汇编代码 56 push esi 改成 53 push ebx,改一字节即可,但这种方法兼容性比较的差,版本一变偏移量就会变,难以维护。  



本文已阅读 11384 次
来自: CnPack 开源软件项目

上一主题 | 返回上级下一主题

相关主题:


版权所有(C) 2001-2018 CnPack 开发组 网站编写:Zhou Jinyu