[转]李战大师-悟透delphi-第一章 delphi的原子世界


======================================================
注:本文源代码点此下载
======================================================

yjmyzz:李战大师的成名,并不是因为08年发表于园子里的那篇"悟透javascript",而是多年前的这篇处女作"悟透delphi",原出处已经找不到了,近日重温delphi研究如何开发原生win32中的activex控件时,无意又找到了这篇文章,想当年这篇文章在delphi编程群体中那是何等轰动,转载于此,以示纪念。(delphi的出现,秒杀了vb/pb,vs的出现又秒杀了delphi,但是windows就其发展来看,不管如何发展,至少在今后相当长的时候间,也不可能彻底放弃win32的原生程序支持,所以存在即合理,delphi有某些领域仍是有用武之地的)

正文开始:

第一章delphi的原子世界

“天苍苍,野茫茫,风吹草低 见牛羊”在使用delphi开发应用软件的过程中,我们就像草原上一群快乐牛羊,无忧无虑地享受着object pascal语言为我们带来的温暖阳光和各种vcl控件提供的丰富水草。抬头望望无边无际蔚蓝的天空,低头品尝大地上茂密的青草,谁会去想天有多高?地有多大?阳光和水草又是从何而来?那是大师关心的事。而大师此时正坐在高高的山顶上,仰望宇宙星云变换,凝视地上小虫的爬行。蓦然回头,对我们这群吃草的牛羊点头微笑。随手扯起一根小草,轻轻地含在嘴里,闭上眼睛细细品尝。不知道这根青草在大师的嘴里是什么味道?只是,他的脸上一直带着满意的微笑。

第一节system

不经意,偶然打开了system.pas的原程序文件,却发现这里竟是一个既熟悉又陌生的世界。在这里有我们熟知的东东,如:tobject、tclass、guid、iunknown、idispatch ……但这些东西也是我们所陌生的。在茫茫编程生涯中,我们不断地与这些东东打交道,都已经熟悉得宛如自己身体的一部分。但真想要去了解他们,也就人象想要了解自身一样的茫然。

在system.pas单元的开头,有这样一段醒目的注释文本:

{ predefined constants, types, procedures, }

{ and functions (such as true, integer, or }

{ writeln) do not have actual declarations.}

{ instead they are built into the compiler }

{ and are treated as if they were declared }

{ at the beginning of the system unit.}

这段话的意思是说:“这一单元包含预定义的常量、类型、过程和函数(诸如:ture、integer或writeln),它们并没有实际的声明,而是编译器内置的,并在编译的开始就被认为是已经声明的定义”。

system单元不同于别的单元。你可以将classes.pas或windows.pas等其他delphi源程序文件加入你的项目文件中进行编译,并在源代码基础上调试这些单元。但你绝对无法将system.pas源程序文件加入到你的项目文件中编译!delphi将报告“重复定义了system单元”的编译错误。

任何delphi的目标程序中,都自动包含system单元中的代码,哪怕你的程序一句代码也没写。看看下面的程序:

program nothing;

begin

end.

这个程序用delphi 6编译之后有8k,用delphi 5编译之后有16k。而使用过c语言的朋友都知道,最简单的c语言程序编译之后是非常短小的,有的不到1k。但delphi不是的。

这个什么也不做的程序怎么会有8k或16k的长度呢?这是因为其含有system单元的代码。虽然这些代码没有c或c++语言的启动代码那样短小精悍,但里面却包含支撑整座delphi大厦的基石,是很牢靠的。

在delphi6中,borland为了兼容其在linux下的旗舰产品kylix,进一步精简了system单元的基础程序,将一部分与windows系统相关的内容移到了别的单元。所以,上面最简单的程序经过delphi6编译生成的目标程序就比delphi5生成的小的多。其实,delphi 6中的system.pas单元有一万八千多行源程序,比delphi 5的多得多。这是因为在delphi6的那些支持kylix的单元中,有些代码同时写了两个版本,一个支持windows,一个支持linux,并在编译宏命令的控制下生成各自操作系统的目标程序。borland完成这些程序改写之后,就有可能将delphi编写的程序移植到kylix上。按照borland提供的某些原则编写的delphi程序可以不用修改直接在kylix上编译,并在linux系统上运行。这对需要进行跨平台开发的程序员来说无疑是个福音。目前,在真编译的可视开发工具中,delphi 6和kylix恐怕是唯一能实现跨平台编译功能的开发工具。

走马观花,浏览一下delphi的源代码是值得的。因为,delphi的源代码中蕴藏着丰富的营养,那都是大师们的杰作。如果,我们开发的应用应用程序是一棵开花的树,那么,请在我们拥有这份花满枝丫的浪漫时,请不要忘了深埋在土壤里的那一藤树根。没有树根提供营养,就没有烂漫的花枝。要知道,世界上任何一棵树的树根总比其树冠更多,更茂盛,尽管人们看不到深埋在地下的树根。

