| 2 Delphi
6 新特性
本章主要讲解 Delphi 6 的新增特性，及其与以前版本的变化。
2.1 IDE 新特性
2.1.1 Object TreeView（对象关系树）
第一次运行 Delphi 6，您就会发现在 Delphi 6 与 Delphi 5 有了一个最明显的变化。在 IDE 中多出了一个"Object
TreeView"窗口，这个"Object TreeView"您在 Delphi 5 的数据模块（Data
Module）中可能已经见到过。现在，Delphi 6 的"Object TreeView"已经可以浏览Form、Data
Module 及 Frame 中所有组件（包括可视组件和不可视组件）的列表及其逻辑关系（见图2-1）。
图2-1
"Object TreeView"中的内容将与"Object Inspector"和"窗体设计器"同步，如果您在这三个工具中任何一个改变了焦点对象，其它两个工具也会有相应变化。
2.1.2 Object Inspector（对象属性编辑器）
在 Delphi6 的 Object Inspector 中，您可以发现，有一些属性项变成了深红色。这表示此项属性的类型是一个组件，当这项属性被连接到一些组件上时。这项属性将可展开，出现连接组件的属性（见图2-2）。
图2-2
另外，在 Object Inspector 窗口的右键菜单中增加了 Properties（属性）项，可以对 Object Inspector
进行显示选项设定。
2.1.3 代码编辑器的"图解�"（Diagram page）（仅专业版和企业版有效）
在 Delphi6 的代码编辑器中出现了"图解页"，请看代码编辑器下方（见图2-3）。
图2-3
单击 Diagram，进入图解页（见图2-4）。
图2-4
图解页由 Delphi 5 数据模块中的图解页演化而来。图解页在代码编辑器中出现，意味着您可以对每个单元编辑和保存图解信息，而不是只能给数据模块做图解。
您可以将对象实例从"Object TreeView"中直接托拽至"代码编辑器"的"图解页"中。
2.1.4 数据模块（Data module）
数据模块设计窗口在 Delphi 6 中又回到了 Delphi 4 时样子，在 Delphi 5 中增加�"对象关系树"和"图解页"在
Delphi 6 中都已演化为通用模块，前面已有所介绍。
2.1.5 组件池（Component Palette）
组件池中可供选择的组件将根据当前设计的窗体类型而变化：
例如，在设计 Form、Data Module 和 CLXApplication 的 Form 时组件池中的内容是不同的：在设计
Data Module 时，组件池中只列出不可见组件；在设计 CLXApplication 的 Form 时，组件池中只列出 CLX
组件（与 VCL 相比，CLX 是跨平台的，而 VCL 则只可用于 Windows 平台）。
2.2 跨平台开发（Cross-platform development）（专业版、企业版）
2.2.1 CLX
Delphi 6 通过集成跨平台组件库 CLX（Borland Component Library for Cross-platform）技术实现了跨平台开发。CLX
由 VCL 演化而来，与 VCL 不同的是，VCL 只能在 Windows 平台下使用，而 CLX 可以使用于 Windows
和 Linux 平台（在 Linux 平台下需要 Kylix 编译）。未来，CLX 技术可能会在更多的系统平台下应用。
图2-5
CLX 组件目前包括 BaseCLX、VisualCLX、DataCLX、NetCLX
2.2.2 CLXApplication
现在，我们可以开发一套 CLX 应用程序，然后分别用Delphi 6和Kylix编译，就可以得到应用程序在 Windows 和
Linux 上运行的两个版本。
选择 Delphi 6 菜单"File | New | CLXApplication"，您可以创建一个 CLXApplication。这时，在组件池中将出现
CLX 组件供选择，应用 CLX 组件的 CLXApplication 将可以不作修改的在 Linux 下的 Kylix 中编译。在编写
CLXApplication 程序时要注意，不要使用任何 Windows 专用函数，这些函数在 Linux 中将不能使用。
2.3 新一代数据应用开发框架
2.3.1 WebServices、SOAP 支持
Delphi 6 是目前唯一支持所有正在流行的工业标准：XML、SOAP、WSDL 及 XSL 的 RAD 环境。也就是说，Delphi
6 支持基于供方平台（Vendor Platforms）的 WebServices，如 Microsoft.Net、BizTalk、Sun
One，同时提供企业和 Web 开发者需要的伸缩性和可靠性。
Delphi 6 通过一套全新的框架对 WebServices 进行了整体实现，将帮助用户创建支持 WebServices 规范的服务器端和客户端应用软件。这个框架中包括BizSnap、DataSnap
和 WebSnap。
Delphi 6 实现 WebServices 的原理相当于 Delphi 5 的 InternetExpress 加上对 WSDL
编码解码的支持，并处理接口的映射等。
2.3.2 BizSnap：电子商务开发平台（企业版）
BizSnap--通过便捷的操作，可以轻松的创建及使用基于 XML/SOAP 的 WebServices，简化了 B2B、B2C
等电子商务集成。
2.3.3 WebSnap：Web 应用开发平台
WebSnap--基于组件的应用开发框架，支持主流的 Web 用户服务器，包括 Apache、Netscape、IIS。
Delphi 6 中的 WebSnap 由 Delphi 5 中的 WebBroker 演化而来，都是 ISAPI 或 CGI
之类的应用。WebSnap 有许多主要特点：
- 新的向导方式
- 服务器端脚本引擎的支持（JavaScript、VBScript）
- 新的 WebSnap 应用组件（很多）
- 与界面设计工具无逢连接（Dreamweaver、Frontpage 等）
2.3.3.1 WebSnap 应用程序的结构
WebSnap 应用程序可能有四类模块：TWebAppPageModule、TWebAppDataModule、TWebPageModule、TWebDataModule。其中其中
TWebAppPageModule 与 TWebAppDataModule 在一个应用程序中只能包含一个，是在 WebSnap
应用程序创建时生成的，做为 WebSnap 应用程序的主程序；TWebAppPageModule 与 TWebPageModule
用于生成页面内容；TWebAppDataModule、TWebDataModule，是应用程序共享使用的构件的容器。
WebSnap 应用程序通过 WebAppDataModule 或 WebAppPageModule 会跟据请求信息，自动从应用程序中的
WebPageModule 中获取页面内容。其页面内容生成过程和请求响应过程如下：
图2-6
2.3.3.2 Web App Debugger
您的 Web 应用可能以 ISAPI、CGI、WinCGI、Apache Share Module 各种形式出现。为了方便的调试您的
Web 应用，Delphi 6 提供了 WebAppDebugger 型方式，您可以在创建一个 WebAppDebugger 型应用程序，并为您要调式的这个应用起一个
CoClass 名，然后加入要正式运行的应用程序中的所有单元，编译执行……，这时这个调试程序已经注册到了可调试的 Web 应用程序列表中。
选择 Delphi 6 菜单"Tools | Web App Debugger"将打开 Web 应用程序调试器窗口，单击
Default URL 后面的链接。弹出的这个页面即为您的开发系统中所有的已注册的 WebAppDebugger 型 Web应用程序。选择您刚刚建好并执行的
WebAppDebugger 程序 CoClass名并单击"Go"，即进入程序的执行中。
2.3.4 DataSnap：数据访问服务中间件
DataSnap--允许客户创建高性能的、可以进行 Web 服务的中间件，这个中间件可以使任何客户端或服务器端通过 WebServices
和 XML、DCOM 或 CORBA等很容易地连接到任何主流数据库，如 Oracle、MS-SQL Server、Informix、IBM
DB2、SyBase、InterBase。
Delphi 6 的 DataSnap 由旧版本 Delphi 中的 Midas 演化而来。
DataSnap 的架构如图所示：
图2-7
使用 DataSnap 可以使 WebServices 使用任何关系型数据库
图2-8
2.4 VCL 新增内容
新增 TLabeledEdit、TValueListEditor、TCombBoxEx、TColorBox 组件。
很多可视控件加入了一系列边框风格属性：BevelEdges、BevelInner、BevenOuter、BevelKind、BevelWidth。例如，比较常用的
TTreeView、TListView。
CheckLst.pas
TCheckListBox，加入 AutoComplete、HeaderColor 及 HeaderBackgroundColor
属性。
Classes.pas
TList，加入 Assign 方法，不仅可以进行单纯复制，而且可以进行简单的集合运算。
TCollection，加入 Added 和 Deleting 两个 protected 方法，用于扩展处理正在添加和正在删除的项，缺省情况下，这两个方法都没有被实现，用户需要在自己的派生类中覆盖这两个方法。
TStringList，加入 CaseSensitive 属性，使您在使用 TStringList 进行诸如排序、比较等操作时可以区分大小写。
TDataModule，从 Forms.pas 单元移到了这里，从而使其不再依靠可视组件，使用户可以编写体积更小的没有用户界面的服务程序。
TThread，加入 FatalException 属性，当线程函数发生异常时，应用程序会自动终止线程运行，并把异常对象实例记录在
FatalException 中，用户可以在线程的 OnTerminate 事件中测定并处理这个异常（FatalException
为空表示正常结束）。
TStream，重载 Seek 函数使其可以按照 Int64 值定位。
TInterfacedPersistent，为实现接口中的 Persistent 对象的新的基类，
ComCtrls.pas
TTreeView，加入 CreateTreeNodes 方法；加入 AddNode 方法使用户可以加入自己建立的结点，结点可由
TTreeNode 的派生类建立；加入了 OnAddition 事件，当添加结点时响应；排序功能被扩充和简化：您可以递归排序子树或顺序排序顶级结点，TCustomTreeView
和 TTreeNode；加入关于 MultiSelect 的四个属性和八个方法。
TListView，加入 CreateListItems 函数。
TStatusBar，即使当 StatusBar 不直接以窗体为父对象时 SizeGrip 也会出现（SizeGrip：带有状态栏的可变大小的
Windows 窗口右下角往往会出现的三角斜纹图案。），只要这个StatusBar 的右下角与窗体的右下角并在一起即可。
TDateTimePicker，加入 Format 属性，可以用过标准的日期/时间格式串控制日期/时间值的显示规则。
THeaderControl，加入一些支持栏目拖拽的属性和事件；加入了 HotTrack 属性。
TToolBar，加入了 Menu 属性，可以用 Menu 中的项来填充工具栏。
Contnrs.pas
TObjectList、TComponentList、TClassList，加入 Last 和 First 方法。
TStack、TQueue、TObjectStack、TObjectQueue，Push方法变为了一个有返回值的方法，当 Push
一个指针后，将再把这个指针返回，可以认为是 Push 后再进行 Peek 操作。这在需要在 Push 操作时创建对象十分有用，如：
myobj := aObjectStack.Push( TMyObject.Create );
加入了 TBucketList 与 TObjectBucketList，简单的哈希表类。
Controls.pas
TDragObjectEx、TDragControlObjectEx 与 TDragDockObjectEx，这三个新的拖拽对像以自动自由的在拖拽操作。
TControl，加入 ClientToParent 与 ParentToClient 两个新方法，可以使您在父对象和子对象间映射像素位置。它们的使用方法近似于
ClientToScreen 与 ScreenToClient。
TWinControl，重载 PaintTo 方法，用 Canvas 代替了 HDC。
TModalResult 从 Forms.pas 单元移至此。另外，还增了下面这些函数：
function IsPositiveResult(const AModalResult: TModalResult): Boolean;
function IsNegativeResult(const AModalResult: TModalResult): Boolean;
function IsAbortResult(const AModalResult: TModalResult): Boolean;
function IsAnAllResult(const AModalResult: TModalResult): Boolean;
function StripAllFromResult(const AModalResult: TModalResult): TModalResult;
DBCtrls.pas
TDBLookupListBox 与 TDBLookupComboBox，加入 NullValueKey 属性，使用户可以赋予空值（NULL）。
TDBComboBox 加入 AutoComplete 和 AutoDropDown 属性。
TDBListBox 加入 AutoComplete 属性。
Dialogs.pas
TOpenDialog，加入 OptionsEx 属性。
ExtCtrls.pas
TImage，加入 Proportional 属性，可以按长宽成固定比例的缩放图像。
Forms.pas
TApplication（与 TApplicationEvents），加入 OnSettingChange 事件，使您可以响应系统设置的改变。
TForm，加入对分层窗口（Layered form）支持的四个属性：AlphaBlend、AlphaBlendValue、TransparentColor
及 TransparentColorValue，可以轻松实现窗口的半透明和局部透明。
TScreen，加入关于桌面工作区的属性集：WorkAreaRect、WorkAreaTop、WorkAreaLeft、WorkAreaHeight
及 WorkAreaWidth；加入通过点、矩型框、窗口来确定 Monitor 的一系列方法。
TMonitor，为多显示器编程扩展 Primary 属性，判断是否为主显示器；加入 WorkareaRect 和 BoundRect
属性。
TModalResult 移到了 Controls.pas 中。
Graphics.pas
加入用于快速存取 Font、Pen、Brush 的 TFontRecall、TPenRecall、TBrushRecall。它们都派生于
TRecall，而 TRecall 又由 TPersistent 派生。
系统颜色改变了排列顺序，使用户可以更方便的找到。
在标准的十六色以外加入下面四个：clMoneyGreen、clSkyBlue、clCream、clMedGray。
ImgList.pas
重载已增加的 Draw、DrawOverlay 与 GetIcon 方法，以覆盖 ImageList 的属性设置。
IniFiles.pas
TIniFile，支持读写二进制数据流。
TMemIniFile，可以区分大小写。
THashedStringList，一个新的 TStrings 子孙类，它使用内部的哈希表管理字符串列表改善了 TStringList
的性能。
Masks.pas
EditMask 和 Text 使用自定义类型，它们的属性编译器更有用处。
Menus.pas
TMenuItem，加入了 AutoCheck 属性，当用户选择它们时，它们将自动切换其选中状态。
Registry.pas
TRegistry，支持读写二进制数据流。
StdCtrls.pas
TCustomComboBox，加入了 OnCloseUp 与 OnSelect 事件：OnCloseUp 事件在 ComboBox
的下拉列表关闭时响应（与 OnDropDown 相反的动作）；OnSelect 事件在改变 ComboBox 下拉列表的选项时响应。
TListBox 新增支持两个样式：lbVirtual 与 lbVirtualOwnerdraw，这些样式用于不存贮列表内容的虚拟列表框，您可以自行指定
Count 属性来指定它的列表项个数并通过新增的 OnData、OnDataFind、OnDataObject 事件给其提供列表项内容。
2.5 RTL 新增内容
Variants.pas
用于对变体类型处理的新单元，这个单元的许多代码来源于以前的 system 单元。因此，从 Delphi 6 以后，如果您的代码中用到了变体类型，您必须在您的引用列表中加入
Variants。
为了支持跨平台开发，Variants 单元中不再直接调用 Windows API，取而代之的是另一个新单元 VarUtils.pas，这个单元专用于为
Variants.pas 解决与平台无关的方案。
ConvUtils.pas
度量衡转换函数集
StdConvs.pas
应用 ConvUtils.pas，并设置若干种度量衡单位。
DateUtils.pas
日期与时间处理函数集。
StrUtils.pas
字符串处理函数集。
FMTBCD.pas
BCD 码处理函数集。
Math.pas
加入了许多常量声明与函数，并给 extended 型参数加以 const 引用以加快函数的处理速度。
System.pas
System 单元加入了许多新的例程，主要用于支持跨平台开发和在不同字符编码系统间转换。例程中用于支持变体类型的部分移到了 Variants
单元中。
加入了 IInterface 做为 Object Pascal 接口的基类，而以前的 COM 接口基类 IUnknown 则只是
IInterface 的一个派生接口。
SysUtils.pas
SysUtils 单元现在全面支持跨平台，一些过去需要调用 Windows API 实现的服务，现在全部改由 SysUtils
内部例程实现。
2.6 数据库新特性（专业版、企业版）
2.6.1 dbExpress：高性能数据库访问组件
在 Delphi 4 以前，Delphi 内部支持的数据库访问途径只有 BDE。
在 Delphi 5 中，加入了对 ADO 的支持，与数据库关联的可视组件 Data Controls 成为通用组件并逐渐与 BDE
分离。加入了以 Express 方式对 Interbase 数据库的连接与访问接口。
在 Delphi 6 中，数据库访问接口进一步演化成为 dbExpress。dbExpress 直接使用数据库厂商驱动程序，使数据处理速度性能大幅提高。
图2-9
2.6.2 数据集（DataSet）支持的新字段类型
TFMTBCDField，它表示一个真正的 BCD 码字段。在支持 TFMTBCDField 的同时，全局函数 CurrToBCD
和 BCDToCurr 从 db 单元移至 FMTBCD 单元中。
TSQLTimeStampField，用于对 dbExpress 驱动中日期/时间表达式的支持。
2.7 编译器新特性
2.7.1 变体类型（Variants）
在 Delphi 6 中，所有与变体类型有关的声明从系统内定单元（System）移到了新的单元 Variants 中（虽然如此，但您仍旧可以在不包含
Variants 单元的情况下使用变体类型）。
从 Delphi 6 开始，变体类型支持 Int64，可以自定义支持变体的数据类型。
2.7.2 枚举类型（Enumerated）
在 Delphi 6 中，枚举类型可以指定一个特定的值。
例如:
type
TInfo = (iZero, iOne, iTwo, iFour = 4);
2.7.3 Consts 单元的变化
在 Delphi6 中，传统的 Consts 单元被分为 Consts 和 RTLConsts 两个。
2.7.4 编译器指令（Compiler Directive）
2.7.4.1 编译平台预定义值
如果您希望您的代码仅在 Windows 平台下编译，你可以使用 MSWINDOWS 检测 Windows 平台。例如:
{$IFDEF MSWINDOWS}
// 编写面向 Windows 平台代码，在 Linux 平台下将不会被编译
{$ENDIF}
2.7.4.2 $IF 预编译指令
Delphi 6 的 $IF 预编译指令引进了条件的新特性，举一个例子：
{$DEFINE CLX}
const
LibVersion = 2.1;
{$IF Defined(CLX) and (LibVersion > 2.0) }
// 这段代码被编译
{$ELSE}
// 这段代码不被编译
{$IFEND}
{$IF Defined(WIN32) and (SomeConst > 12.0) }
//...
{$ENDIF}
在 Pascal 的 const 段中定义的常量标识符可以在 $IF 指令中进行条件判断，旧版本 Delphi 中的预编译分支指令
{$IFDEF}，可以在 $IF 中使用 Define() 预编译函数代替，Pascal 常量标识符可以用 Declared 预编译函数判断是否已被定义。
例如：
{$IF Defined(WIN32) and Declared(MyConst)}
//...
{$ENDIF}
2.7.4.3 $ALIGN 预编译指令
Delphi 6 的 $ALIGN 有了新的选项：{$A1}、{$A2}、{$A4}、{$A8}。
用于设定编译器编译代码时的对齐字节数。
2.7.4.4 PE 标识
Microsoft 的每个 .exe 文件都有一个 PE (portable executable) 文件头，Microsoft
的操作系统通过 PE 文件头中的标志位来判断一个应用程序与系统的兼容性。的系统服务兼容性或请求一个高级系统服务。Delphi 6
编译器支持两个新的预编译指令可以自行设定 PE 文件头标志来协调最新的 NT 系统：
{$SetPEFlags <整型表达式>}
{$SetPEOptFlags <整型表达式>}
这些预编译符用于高级开发者，需要参考 PE（Portable Executable）文件头说明。
2.7.5 嵌入式汇编语言（built-in assembler）
Delphi 6 引入了一套全新的嵌入式汇编语言：
新的标识符 VMTOFFSET 和 DMTINDEX。
新的处理器特性支持：MMX；SIMD；Enhanced MM；Pentium Pro、Pentium III 及 Pentium
4 CPU 的Intel SSE；AMD K7 CPU 的 AMD Enhanced 3D。
支持 DQ（Define Quadword）伪操作符用于四字节字长定义（以往只有 DB 与 DW）。
2.7.6 Linux 文本文件类型
为了更好对跨平台的支持，编译器可以处理 Linux 的文本文件。这种文本文件每一行的末尾仅有一个"换行符<ASCII
10>"做为结束符（Windows 传统的文本文件的行结束符是"回车符<ASCII 13>"+"换行符<ASCII
10>"）
2.7.7 重载（Overload）
由 Delphi 编译器处理的，依照函数参数列表决定使用哪一个 overload 重载函数的编译技术在 Delphi 6 中予以更新。Delphi
6 编译器可以在多个 overload 重载的函数中区分在参数列表的同一个位置的 AnsiString 与 PChar，WideString
与 WideChar 。变体类型现在也可以用于重载函数。
在调用重载函数时，nil 将被认为是 interface 型参数的有效值。
2.8 其它新增内容
2.8.1 Indy Internet 组件库（专业版、企业版）
著名的 Indy Internet 组件包内嵌于 Delphi 6 中，其本取代了 FastNet 的作用，虽然 Delphi
6 中仍旧保留 FastNet，但 Indy 的源代码开放使您可以更加了解 Winsock 和 Delphi 网络编程基础。
2.8.2 帮助系统扩展性
Delphi 6 中，您可以将应用程序发送给标准帮助阅读器（如 Windows Help Viewer）的帮助请求截获而转发给自己编写的帮助应用程序。新的特性包括：
在新的 HelpIntfs.pas 单元中，声明了若干用于应用程序与帮助阅读器之间通讯的接口，包括：IExtendedViewer、ISpecialHelpWinViewer、IHelpManager、IHelpSystem、IhelpSelector
及 ICustomHelpViewer。
VCL 提供实现了一个 ICustomHelpViewer 接口，用于与 WinHelp 交换信息。
2.8.3 分发方式
Delphi 6 向用户提供基于 Windows Installer (MSI) 技术的 InstallShield Express
3.0 作为分发工具。
2.9 升级 Delphi 5 的组件库到 Delphi 6
由于 Delphi 6 较以面版本的 Delphi 改动比较大，所以使组件库的升级会比较烦琐。下面列举一些升级过程中的要点，希望可以为您给您自己收集的组件库升级时指点迷津。
打开旧版本的 .dpk 文件，Delphi 6 会经询问后自动将 .dpk 转化为新的格式，其中要将旧版中 requires 中的
vcl50、vcldb50、vclx50 等等改为 vcl、vcldb、vclx 等。如果您在组件库中用到了 DesignEditors
单元您需要在 requires 列表中加入 DesignIDE。
旧版中的 DesignIntf 在 Delphi 6 中分隔为 DesignIntf、DesignEditors、DesignEditors；旧版中未公开的
DsgnWnds 等单元在 Delphi 6 中也被公开，改名为 DesignWindows 等。
TDesignWindow 中的一些成员函数的变化：
procedure FormClosed( Form: TCustomForm ); override;
// 改为
procedure DesignerClosed(const Designer: IDesigner; AGoingDormant:
Boolean); override;
procedure FormModified; override;
// 改为
procedure ItemsModified(const Designer: IDesigner); override;
procedure EditAction(Action: TEditAction); override;
// 改为
function EditAction(Action: TEditAction): Boolean; override;
procedure ComponentDeleted(Component: IPersistent); override;
// 改为
procedure ItemDeleted(const ADesigner: IDesigner; Item: TPersistent);
override;
procedure ComponentInserted(Component: IPersistent); override;
// 改为
procedure ItemInserted(const ADesigner: IDesigner; Item: TPersistent);
DesignWindow.Form 属性取消，加入了 DesignWindow.Designer 属性，可以用 DesignWindow.Designer.Root
代替 DesignWindow.Form。
IFormDesigner 改为 IDesigner。
TDesignerSelectList 改为 IDesignerSelections，可以通过 CreateSelectionList
建立。
TIModuleNotifier.ComponentRenamed 的声明改变：
procedure ComponentRenamed(ComponentHandle: Pointer; const OldName,
NewName: string);
// 改为
procedure ComponentRenamed(const AComponent: TComponent; const OldName,
NewName: string);
TDefaultEditor.EditProperty 的声明改变：
procedure EditProperty(PropertyEditor: TPropertyEditor; var Continue,
FreeEditor: Boolean);
// 改为
procedure EditProperty(const Prop: IProperty; var Continue: Boolean);
TCustomForm 中的 Designer 属性的类型由 IDesigner 改为 IDesignerHook，可以由 TCustomForm.Designer.Query(
IDesigner, MyOldDesigner ); 的方法得到以前的 IDesigner 类型。
|
