使用Delphi快速开发ActiveX控件
2007-12-04 13:36
405 查看
[align=center]使用Delphi快速开发ActiveX控件[/align]
ActiveX控件也就是一般所说的OCX控件,它是ActiveX技术的一部分。ActiveX是微软公司推出的基于组件对象模型COM的技术,包括对Windows 32位应用编程接口(Win32 API)和组件对象模型的一系列扩充和增强,目标是把计算机桌面环境与因特网环境集成起来,同时保护在Windows技术中现有的开发投资。微软的ActiveX技术根本上就是修改过的OCX技术,使它能够跨越Internet,主要是使用WWW来传递控件。
ActiveX控件可以被集成到很多支持ActiveX的应用当中去,或者直接用来扩展应用的功能,这些支持ActiveX的应用包括C++ Builder、Delphi、Visual dBASE、 Visual Basic、Visual C++、Internet Explorer、Netscape Navigator等。ActiveX控件还可以使用在因特网上,在网页上使用它来发布信息、处理与用户的交互,但是需要使用支持ActiveX的浏览器才能阅读这些网页。目前已经开发出来的ActiveX控件越来越多,由于ActiveX控件具有很好的特性,我们可以在编程的时候选择使用合适的控件来加快自己的应用开发。可以不夸张地说,ActiveX控件是Windows平台编程必不可少的法宝。
使用ActiveX控件是相对比较简单的。但是,开发ActiveX控件并不是一件简单的事情,必须要熟悉而不只是了解ActiveX技术才能开发出好的ActiveX控件。而COM、OLE等ActiveX技术对于一般的程序员来说,是比较复杂难懂的。所以,ActiveX控件的开发者一般都是“老鸟”级别的程序员。
但是如果您有了Inprise公司的Borland Delphi,那又另当别论了。Delphi作为Windows平台上最优秀的程序开发工具之一,为ActiveX控件的开发提供了强有力的支持,让您轻松地开发ActiveX控件。Delphi的开发者仅仅需要了解一些ActiveX控件的简单知识,就可以使用Delphi提供的工具来快速开发自己的ActiveX控件。本文详细介绍了利用Delphi所提供的工具来快速开发ActiveX控件的技巧。
一、ActiveX控件
要开发ActiveX控件,我们先得简单了解一下ActiveX控件的一些相关知识。在Delphi中,一个ActiveX控件由如下几个部分组成:VCL(可视化构件库)控件、属性、方法、事件,以及一个或者多个相关的类型库,其中每个部分都有各自的作用。现在对每个部分介绍如下: 1、VCL构件 在Delphi中,一个ActiveX控件是由一个或者多个VCL构件经过包装以后得到的。所以,要使用Delphi来开发ActiveX控件[/b],必须先得开发出或者选择要进行包装的VCL构件。也正是由于这个原因,我们可以将Delphi里大量优秀的VCL构件包装成ActiveX控件,从而可以在别的不能够直接使用VCL构件的开发工具(如Visual Basic、Visual C++)里也能够使用到这些控件啦! 但是,在Delphi里可以用来做ActiveX控件的VCL构件必须是TWinControl的后代。如果想用一个TGraphiControl的子类做ActiveX控件,在大多数情况下只需要把它的基类变为TCustomControl即可。有的VCL构件是被注册成非ActiveX控件的,例如EditControl,这些控件也不能做ActiveX控件。 2、类型库 类型库包含了控件的类型定义信息,提供了比接口更多的详细信息,是控件向它的宿主程序提供服务信息的一种途径。类型库的目的是为其他应用和编程工具提供关于它包含的构件对象的信息。开发ActiveX控件时,Delphi把类型库信息存入一个.TLB文件中及一个对应的Pascal文件(.TLB文件的Pascal语言版本),编译时类型库将作为资源链入DLL或者EXE中。 类型库的元素包括:(1)类型库信息:包括类型库的总体信息和特征、当前类型库引用的其他类型库;(2)构件类:代表整个ActiveX控件,包含了提供给客户应用的接口;(3)接口属性和方法、事件;(4)枚举类型:一种用作数据类型的相关常量,可以用在类型库的其他地方定义属性和方法。 Delphi提供了一个类型库编辑器,用于观察或修改类型库,见图1,可以使用它来增加、修改、删除类型库的各种元素。从图1类型库的界面上可以看到,左边是一个树形结构,各种元素的成员作为子节点出现;右边是根据左边所选中的元素类型显示不同的页签,可以对该元素的一些属性进行编辑。 3、属性、方法和事件 VCL构件的属性、方法和事件自然就变成为ActiveX控件的属性、方法和事件。控件的属性,例如颜色、标签等;控件的方法是请求控件执行某些动作;事件则是控件给宿主程序的一个通知,发生了一些事情。 4、属性页 ActiveX控件所带的属性页可以让控件的使用者查看和修改控件的属性。您可以把几个属性捆绑在一个属性页上,也可以只为一个属性提供一个属性页。 二、快速开发ActiveX控件
下面就让我们来使用Delphi具体做一个ActiveX控件。 假设我们现在面临的问题是,在使用Visual C++(VC)开发一个应用的时候,需要使用一个Grid控件来处理界面的事情,而使用VC所提供的FlexGrid控件又很麻烦,发现Delphi里的TStringGrid构件非常合适。但是TStringGrid是Delphi里的VCL构件,又不能直接被VC使用,怎么办呢?不用愁,我们只要把TStringGrid包装成为VC可以使用的ActiveX控件就可以解决这个问题了。 Delphi为ActiveX控件的开发提供了两个向导: * ActiveX控件向导可以让你把一个VCL构件包装成为一个ActiveX控件。下面将会使用到这个向导。 * ActiveForm向导则可以把几个VCL构件包装成为一个ActiveX控件或者开发一个完整的ActiveX应用。 在Delphi当中把TStringGrid包装成一个ActiveX控件的过程如下: 首先,要启动ActiveX控件向导,选择File菜单里的New命令,在弹出的对话框里选择ActiveX页签,然后双击ActiveX Control图标即可,如图2所示。向导中的第一个域要求选择一个要进行包装的VCL构件,点击选择TStringGrid。其他几个域取缺省值即可,如果需要包含版本信息等其他信息,也可以选上。点击OK按钮,向导将生成一个Delphi的ActiveX控件开发项目StringGridXControl1,包括以下几个的文件: 1. 一个ActiveX项目文件,包含了启动、初始化一个ActiveX控件所需要的代码。通常是不需要修改这个文件的。 2. 一个类型库文件(TLB扩展名),定义和实现了ActiveX控件向外所提供的接口、属性、方法和事件。Delphi专门为这个文件提供了一个Pascal版本的文件,而且自动维护这两个文件的一致性。 3. 一个ActiveX实现的文件,使用了Delphi ActiveX框架(DAX)定义和实现了这个ActiveX控件,具体实现类型库里定义的接口。这个文件是我们经常需要修改的。DAX是Delphi对ActiveX控件的COM规约的实现方式。 4. 如果选择了包括一个“关于”对话框的话,还有一个对应的对话框实现文件。 Delphi的ActiveX控件向导根据所包装的VCL构件的属性、方法和事件生成了ActiveX控件相应的属性、方法和事件。但是它没有把VCL构件使用非OLE类型(如集合、数组等)的属性、方法和事件转换过去。例如,TStringGrid的Options属性是集合类型的,RowHeights是数组类型的,在控件向导所生成的属性中就没有这些属性。但是有时候偏偏这些属性、方法和事件是很重要的,这时就需要手工添加一些属性、方法和事件! 现在为这个ActiveX控件添加一个BRowSelect属性,这个属性本来是TStringGrid的Options属性的子属性,控制Grid是否处于行选中状态。在StringGridXControl1项目里打开ActiveX实现文件StringGridImp1.pas,选择Edit菜单里的Add To Interface命令(注意:只有打开了实现文件,这个命令才能使用),Delphi将弹出增加接口对话框,如图3所示。在对话框里的Interface项选择Properties/Methods-IStringGridX,然后在Declaration里写入BRowSelect属性的声明(如果你选中了对话框里的Syntax Helper选项,Delphi将随时提示你应该输入的内容):
[align=center] Property BRowSelect:WordBool;[/align] |
[align=center]property BRowSelect: WordBool read Get_BRowSelect write Set_BRowSelect;[/align] |
[align=center] function Get_BRowSelect: WordBool; safecall; procedure Set_BRowSelect(Value: WordBool); safecall;[/align] |
[align=center] function TStringGridX.Get_BRowSelect: WordBool; begin //以下代码由自己根据需要编写 //获得现在是否处于行选中状态 with FDelphiControl do Result:=goRowSelect in Options ; end; procedure TStringGridX.Set_BRowSelect(Value: WordBool); begin //以下代码由自己根据需要编写 //设置行选中状态 with FDelphiControl do begin if Value then Options:=Options+[goRowSelect] else Options:=Options-[goRowSelect]; end; end;[/align] |
相关文章推荐
- 使用Delphi快速开发ActiveX控件
- 使用Delphi快速开发ActiveX控件
- 使用Delphi快速开发ActiveX控件
- 使用Delphi快速开发ActiveX控件
- 使用Delphi快速开发ActiveX控件
- 使用Delphi快速开发ActiveX控件
- 使用Delphi快速开发ActiveX控件
- delphi之如何快速开发原生ActiveX控件
- Delphi使用VB开发的ActiveX控件
- delphi之:如何快速开发原生ActiveX控件
- delphi之:如何快速开发原生ActiveX控件
- ActiveX控件开发、部署、使用(全)
- 使用MFC开发ActiveX控件
- 学习使用Delphi 2009 开发 Word 2003 插件 <一>
- 使用C#开发ActiveX控件(新)
- 便利的开发工具-log4cpp快速使用指南
- 使用Delphi和Web Services技术开发短信应用程序
- 使用delphi+intraweb进行微信开发1--微信平台接入
- 快速入门ice--使用eclipse开发ice
- .NET Core快速入门教程 4、使用VS Code开发.NET Core控制台应用程序