但浏览delphi的源程序也是很费精力的。虽然,大师们写的程序大都风格一流,易于阅读和理解,但代码实在太多。阅读system.pas单元就更不容易,其中的大量程序甚至是用汇编语言编写的,这对有些朋友来说无异于天书。我们无意逐一去解读其中的奥秘,这可能会耗用我们九九八十一个不眠之夜。但我们总能学到一些编程风格,了解其中的一些内容,并能悟得一些道理,而这可能会让我们受益终身。

当然,我无意将delphi的源代码神化为圣典。因为,那也毕竟不是天书,也是人编写的,也能抓到其中的几只臭虫。但我们自己又怎样呢?

第二节tobject

tobject是什么?

tobject在delphi中就是与生俱来的东西,没有什么好问的。

不知道tobject是什么,照样可以编写出很好的delphi程序。我们可以小心苛护自己的delphi程序,“朝朝勤拂拭,莫让惹尘埃”,我们的程序也能照样欢快地奔跑。世界上有很多的东西都是我们不知道的,我们一样也生活得很好。

但世上总有些人就是喜欢去学习和探索那些不知道的东西,最终他们知道的东西总比别人多些,成为了智者。我想,在编程中也是这样,如果经过我们不断地学习和探索,将不知道的东西变成我们知道的东西,我们也会逐渐成为编程中的智者。相信总有一天能进入“本来无一物,何处惹尘埃”的境界。

tobject是system单元中定义的第一个类。由此可见它在delphi中的重要性。tobject的定义是这样的:

tobject = class

constructor create;

procedure free;

class function initinstance(instance: pointer): tobject;

procedure cleanupinstance;

function classtype: tclass;

class function classname: shortstring;

class function classnameis(const name: string): boolean;

class function classparent: tclass;

class function classinfo: pointer;

class function instancesize: longint;

class function inheritsfrom(aclass: tclass): boolean;

class function methodaddress(const name: shortstring): pointer;

class function methodname(address: pointer): shortstring;

function fieldaddress(const name: shortstring): pointer;

function getinterface(const iid: tguid; out obj): boolean;

class function getinterfaceentry(const iid: tguid): pinterfaceentry;

class function getinterfacetable: pinterfacetable;

function safecallexception(exceptobject: tobject;

exceptaddr: pointer): hresult; virtual;

procedure afterconstruction; virtual;

procedure beforedestruction; virtual;

procedure dispatch(var message); virtual;

procedure defaulthandler(var message); virtual;

class function newinstance: tobject; virtual;

procedure freeinstance; virtual;

destructor destroy; virtual;

end;

tobject还真有不少东东。

注意,tobject是class类型。

说到这里,也许有人要问这需要特别注意吗?

在此,我只是想提醒大家不要忘了,在object pascal语言中还有一种以object保留字定义的对象类型。这种数据板块套上过程作为方法的老古董,同样实现了面向对象的各种特征,只不过它并非现代delphi大厦的奠基石。有点象是历史文化遗产,属于传统文化系列。但了解历史可以更深刻地理解现在并展望未来。现在,class 系列的对象类才是delphi的基础,它和对象的接口技术一起,支撑起整个delphi大厦。我们所讲的对象几乎都是class系列的。所以如果没有特别指明,“对象”一词都指class类型的对象。

我们都知道,在delphi中tobject是所有class系列对象的基本类。也就是说,在delphi中,tobject是万物之源。不管你自定义的类是否指明了所继承的父类,一定都是tobject的子孙,一样具有tobject定义的所有特性。

那么,一个对象到底是什么?

对象就是一个带柄的南瓜。南瓜柄就是对象的指针,南瓜就是对象的数据体。确切地说,delphi中的对象是一个指针,这个指针指向该对象在内存中所占据的一块空间。

虽然,对象是一个指针,可是我们引用对象的成员时却不能写成这样的代码:

myobject^.getname;

而只能写成:

myobject.getname;

这是object pascal语言扩充的语法,是由编译器支持的。使用c++ builder的朋友就很清楚对象与指针的关系,因为在c++ builder的vcl对象都是通过指针引用的。

为什么说对象是一个指针呢?我们可以试着用sizeof函数获取对象的大小,例如计算sizeof(myobject)的值。结果是4字节,这就就是一个32位指针的大小,只是南瓜柄的大小。而对象的真正大小应该用myobject.instancesize获得,这才是南瓜应有的份量。广义的说,我们常用的“句柄”概念,英文叫handle,也是一个对象指针,因为它后面也连着一个别的什么瓜。

