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


 Google 搜索

内容: 
 最新下载


 
CnWizards 1.5.1.1219
[2024-11-03]

 
CnVCL 组件包 20241103
[2024-11-03]

 
CnPack 密码算法库 20241103
[2024-11-03]
  每日构建版下载
  专家包时间线
 项目相关链接


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

今日首页访问: 170
今日页面流量: 863
全部首页访问: 5317014
全部页面流量: 21461135
建站日期: 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,改一字节即可,但这种方法兼容性比较的差,版本一变偏移量就会变,难以维护。  



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

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

相关主题:


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