Delphi编写高精度定时器ActiveX控件

时间:2022-05-24 20:25:34

本文通过一个编程实例介绍了Delphi 7下编写不可视ActiveX控件的方法,并给出了源代码。为使用Delphi编写其他类型ActiveX控件的读者提供参考和借鉴。

关键词 Delphi,ActiveX控件,定时器,VCL组件

一、前言

Delphi下有大量优秀的且提供源码的VCL组件,如果想在其他开发环境(如VB 6.0,VC 6.0,VS.net等)中使用它们,就必须把这些VCL组件转换成ActiveX控件。目前,关于把可视化VCL组件转变为ActiveX控件的资料和例子非常多,而把不可视VCL控件转换成ActiveX控件的资料却很少。笔者在网上找到了一个优秀且开源的高精度定时器VCL组件,经过反复摸索终于成功将其转换成一个ActiveX控件。该控件能够代替VB 6.0中自带的Timer控件,而且精度更高。在Delphi 7中,Actvieform是基于Delphi 窗体的ActiveX控件,可以像创建一个标准的Delphi窗体一样创建ActiveForm,而不是把单个组件转换成ActiveX控件。本文中,笔者将详细介绍如何利用Actvieform来建立一个高精度的定时器Activex控件。

二、实现

1.在Delphi 7中安装好要使用的VCL组件

本文中要转换的高精度定时器VCL组件的名称为THiResTimer,选择Delphi主菜单中component菜单下的install component子菜单,弹出安装控件窗体。在Unit file name中浏览选择HIRESTIM.pas文件,并点击OK即可。安装成功后,就会看到THiResTimer控件3个重要的属性Enabled、Interval、Resolution和一个重要的事件Ontimer。在使用Activeform建立ActiveX控件时,可以不必太多关心VCL组件源码实现方式,只注意要实现的组件属性和事件即可。

2.创建一个Activeform

(1)选择Delphi主菜单中File 菜单下的New,然后单击New菜单的子菜单other,弹出对象库窗体。

(2)在 ActiveX页中双击ActiveForm图标,出现Activeform Wizard(如图1所示)。

Delphi编写高精度定时器ActiveX控件

                         图1 Activeform Wizard 主界面

(3)如果想控制其他开发人员使用自己编写的ActiveX控件,选择Make control Licensed选项。Delphi会自动生成扩展名为.lic的许可文件和ActiveX控件一起发布使用。

(4)如果想显示有关ActiveX控件的任何其他信息,请选择 Include About Box选项。

(5)在 Project Name中输入项目名称,在 New ActiveX Name中输入控件名称,并点击OK。本文中,项目名称为mytimerprj,控件名称为mytimer。

(6)在Delphi工具栏中点击Save project图标。

本例中首先创建一个空白窗体,窗体名称为mytimer。可以在该窗体上添加想要转换的任何非可视化VCL组件,在这里放置的是一个名为HiResTimer1的THiResTimer类型控件。

3.Activeform文件生成以后,接下来要做的就是编辑ActiveX控件的属性或事件。选择Delphi主菜单中View菜单下的type library子菜单,弹出如图2所示的Type Library editor 。可以直接在其上编辑属性或事件,先把系统默认生成的属性和事件都删除,图2中IMyTimer的所有子项是属性,IMyTimerEvents的所有子项是事件。然后在IMyTimer后添加下列属性:

Delphi编写高精度定时器ActiveX控件

图2 Type Library 属性设置窗口

Enabled:VARIANT_BOOL

Interval:long

Resolution:long

当改变上面属性值时,HiResTimer1控件对应的属性相应改变。 程序代码如下:

//在 保护字段声明三个变量

protected

{ Protected declarations }

FInterval:integer;

FResolution:integer;

FEnabled:boolean;

//改写DefineProperties虚方法,用以实现控件属性值的持久化。

procedure DefineProperties(Filer: TFiler); override;

procedure TMyTimer.DefineProperties(Filer: TFiler);

begin

inherited;

filer.DefineProperty('MyProperty',LoadProperty,StoreProperty,true);

//LoadProperty 和StoreProperty 是以函数为参数

end;

// 在DefineProperties方法中需要一个写变量函数作为参数。

procedure StoreProperty(Writer:TWriter);