既然delphi对象是指向一块内存空间的指针,那么,代表对象的这快内存空间又有怎样的数据结构呢?就把南瓜切开来看看啰。

我们将对象指针指向的内存空间称为对象空间。对象空间的头4个字节是指向该对象直属类的虚方法地址表(vmt – vritual method table)。接下来的空间就是存储对象本身成员数据的空间,并按从该对象最原始祖先类的数据成员到该对象具体类的数据成员的总顺序,和每一级类中定义数据成员的排列顺序存储。

每一个类都有对应的一张vmt,类的vmt保存从该类的原始祖先类派生到该类的所有类的虚方法的过程地址。类的虚方法,就是用保留字vritual声明的方法。虚方法是实现对象多态性的基本机制。虽然,用保留字dynamic声明的动态方法也可实现对象的多态性。但这样的方法不保存在vmt中。用保留字dynamic声明的动态方法只是object pascal语言提供的另一种可节约类存储空间的多态实现机制,但却是以牺牲调用速度为代价的。

即使,我们自己并未定义任何类的虚方法,但该类的对象仍然存在指向虚方法地址表的指针,只是地址项的长度为零。可是,在tobject中定义的那些虚方法,如destroy、freeinstance等等,又存储在什么地方呢?原来,他们的方法地址存储在相对vmt指针负方向偏移的空间中。在vmt的负方向偏移有76个字节的数据信息,它们是对象类的基本数据结构。而vmt是存储我们自己为类定义的虚方法地址的地方,它只是类数据结的构扩展部分。vmt前的76个字节的数据结构是delphi内定的,与编译器相关的,并且在将来的delphi版本中有可能被改变。

下面的对象和类的结构草图展示了对象和类之间的一些关系。

tobject中定义的有关类信息或对象运行时刻信息的函数和过程,一般都与类的数据结构相关。

在delphi中我们用tobject、tcomponent等等标识符表示类,它们在delphi的内部实现为各自的vmt数据。而用class of保留字定义的类的类型,实际就是指向相关vmt数据的指针。

对我们的应用程序来说,类的数据是静态的数据。当编译器编译完成我们的应用程序之后,这些数据信息已经确定并已初始化。我们编写的程序语句可访问类数据中的相关信息,获得诸如对象的尺寸、类名或运行时刻的属性资料等等信息,或者调用虚方法以及读取方法的名称与地址等等操作。

当一个对象产生时,系统会为该对象分配一块内存空间,并将该对象与相关的类联系起来。于是,在为对象分配的数据空间中的头4个字节,就成为指向类vmt数据的指针。

我们再来看看对象是怎样诞生和灭亡的。我们都知道,用下面的语句可以构造一个最简单对象:

anobject := tobject.create;

编译器将其编译实现为,用tobject对应的类数据信息为依据,调用tobject的create构造函数。而tobject的create构造函数调用了系统的classcreate过程。系统的classcreate过程又通过调用tobject类的虚方法newinstance。调用tobject的newinstance方法的目的是要建立对象的实例空间。tobjec类的newinstance方法将根据编译器在类信息数据中初始化的对象实例尺寸(instancesize),调用getmem过程为该对象分配内存。然后调用tobject类initinstance方法将分配的空间初始化。initinstance方法首先将对象空间的头4个字节初始化为指向对象类的vmt的指针,然后将其余的空间清零。建立对象实例最后,还调用了一个虚方法afterconstruction。最后,将对象实例数据的地址指针保存到anobject变量中,这样,anobject对象就诞生了。

同样,用下面的语句可以消灭一个对象:

anobject.destroy;

tobject的析构函数destroy被声明为虚方法,这可以让某些有个性的对象选择自己的死亡方法。destory方法首先调用了beforedestruction虚方法,然后调用系统的classdestroy过程。classdestory过程又通过调用对象的freeinstance虚方法。由freeinstance方法调用freemem过程释放对象的内存空间。就这样,一个对象就在系统中消失。

对象的析构过程比对象的构造过程简单,就好像生命的诞生是一个漫长的孕育过程,而死亡却相对的短暂,这似乎是一种必然的规律。

在对象的构造和析构过程中,调用了newinstance和freeinstance两个虚函数,来创建和释放对象实例的内存空间。之所以将这两个函数声明为虚函数,是为了能让用户在编写需要用户自己管理内存的特殊对象类时(如在一些特殊的工业控制程序中),有扩展的空间。

而将afterconstruction和beforedestruction声明为虚函数,也是为了将来派生的类在产生对象之后,有机会让新诞生的对象呼吸第一口新鲜空气,而在对象消亡之前可以允许对象交待最后的遗言,这都是合情合理的事。例如,我们熟悉的tform对象和tdatamodule对象的oncreate事件和ondestroy事件,就是分别在这两个重载的虚函数中触发的。

