Board logo

Subject: Delphi 2009 VCL 源码中一处可能导致死循环的 Bug [Print This Page]

Author: Passion    Time: 2008-11-6 14:23     Subject: Delphi 2009 VCL 源码中一处可能导致死循环的 Bug

Delphi 2007/2009 的 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 失去响应,然后我们在调试过程中才碰到这个问题。

目前还在想办法看如何绕过此 Bug。

感谢 godnumen 和 笑三少 的报告与协助。
Author: kendling    Time: 2008-11-6 15:46

D2009的VCL源码也出现这样的低级BUG。
Author: Passion    Time: 2008-11-8 00:20

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

这个问题在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,改一字节即可,但这种方法兼容性比较的差,版本一变偏移量就会变,难以维护。
Author: oyefer    Time: 2008-11-8 12:34

Passion,如果修改 vcl120.bpl 的话,能说一下具体的偏移地址吗?谢谢。
BDS2009+Update1:c:\windows\system32\vcl120.bpl,1,995,776字节
Author: Passion    Time: 2008-11-8 15:26

我手头没update1的vcl120.bpl,只有正式版的,3170.16989,这也是我说不推荐手工改VCL120.bpl的原因:每个不同版本都得去拆解看看。
Author: stanleyxu2005    Time: 2009-1-1 08:02

用VCLFixPack可以解决这个问题。
Author: jyh11111    Time: 2009-3-13 14:19

delphi2009  UPDATE 4修正了此问题!




Welcome to CnPack Forum (http://bbs.cnpack.org/) Powered by Discuz! 5.0.0