procedure TMyTimer.StoreProperty(Writer:TWriter);

begin

writer.WriteInteger(FInterval);

writer.WriteInteger(FResolution);

writer.WriteBoolean(FEnabled);

//持久化三个保护字段变量

end;

//在DefineProperties方法中需要一个读变量函数作为参数。

procedure LoadProperty(Reader:TReader);

procedure TMyTimer.LoadProperty(Reader:TReader);

begin

FInterval:=reader.ReadInteger;

FResolution:=reader.ReadInteger;

Fenabled:=reader.ReadBoolean;

hirestimer1.Interval:=FInterval;

hirestimer1.Resolution:=FResolution;

hirestimer1.Enabled:=FEnabled;

// 读取属性值

end;

// 当属性值改变时,修改HiResTimer1控件对应的属性值。

function TMyTimer.Get_Enabled: WordBool;

begin

Result := FEnabled;

end;

procedure TMyTimer.Set_Enabled(Value: WordBool);

begin

FEnabled := Value;

hirestimer1.Enabled :=FEnabled;

//设置hirestimer1.Enabled 决定定时器是否工作。

end;

function TMyTimer.Get_Interval: Integer;

begin

result:=Finterval;

end;

function TMyTimer.Get_Resolution: Integer;

begin

result:=Fresolution;

end;

procedure TMyTimer.Set_Interval(Value: Integer);

begin

Finterval:=value;

hirestimer1.Interval:=Finterval;

// hirestimer1.Interval的作用和VB自带的Timer定时器Interval属性功能一致。

end;

procedure TMyTimer.Set_Resolution(Value: Integer);

begin

Fresolution:=value;

hirestimer1.Resolution:=Fresolution;

// hirestimer1.Resolution 属性保证定时器的精度。数值越小精度越高。

end;

添加完属性后,还要在IMyTimerEvents中加入Ontimer事件,首先在私有段中定义一个TimerEvent 函数。然后在程序Initialize段中让HiResTimer1.OnTimer = TimerEvent;而在TimerEvent 事件中又调用FEvents.OnTimer,这样就能在Ontimer事件中捕获到HiResTimer1.OnTimer事件。程序实现如下所示:

procedure TMyTimer.Initialize;

begin

inherited Initialize;

HiResTimer1.OnTimer:=TimerEvent;

end;

procedure TMyTimer.TimerEvent(Sender: TObject);

begin

if FEvents <> nil then FEvents.OnTimer;

end;

4.因为我们要编写的是一个非可视Activex 控件,所以控件在用于VB等开发环境时还应具有如下特征即:控件在designtime 时尺寸应固定且可见,而在 runtime时不可见。以下代码即可实现尺寸固定:

constructor Create(AOwner: TComponent); override;

constructor TMyTimer.Create(AOwner: TComponent);

begin

self.AutoSize:=true;

inherited create(aowner);

self.width:=32;

self.height:=32;

self.Constraints.MaxHeight:=32;

self.Constraints.MaxWidth:=32;

self.Constraints.MinHeight:=32;

self.Constraints.MinWidth:=32;

end;

下面这行代码即可实现ActiveX控件在designtime 时可见而runtime时不可见的功能。

TActiveFormFactory.Create(

ComServer,

TActiveFormControl,

TMyTimer,

Class_MyTimer,

1,

`97B151A-9D6F-4DCC-BAA8-E4B51D2DD68B}`

OLEMISC_INVISIBLEATRUNTIME, //修改后

//OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL, 默认参数

tmApartment);

5.程序编好后,选择Delphi主菜单中 Run 菜单下的Register ActiveX Server,编译并注册 ActiveX控件。这样就可以在VB等其他开发环境中使用,图3中就是用VB 6.0调用mytimer控件的例子。用户可以参考Delphi和VB源代码并实际运行。

Delphi编写高精度定时器ActiveX控件

图 3 调用mytimer控件

三、结语

通过编写不可视ActiveX控件基本的程序框架,便可以编写其他类型的非可视化ActiveX控件,如加密解密,数值计算,系统信息,通用对话框等。使用Activeform编写ActvieX控件的优点之一是可以把那些不提供源代码的VCL组件也能转换成ActiveX控件,通过ActiveX控件使Delphi能够和其他可视化开发工具一起混合编程。