此外,tobjec还提供了一个free方法。它不是虚方法,它是为了在搞不清对象指针是否为空(nil)的情况下,也能安全释放对象而专门提供的。当然,搞不清对象指针是否是否为空,本身就有程序逻辑不清晰的问题。不过,任何人都不是完美的,都可能犯错,使用free能避免偶然的错误也是件好事。然而,编写正确的程序不能一味依靠这样的解决方法,还是应该以保证程序的逻辑正确性为编程的第一目标。

有兴趣的朋友可以读一读system单元的原代码,其中,大量的代码是用汇编语言书写的。细心的朋友可以发现,tobject的构造函数create和析构函数destory竟然没有写任何代码。其实,在调试状态下通过debug的cpu窗口,可清楚地反映出create和destory的汇编代码。我想,可能是因为缔造delphi的大师门不想将过多复杂的东西提供给用户。他们希望用户在简单的概念上编写应用程序,将复杂的工作隐藏在系统的内部由他们来承担。所以,在编写system.pas单元时特别将这两个函数的代码去掉,让用户认为tobject是万物之源,用户派生的类完全从虚无中开始,这本身并没有错。

第三节tclass

在system.pas单元中,tclass是这样定义的:

tclass = class of tobject;

它的意思是说,tclass是tobject的类。因为tobject本身就是一个类,所以tclass就是所谓的类的类。

从概念上说,tclass是类的类型,即,类之类。但是,我们知道delphi的一个类,代表着一项vmt数据。因此,类之类可以认为是为vmt数据项定义的类型,其实,它就是一个指向vmt数据的指针类型!

在以前传统的c++语言中,是不能定义类的类型的。对象一旦编译就固定下来,类的结构信息已经转化为绝对的机器代码,在内存中将不存在完整的类信息。一些较高级的面向对象语言才可支持对类信息的动态访问和调用,但往往需要一套复杂的内部解释机制和较多的系统资源。而delphi的object pascal语言吸收了一些高级面向对象语言的优秀特征,又保留可将程序直接编译成机器代码的传统优点,比较完美地解决了高级功能与程序效率的问题。

正是由于delphi在应用程序中保留了完整的类信息,才能提供诸如as和is等在运行时刻转换和判别的高级面向对象功能,而类的vmt数据在其中起了关键性的核心作用。有兴趣的朋友可以读一读system单元的asclass和isclass两个汇编过程,他们是as和is操作符的实现代码,这样可以加深对类和vmt数据的理解。

有了类的类型,就可以将类作为变量来使用。可以将类的变量理解为一种特殊的对象,你可以象访问对象那样访问类变量的方法。例如:我们来看看下面的程序片段:

type

tsampleclass = class of tsampleobject;

tsampleobject = class( tobject )

public

constructor create;

destructor destroy; override;

class function getsampleobjectcount:integer;

procedure getobjectindex:integer;

end;

var

asampleclass : tsampleclass;

aclass : tclass;

在这段代码中,我们定义了一个类tsampleobject及其相关的类类型tsampleclass,还包括两个类变量asampleclass和aclass。此外,我们还为tsampleobject类定义了构造函数、析构函数、一个类方法getsampleobjectcount和一个对象方法getobjectindex。

首先,我们来理解一下类变量asampleclass和aclass的含义。

显然,你可以将tsampleobject和tobject当作常量值,并可将它们赋值给aclass变量,就好象将123常量值赋值给整数变量i一样。所以,类类型、类和类变量的关系就是类型、常量和变量的关系,只不过是在类的这个层次上而不是对象层次上的关系。当然,直接将tobject赋值给asampleclass是不合法的,因为asampleclass是tobject派生类tsampleobject的类变量,而tobject并不包含与tsampleclass类型兼容的所有定义。相反,将tsampleobject赋值给aclass变量却是合法的,因为tsampleobject是tobject的派生类,是和tclass类型兼容的。这与对象变量的赋值和类型匹配关系完全相似。

然后,我们再来看看什么是类方法。

所谓类方法,就是指在类的层次上调用的方法,如上面所定义的getsampleobjectcount方法,它是用保留字class声明的方法。类方法是不同于在对象层次上调用的对象方法的,对象方法已经为我们所熟悉,而类方法总是在访问和控制所有类对象的共同特性和集中管理对象这一个层次上使用的。

在tobject的定义中,我们可以发现大量的类方法,如classname、classinfo和newinstance等等。其中,newinstance还被定义为virtual的,即虚的类方法。这意味作你可以在派生的子类中重新编写newinstance的实现方法,以便用特殊的方式构造该类的对象实例。

