CSDN博客

img bitfan

Effective BCB Form Program(1) ——窗体事件驱动链引发程序错误分析

发表于2001/11/5 23:06:00  3032人阅读

分类: 编程技术

Effective BCB Form Program

——窗体事件驱动链引发程序错误分析

 

BCB中采用的类库是VCL,其编程框架是事件驱动的,类似于VB。我在开发过程中发现,如果不对BCB的事件驱动链进行分析,写的程序会带有很多的错误,健壮性很成问题,而且调试很麻烦。

我发现程序中的很多错误都来源于C++的指针操作。在程序中用new的方法创建了一个对象,然后delete这个对象之后,如果此时还有其它指针指向这个对象,访问此对象信息的代码必定会引发异常。这在C++中是常识性的问题。但这个问题在BCB这类事件驱动的开发环境中就复杂化了。由于事件模型其实是对Windows消息循环机制的一个封装,而Windows中一个消息可能会引发一连串的其他消息,所以,事件之间也是相互引发的,形成一个事件驱动的链条。

BCB这类RAD的开发环境中,窗体(Form)是最核心的组件,窗体的事件模型也是程序中最需要分析的。

我在BCB5中设计了几种典型情况,针对BCB提供的事件模型,绘出了BCB中的事件驱动链。由于WM_PAINT消息的反复激发,所以我有意识地屏蔽掉了对这一消息的响应事件OnPaint。我发现大多数错误就发生成窗体的生成与销毁过程中,其主要的原因就是程序员选错了事件,将代码放错了地方。所以,我重点分析了工程中窗体的创建和销毁过程中的事件驱动链。

 

先对BCB的工程文件(BPR)进行分析:

 

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

        try

        {

                 Application->Initialize();

                 Application->CreateForm(__classid(TForm1), &Form1);

                 Application->Run();

        }

        catch (Exception &exception)

        {

                 Application->ShowException(&exception);

        }

        return 0;

}

 

WinMainBCB工程的入口点,Initialize()一句完成程序的初始化工作,CreateForm()一句完成窗体的创建工作(在此引发一系列的事件),Run()一句则进入了消息循环,此时事件主要是用户操作引发的(当然也有定时器等操作系统引发的事件)。

Catch()一句保证应用程序不会引起操作系统的崩溃。但这也是无数的BCBDelphi程序会引发“XXX内存读写错误”信息的根源所在。正是为了提高BCB程序的健壮性,我才进行了这个实验,其中比较枯燥,不想看记录的人可以直接去看结论部分。

实验记录:

一、由BCB自动创建的Form的事件驱动链

实验一. 工程中只有一个主窗体Form1

当窗体中只有一个主窗体(Form1)时,程序运行事件的发生次序如下:

创建

Form1构造函数àOnCreate()  //到此窗体创建完毕,以下进入窗体的显示过程

àOnShow()àOnActivate()àOnCanResize()àOnConstrainedResize()àOnResize()

窗体显示完毕,以下进入消息循环,等待用户输入.

关闭

关闭主窗体Form1:

OnCloseQuery()àOnClose()  //到此退出消息循环

àOnHide()àOnDestory()à~Form1()析构函数

 

显然,一个窗体要先隐藏,再销毁,最后再调用析构函数

另外:OnShow()à……àOnResize()这一事件链在各种情况中始终不变,下面的记录中我就以……代表这些不变的事件链。

实验二:工程中有两个窗体,Form1为主窗体,Form2为普通窗体

当工程中有两个窗体,Form1为主窗体,Form2为普通窗体,事件链如下:

创建

Form1构造函数à OnCreate() //到此窗体Form1创建完毕,开始创建Form2

à Form2构造函数

//以下进入Form1的显示过程

àOnShow()à……àOnResize()

 

除非在代码中指定,缺省情况下Form2只处于加载状态,不会显示,Form2中的OnCreate()等事件代码不会运行。

关闭

关闭时,Form2处于隐藏或显示状态均一样:

Form1OnCloseQuery()àOnClose()  //到此退出工程消息循环,以下销毁Form2

àForm2析构函数àForm1 OnHide()àForm1OnDestory()à~Form1()析构函数

 

值得注意的是,这时,Form2OnDestory()没有被执行,对应地,当它创建时,Form2OnCreate()也没有执行!

实验三:工程中有两个窗体,Form1为主窗体,Form2继承自Form1

BCB中,可以很方便地继承某个窗体,这是BCB的一个非常好用的功能。

创建

Form1构造函数à OnCreate() //到此窗体Form1创建完毕,开始创建Form2

àForm2OnCreate()àForm1的构造函数àForm2的构造函数  //以下进入Form1的显示过程,同单窗体工程一样àOnShow()à……àOnResize()

 

值得注意的是:Form2OnCreate()函数居然先于Form2的构造函数运行!

关闭

1Form2为隐藏状态,

Form1OnCloseQuery()àOnClose()  //到此退出工程消息循环,以下销毁Form2

àForm2析构函数àForm1的析构函数àForm2OnDestory()àForm1 OnHide()àForm1OnDestory()àForm1的析构函数

 

注意:Form1的析构函数被执行了两次!

 

2Form2为显示状态

Form1OnCloseQuery()àOnClose()  //到此退出工程消息循环,以下销毁Form2

àForm2OnHide()àForm2的析构函数à Form1的析构函数à Form2OnDestory()àForm1 OnHide()àForm1OnDestory()àForm1的析构函数

 

注意:Form1的析构函数被执行了两次!

两种情况对比,可以发现只多了一个Form2的隐藏过程.

0 0

相关博文

我的热门文章

img
取 消
img