搜索
附录A使用OPENTOOLSAPI的Delphi扩展示例附录A与第11章的内容前后承继。阅读第11章之后，您已经了解了创建定制组件的大部分知识。附录A也很重要，它示范了如何创建组件编辑器以及使用OpenToolsAPI对Delphi自身进行扩展。二者分属不同的主题：一个与组件相关，另一个则是要扩展Delphi。之所以将二者放到附录中，是因为它们没有其他技术那样常用。但要用到二者的时候，它们都是很有用的。定制组件编辑器可以定义设计时对话框，编辑器在ObjectInspector不够用时，使得用户能够可视化地修改特定于该组件的每个方面。一个很好的例子就是TChart组件，由DaveBerneda开发。另外，在设计时您还可以从组件的上下文菜单中运行该组件所包含的代码。假定您使用Delphi已经有一段时间了，而您认为Delphi缺乏某些必要的特征。我三年前在一个工程上工作时，就发生了这样的情况。当时正在对RationalRose所定义的系统结构模型进行编码，我们已经厌烦了手工定义类并编写函数体。实在是太烦了。创建一个类来读取类的声明并编写函数体，这看来是个不错的主意。使用OpenToolsAPI，有时候再借助一下RayLischner的书《HiddenPathsofDelphi3:Experts,Wizards,andtheOpenToolsAPI》，我们最终向Delphi添加了一个能够调用类生成器的菜单项。结果终于摆脱了这本来可以自动完成的、烦人的任务（可惜的是我们没有一本语法分析方面的好书，我有点离题了）。这准确地描述了Inprise公司在决定向Delphi专业版和企业版用户提供OpenToolsAPI时的想法。当需要Delphi具有某些功能时，添加上去就行了。Delphi现在还具有“Completeclassatcursor”的代码生成功能，因此我们可以创建一个尚不存在的专家：可以生成专家的专家。当您阅读本章后，可以了解到如何创建组件编辑器以及怎样使用专家对Delphi进行定制。有一个工具可用于开发定制专家，这使得创建专家与创建组件一样容易。A.1OpenToolsAPI介绍OpenToolsAPI原来定义为抽象虚类，即它使用了Delphi接口，而我们可以继承它以便向Delphi添加扩展。原来的那些单元仍然存在于你安装的Delphi的Source\ToolsAPI子目录下，但在大多数情况下它们已经让位于ToolsAPI.pas单元中定义的COM接口。注意：ToolsAPI单元与Delphi专业版和企业版一同发布。您也可以对Delphi标准版进行定制，只是包含相应接口的单元在Delphi标准版中是没有的。如果您对Delphi抽象接口比较熟悉，那么比从零开始要好一些。不管怎样，您都应该学习COM接口，这正是我们在本章中要做的。附录A使用OPENTOOLSAPI的Delphi扩展示例501A.1.1OpenTools接口大多数情况下，OpenTools接口都是位于Source\ToolsAPI\ToolsAPI.pas单元中的COM接口。为提高后向兼容性，该目录下也定义了风格较老的Delphi接口。表A.1完整地列出了ToolsAPI中的所有单元。带有星号的单元包含了风格较老的Delphi接口，通常应该避免在较新的代码中使用。警告：很差的是，这些单元在帮助文件中并没有很好的文档。首先要参考单元中的代码；代码中的注释很有帮助，但默认某些知识；而经过仔细查找，我们发现几乎完全没有集成化的帮助。这真是个不幸，如果要进行扩展，您必须阅读许多代码并进行实验。表A.1DelphiToolsAPI单元列表。通过实现ToolsAPI.pas单元中定义的COM接口，可以访问Delphi的大部分功能单元描述toolsapi.pas包含了新的COM接口，它替换了在其他单元中可以找到的风格较老的接口（本章中将广泛地使用该单元的接口）vcsintf.pas包含了与版本控制系统进行链接的COM接口dsgnintf.pas包含了特性编辑器、组件编辑器以及注册过程所需的接口（例如，RegisterComponentEditor）editintf.pas*风格较老的Delphi抽象接口，用于访问编辑器缓存，例如单元的文本exptintf.pas*风格较老的单元，其中包括了用于定义专家的抽象虚类TIExpert；新代码应使用ToolsAPI单元中的COM接口fileintf.pas*风格较老的单元，其中包括了用于访问文件系统功能的抽象虚接口istreams.pas*包含了流、内存流、文件流的接口toolintf.pas*与Delphi菜单和ToolServices相关的接口；在新代码中应使用ToolsAPI单元中的BorlandIDEServicesCOM对象以及IOTAMenuWizardvirtinft.pas*包含了TInterface的定义，以及Delphi对基本的COM接口IUnknown的实现注意：本章中可能会交替使用向导和专家这两个词。它们都是指Delphi中的专家。之所以使用两个词，是因为Inprise也并未确定使用单个词。注册过程使用向导这个词，而COM接口也包含了向导这个词。在Delphi中进行讨论时，对这两个词进行区分是没有意义的。现在已经无需了解进一步的细节了，我们来创建一个Delphi专家。A.1.2创建向导对Delphi向导进行扩展的最为直接的途径就是实现IOTAWizard和IOTAMenuWizard接口。这两个接口都定义在ToolsAPI单元中，而且您可以看到，它们非常容易实现。注意：首字母缩略词前缀IOTA指的是InterfaceforOpenToolsAPI（我是这样认为的！），它也可能是指一幕希腊剧，意思是指非常小的数量（因为502Delphi6应用开发指南只有很少量的代码需要实现）。实现IOTAWizard和IOTAMenuWizard最容易实现的向导是非常基本的IOTAWizard接口，它使用IOTAMenuWizard类来实现。IOTAWizard接口需要实现四个方法，而IOTAMenuWizard则把一个菜单项放置到Help菜单上。由于刚刚起步，我们将以向导的形式实现一个HelloWorld例子。为使读者不至于失望，将在下一节实现一个较为有用的向导。下面的代码定义IOTAWizard和IOTAMenuWizard。实现基本的向导并显示在Help菜单上，需要实现IOTAWizard接口的四个方法：GetIDString、GetName、GetState和Execute。由于IOTAWizard继承了IOTANotifier接口，您还需要实现IOTANotifier接口。可以使用TNotifierObject存根类作为IOTANotifier接口的实现。IOTANotifier接口引入了AfterSave、BeforeSave、Destroyed和Modified方法，以便对事件进行响应。对这个练习而言，该存根类就足够了。IOTAMenuWizard继承了IOTAWizard接口。在IOTAMenuWizard类中，惟一需要实现的方法是GetMenuText，该方法返回在Help菜单上显示的文本。IOTAWizard=interface(IOTANotifier)['{B75C0CE0-EEA6-11D1-9504-00608CCBF153}']{ExpertUIstrings}functionGetIDString:string;functionGetName:string;functionGetState:TWizardState;{LaunchtheAddIn}procedureExecute;end;IOTAMenuWizard=interface(IOTAWizard)['{B75C0CE2-EEA6-11D1-9504-00608CCBF153}']functionGetMenuText:string;end;这个没有实际功能的向导定义为TDummyWizard类，该类是TNotifierObject、IOTAWizard以及IOTAMenuWizard的子类。它实现了上面代码所列出的接口中的五个方法。完整的实现代码如下。unitUDummyWizard;//UDummyWizard.pas-Demonstratesbasicwizardinterface//Copyright(c)2000.AllRightsReserved.//BySoftwareConceptions,Inc.,MIUSAinterfaceusesWindows,ToolsAPI;typeTDummyWizard=class(TNotifierObject,IOTAWizard,附录A使用OPENTOOLSAPI的Delphi扩展示例503IOTAMenuWizard)publicfunctionGetIDString:String;functionGetName:String;functionGetState:TWizardState;procedureExecute;functionGetMenuText:String;end;procedureRegister;implementationusesDialogs;procedureRegister;beginRegisterPackageWizard(TDummyWizard.Create);end;{TDummyWizard}procedureTDummyWizard.Execute;beginMessageDlg('BuildingDelphi6Applications',mtInformation,[mbOk],0);end;functionTDummyWizard.GetIDString:String;beginresult:='SoftConcepts.DummyWizard';end;functionTDummyWizard.GetMenuText:String;beginresult:='DummyWizard';end;functionTDummyWizard.GetName:String;beginresult:='DummyWizard';end;functionTDummyWizard.GetState:TWizardState;beginresult:=[wsEnabled];504Delphi6应用开发指南end;end.Register过程以TDummyWizard的一个实例为参数调用了RegisterPackageWizard。您可以像安装组件一样把专家安装到包中，如上例。实际上，进行安装最容易的方法就是使用Delphi中的Component|InstallComponent菜单项。当用户单击添加的菜单项时，即可调用这个非常基本的向导。当单击菜单项时，将调用向导实现的Execute方法来响应。TDummyWizard在一个TMessageDlg对话框中显示本书的标题。当然，如果您确定的话，可以在Execute方法中加入几乎任何级别的复杂行为。GetIDString方法返回向导的字符串标识符。按照惯例，该ID的前缀是您公司的名字，这里使用了SoftwareConcepts,Inc公司的注册商标SoftConcepts，并将其通过圆点连接到向导的名字。GetMenuText的实现代码中包含了显示在帮助菜单上的菜单项文本。当每次单击Delphi的Help菜单上相应菜单项时，都会调用该方法。GetName方法返回向导的名字，而GetState方法则返回TWizardState类型值。该类型定义如下：TWizardState=setof[wsEnabled,wsChecked];wsEnable表示该向导是否是活动的，而wsChecked值则