在类方法中你也可使用self这一标识符,不过其所代表的含义与对象方法中的self是不同的。类方法中的self表示的是自身的类,即指向vmt的指针,而对象方法中的self表示的是对象本身,即指向对象数据空间的指针。虽然,类方法只能在类层次上使用,但你仍可通过一个对象去调用类方法。例如,可以通过语句aobject.classname调用对象tobject的类方法classname,因为对象指针所指向的对象数据空间中的头4个字节又是指向类vmt的指针。相反,你不可能在类层次上调用对象方法,象tobject.free的语句一定是非法的。

值得注意的是,构造函数是类方法,而析构函数是对象方法!

什么?构造函数是类方法,析构函数是对象方法!有没有搞错?

你看看,当你创建对象时分明使用的是类似于下面的语句:

aobject := tobject.create;

分明是调用类tobject的create方法。而删除对象时却用的下面的语句:

aobject.destroy;

难道不是吗?tobject是类,而aobject是对象。

原因很简单,在构造对象之前,对象还不存在,只存在类,创建对象只能用类方法。相反,删除对象一定是删除已经存在的对象,是对象被释放,而不是类被释放。

最后,顺便讨论一下虚构造函数的问题。

在传统的c++语言中,可以实现虚析构函数,但实现虚构造函数却是一个难题。因为,在传统的c++语言中,没有类的类型。全局对象的实例是在编译时就存在于全局数据空间中,函数的局部对象也是编译时就在堆栈空间中映射的实例。即使是动态创建的对象,也是用new操作符按固定的类结构在堆空间中分配的实例,而构造函数只是一个对已产生的对象实例进行初始化的对象方法而已。传统c++语言没有真正的类方法,即使可以定义所谓静态的基于类的方法,其最终也被实现为一种特殊的全局函数。更不用说虚拟的类方法,虚方法只能针对具体的对象实例有效。因此,传统的c++语言认为,在具体的对象实例产生之前,却要根据即将产生的对象构造对象本身,这是不可能的。的确不可能,因为这会在逻辑上产生自相矛盾的悖论!

然而,正是由于在delphi中有动态的类的类型信息,有真正虚拟的类方法,以及构造函数是基于类实现的等等这些关键概念,才可实现虚拟的构造函数。对象是由类产生的,对象就好象成长中的婴儿,而类就是它的母亲,婴儿自己的确不知道自己将来会成为什么样的人,可是母亲们却用各自的教育方法培养出不同的人,道理是相通的。

都知道强大的vcl是delphi得以成功的基础之一,而所有vcl的鼻祖是tcomponent类。在tcomponent类的定义中,构造函数create被定义为虚拟的。这能使不同类型的控件实现各自的构造方法,这就是tclass创造的类之类概念的伟大,也是delphi的伟大。

第四节 运用tobject的方法

我们先来看看tobject的各个方法都是些什么东东。简要列示如下:

constructor create;

tobject类的构造函数,用于建立对象。

procedure free;

安全释放对象数据空间。

class function initinstance(instance: pointer): tobject;

初始化新建对象的数据空间。

procedure cleanupinstance;

在对象被释放前清除对象的数据空间。

function classtype: tclass;

获得对象直属的类。

class function classname: shortstring;

获得对象直属类的名称。

class function classnameis(const name: string): boolean;

判断对象直属类的名称是否是指定的名称。

class function classparent: tclass;

获得对象或类的上一代类,即父类。

class function classinfo: pointer;

获得对象类的运行时类型信息(rtti),一般用于tpersistent类。

class function instancesize: longint;

获得对象实例的大小。

class function inheritsfrom(aclass: tclass): boolean;

判断对象或类是否是从指定的类派生的。

class function methodaddress(const name: shortstring): pointer;

获得对象或类指定方法名称的调用地址。该方法必须是published的。

class function methodname(address: pointer): shortstring;

获得对象或类指定方法地址的方法名称。该方法必须是published的。

function fieldaddress(const name: shortstring): pointer;

获得对象指定属性名称的访问地址指针。

function getinterface(const iid: tguid; out obj): boolean;

获得对象支持指定接口标识的接口。

class function getinterfaceentry(const iid: tguid): pinterfaceentry;

获得对象或类指定接口标识的接口项。

class function getinterfacetable: pinterfacetable;

获得对象或类支持的所有接口项的信息表。

function safecallexception(exceptobject: tobject;exceptaddr: pointer): hresult; virtual;

支持接口对象safecall调用异常处理虚方法,常被接口对象重载。

procedure afterconstruction; virtual;

对象建立后首先被调用的虚方法,供派生类对象重载以初始化新对象。

procedure beforedestruction; virtual;

对象释放前最后被调用的虚方法,供派生类对象重载以清理对象数据。

procedure dispatch(var message); virtual;

对象的消息处理方法,支持windows等消息处理。

procedure defaulthandler(var message); virtual;

缺省的消息处理方法。

class function newinstance: tobject; virtual;

分配对象实例空间的虚方法。

procedure freeinstance; virtual;

释放对象实例空间的虚方法。

destructor destroy; virtual;

对象的析构虚方法,用于消灭对象。

这些方法在delphi的帮助文档中都有描述。有些方法已在前面简单介绍过。由于tobject的方法也比较多,一时也讲不完。就挑一两个说说其用法吧,其他的在后面用到时再细细道来也不迟。

就说说methodaddress和fieldaddress对象方法吧。

在使用delphi开发程序的过程中,我们经常会与vcl的属性和事件打交道。我们添加元件到设计窗口中,设置元件的相关属性,为元件的各种事件编制处理事件的方法。然后,轻轻松松地编译,程序就诞生了,一切都是可视化的。

我们知道,在设计时delphi将元件的数据成员(包括字段、属性和事件)等信息存储在*.dfm文件中,并将其作为资源数据编译到最终的执行程序中。delphi的编译过程同时也将源程序中类的结构信息和代码也编译到执行程序中,这些信息在运行时可以由程序访问的。

delphi的程序在运行时创建的form或datamodule等对象时,首先建立该对象。接着,从相应的资源数据中读取设计时保留的数据成员信息,并使用fieldaddress方法获取数据成员的访问地址。然后,用设计时定义的值初始化该数据成员。如果是事件,则再调用methodaddress获取事件处理程序的调用地址,并初始化该事件。这样就完成了设计时的数据代码关系到运行时的数据代码关系的映射,有点儿象动态连接过程。

原来,元件的某些的数据成员和方法是可以用名称去访问的,就是使用fieldaddress和methodaddress方法。其实,这种功能是在最基础的tobject中就支持的。当然,只有定义为published访问级别的数据成员和方法才可以使用名称去访问,而定义为private、protected和public访问级别的除外。

注意,只有类型是类或接口的数据成员才可定义为published的访问级别,方法都是可以定义为published的。对于从tpersistent继承的那些对象类,如果没有特别声明数据成员和方法的访问级别的,则缺省是published的。例如,tform类是tpersistent派生下来的,一个典型的form类的定义中,由delphi的ide自动维护和生成的那些数据成员和方法,缺省都是published的。因为,tpersistent类使用了特殊的{$m+}编译选项。

知道这层内幕之后,我们也可以自己使用这些方法来实现一些有意义的功能。

第五节 对象的消息处理机制

tobject的定义中,有两个方法值得我们注意,就是:

procedure dispatch(var message); virtual;

procedure defaulthandler(var message); virtual;

这两个方法是delphi的vcl强大的消息处理机制的基础,windows的各种消息最终都是通过这两个个方法处理掉的。

在讲述这一问题之前,有必要先说明一下什么是消息。

从广义上将,消息就是信息的传递,一个对象将自己知道的事情通知其他对象。每个对象可以根据得到的消息做出相应的反应。消息在现实世界中普遍存在,故事、新闻、命令、报告等等,当然也包括流言蜚语。在程序中表现为数据访问、过程调用、方法调用、事件触发和通讯协议等等。

而我们今天讨论的消息是狭义的消息,这种消息就是对象间的一种通讯协议。这种消息沟通机制的特点是,相关对象之间不会象变量访问和方法调用那样是固定的耦合关系,而是非常自由和松散的关系。采用这种消息机制,对象之间是的通讯方式是统一的,而消息的内容是多种多样的,一组通讯的对象之间可以约定自己的消息格式和含义。虽然,一个对象可以和将消息发送给任何对象,也可以接收任何对象发来的消息,但对象一般只处理和发送自己关心的消息。

在windows中的窗口、任务和进程等对象间的信息沟通,都普遍采用这种消息机制。实际上,消息机制是windows的基础之一。而delphi对象的消息处理机制一开始就是为了支持windows消息而设计的,特别是用于窗口类的控件(即从twincontrol继承的控件)。但这种消息机制已经能够让所有的tobject对象采用这种方式通讯。如,我们熟悉的tlabel虽然不是一个窗口控件,但仍然能收到windows发来的消息。当然,windows是不会给一个tlabel发送消息的,那是delphi帮的忙。而tobject的dispatch方法在这一个过程中起了关键性作用。

我们知道,delphi将windows的消息描述为是一个联合结构,也叫变体结构。消息结构的第一个成员是一个四字节的整数,是区分消息类别的标识。其余的数据成员是根据消息类别的不同而有不同的定义。正是因为其余的成员是可以自由定义的,才使得消息处理机制有良好的扩展性。要知道,windows有几千种不同类型的消息,delphi也自己扩展了若干种消息。随着软件版本的发展,消息的种类还会不断增加。

关心某种消息的对象类会为指定的消息定义一个消息处理方法,消息处理方法是用保留字message来声明的。例如:

tmouseobject = class(tobject)

public

procedure wmmousemove(var msg:tmessage); message wm_mousemove;

procedure wmlbuttondown(var msg:tmessage); message wm_lbuttondown;

end;

delphi的编译器将根据message保留字识别消息处理方法,并生成一个消息标识到该对象方法的映射表,连接到最终的执行程序中。事实上在delphi的内部,消息处理方法是用dynamic方法的机制实现的。前面我们说过,dynamic类型的方法是delphi的另一种虚方法,是可以重载以实现对象类的多态性。事实上,dynamic方法就是根据方法的序号找到调用地址的,这与根据消息id找到各自的消息处理地址是没有什么本质区别的。因此,消息处理方法是可以由子类重载的,这可以让继承的对象实现自己的消息处理。不过,这种重载的语义与dynamic的重载有些不同。消息处理方法是按消息标识来重载的,即按message保留字后面的值。虽然,子类的消息处理方法的名称可以不同,只要消息标识相同即可实现重载。例如:

tnewmouseobject = class(tmouseobject)

public

procedure mousemove(var msg:tmessage); message wm_mousemove;

procedure mousedown(var msg:tmessage); message wm_lbuttondown;

end;

其中,mousemove方法重载了父类的wmmousemove方法,而mousedown重载了wmlbuttondown方法。当然,你也可以完全按dynamic的语义来定义重载:

tnewmouseobject = class(tmouseobject)

public

procedure wmmousemove(var msg:tmessage); override;

procedure wmlbuttondown(var msg:tmessage); override;

end;

虽然,这没有任何错误,但我们很少这样写。这里只是要向大家说明message与dynamic的本质相同之处,以加深印象。

根据消息id找到处理该消息的方法地址,就是所谓的“消息分发”,或者叫“消息派遣”,英文叫“dispatch”。所以,tobject的dispatch方法正是这个意思!只要你将消息传递给tobject的dispatch方法,它将会正确地找到该消息的处理方法并交给其处理。如果,dispatch方法找不到处理该消息的任何方法,就会调用defaulthandler虚方法。虽然,tobject的defaulthandler没有做任何事,但子类可以重载它以便自己处理漏网的消息。

dispatch方法有一个唯一的参数message,它是var的变量参数。这意味着可以通过message参数返回一些有用的信息给调用者,实现信息的双向沟通。每一个消息处理方法都有一个唯一的参数,虽然参数类型是不一样的,但必须是var的变量参数。

值得注意的是,dispatch的message参数是没有类型的!

那么,是不是任何类型的变量都可以传递给对象的dispatch方法呢?

答案是肯定的!

你可以将integer、double、boolean、string、variant、tobject、tclass……传递给一个对象的dispatch方法,编译都不会出错。只不过delphi可能找不到这些东东对应的消息处理方法,即使碰巧找到,可能也是牛头不对马嘴,甚至产生运行错误。因为,dispatch总是将message参数的头4个字节作为消息id到dynamic方法表中寻找调用地址的。

为什么delphi要这样定义dispatch方法呢?

因为,消息类型是多种多样的,消息的大小和内容也是各不相同,所以只能将dispatch方法的message参数定义为无类型的。当然,delphi要求message参数的头4个字节必须是消息的标识,但编译器并不检查这一要求。因为,这可能会扩充object pascal的语法定义,有些得不偿失,也许将来会解决这个问题。

通常,消息被定义为一个结构。这个结构的头4个字节被定义为消息标识,其余部分可以自由定义,大小随意。windows的消息结构大小是固定的,但delphi可以允许定义任意大小的消息结构。虽然非windows要求的固定大小消息结构可能无法用于windows系统的消息传递,但对于我们在程序模块间定义自己的消息应用来说,却是非常方便的。

第六节 天苍苍,野茫茫

说了半天,我们已经了解到delphi原子世界的一个大概,也对delphi的最基础的一些东西有了一定的轮廓。这对于今后的学习和开发来说是非常有好处的,因为,我们毕竟知道了一些东西在内部是怎样实现的。

当然,还有许多东西我们还没有讨论,如类结构中的那些数据又指向什么地方?运行时刻信息(rtti)又是什么结构?要把这些东东都讨论完,我们还需要进行更多的探索,恐怕最后的结果可以写一本厚厚的书。在今后的学习中,我们会再涉及到其中的内容。

真希望有一天我们能够彻底了解delphi原子世界的所有奥秘。但这似乎是不可能的,因为delphi还在不断发展,新的技术会不断的引入。因此,我们不追求最终的结果,探索的过程往往比最终的结果更幸福。

只要不断的努力,相信有一天,我们能上升到另一更高的思想境界。那时,我们将更加充实,世界在我们眼里将变得更美丽。虽然,天还是那样的蓝,大地还是那样的绿,但我们的心情又会怎样呢?

“天苍苍,野茫茫,风吹草低 见牛羊”

……


======================================================
在最后,我邀请大家参加新浪APP,就是新浪免费送大家的一个空间,支持PHP+MySql,免费二级域名,免费域名绑定 这个是我邀请的地址,您通过这个链接注册即为我的好友,并获赠云豆500个,价值5元哦!短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了,每天挂广告赚50+元哦,呵呵,饭钱不愁了,\(^o^)/
Delphi编程大师2003 还有各类控件400多个.也有Delphi教学文章及书籍25个.和各类Delphi编程软件原代码 不但能使你简单操控Delphi进行编程.而且能对初学者进行深入浅出教学. 同时Delphi原代码能帮助各位Delphi爱好者在编程过程中得到不同启发与参考. 本软件含有: BorlandDelphi7.06中文版 BorlandDelphi6中文版 BorlandDelphi5中文版 控件控件大全: DBISAM 3.07 SkinForm 界面控件 FlatStyle 文件备份 BackFile XP菜单 XPMenu DosMove RainXP XP Bar Menu 窗口停泊组件 RxLib2.75 nBdeDBF AVL平衡树控件包 常用数据结构控件包(+源码+测试程序) SourceEdit DevExpress For Delphi6&7 Inforpower 4000.E FlatStyle 平面界面控件 ehlib25 Devexpress DBTree 1.3 1 FS 序列号大全 FrmConv 1.0 PrintManager 1.0 超链接拖放 Delphi Project Launcher 1.3 Gifform For Delphi 1.1 1stClass for Delphi 6 3000.01 RegTool控件 1.0 Delphi 6.0 汉化资源包 繁简换原码 WjTable Miniprint Miniprint_tryversion Spcomm Menubar mssql bitdbgrid exp aexcel aliased doci ln hgdbfilter kbmmemtab VclZip 2.23版本 一个极酷TreeView控件,多种视觉效果.推荐 对于字符串进行DES加密控件 在Delphi中制作扑克牌游戏控件 eXperience dxPack12(一组dotNet控件) 界面控件ThemeEngine 3.2 界面控件Skinengine3.2.0 内存表控件 kbmMemTable TGifImage For D7 经本人修改过XpMenu,真正xp效果 可支持窗体停靠控件 Modem拨号构件 一个用于Ini文件控制控件 DBPanel 一个支持多种图形格式控件 Modem拨号控制控件 一个可以实现颜色渐变效果label控件 TEasySize Skinengine 3.1.2 ADOTable TTransitionEffect 一个可以以动画方式显示Hint控件 一个能够旋显示其内图像Image控件 Gifimage For Delphi6 Richview1.4.2 SakEmail控件3.4.3版本 利用Windows Socket API抓取网络上网页控件 系统信息控件 一个不错RAS构件 最新版本gifimage glad控件包for d5 拥有七种不同外观改良版TCheckBox构件 平滑特效字体控件包 V2.2 用Xcl代替DelphiVcl控件 能够嵌入TButton或TComboBoxTStringGrid控件 能够以回形式带出欲显示Form控件 具有渐层色彩为背景之改良版TLabel构件 模拟大型电子广告牌控件 VDF-Tools系列控件 能够得知True Type字体详细信息非可视构件 直接存取硬件设备IO口地址非可视构件BAIOPORT QuickReport实现自动分行显示补丁 能够拦截系统内键盘输入信息Hook构件 能够精简HTML文件控件 可以处理XMLTQuickRTTI控件 制作 Microsoft ISAPI Extention 应用程序构件 控制ISDN拨号控件 AGHOTKEYMGR 针对 UDP 通讯协议 Socket 构件 能够更改 TForm.Cpation 显示字体非可视构件 改良版 TTimer 构件 利用 MODEM 提供拨号功能非可视构件 加强版 TTimer 构件 TCommStatus串行状态控件 一个具备 FTP 功能构件 目前为止效果最好mp3播放控件组 非常COOL能够做出WIN2K般效果动感界面控件 很coolgrid控件 换肤功能控件 自动缩放数据表格 V1.0 平滑字体控件包 V1.1 应用程序病毒免疫控件 V1.21 以可视鼠标拖放方式产生 SQL 语句可视构件 UCCOMP AExcel组件 模拟音响设备中纵向彩色LED指示表控件 类似音响设备中立体旋钮构件 TRANSPARENT PRNTRAID TMnet 能够解析编辑MP3文件中Tag非可视

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值