delphi之如何快速开发原生ActiveX控件.docx

delphi之如何快速开发原生ActiveX控件.docx

《delphi之如何快速开发原生ActiveX控件.docx》由会员分享，可在线阅读，更多相关《delphi之如何快速开发原生ActiveX控件.docx（14页珍藏版）》请在冰点文库上搜索。

delphi之如何快速开发原生ActiveX控件

重温delphi之:

如何快速开发原生ActiveX控件

2009-12-16来源:

作者:

菩提树下…点击：

次

ActiveX技术虽然是一项古老的技术，但是却有着广泛的应用，支付宝的密码输入控件，各大银行的密码输入控件，网页聊天室中的截屏功能，网页播放器中的p2p播放...甚至Flash,Silverlight等等，在IE中都表现为ActiveX。

虽然c#也能开发"用于网页的com应用"，能达到类似ActiveX的效果（可参见c#中开发ActiveX的学习笔记），但是有一个要命的问题是必须得安装几百M的.netframework框架，如果仅仅为了安全的输入一个密码，而要用户下载几百M的安装程序，这是很多人不能接受的，delphi做为win32下的原生开发工具，能很好的支持微软各种"古老"的经典技术。

（再做点小广告:

delphi的kyrix版本还能编译跨平台的应用哦！

） 

ok，开工吧:

开发工具:

推荐用delphi2010（d7也可以，不过添加属性，方法等过程要手动，稍微麻烦点） 

1.启用delphi2010-->File->New->Other-->ActiveLibrary

2.项目命名为MyActiveX

3.File-->SaveAll全部保存

实际上这样就能编译了，不过只是空的dll

4.File-->New-->Other-->ActiveForm

改名为MyForm

将对应的单元文件，保存为UMyForm.pas

5.打开MyAcitveX.ridl文件，切换到design视图，选中IMyForm接口，右击New-->Property添加一个属性Msg

将Msg属性的Type改为BSTR即WideString类型

完了之后，点击工具栏中的RefreshImplementation（即上图中工具栏中圈起来的部分）--这一步很重要，点击之后，它将自动生成属性Msg对应的声明和实现代码模板

6.打开UMyForm.pas--即ActiveForm对应的单元，找到Set_Msg以及Get_Msg的实现部分，补充代码如下:

function TMyForm.Get_Msg:

 WideString;

begin

    result:

=_msg;

end;

procedure TMyForm.Set_Msg（const Value:

 WideString）;

begin

  _msg :

= value;

end;

当然TMyForm的private部分，得先加一个私有成员 

type

  TMyForm = class（TActiveForm, IMyForm）

  private

    { Private declarations }

    _msg:

WideString;

...

这样我们就为即将生成的ActiveX控件，添加了一个字符串类型的属性Msg，下面来测试一下:

7.编译项目，会生成一个MyActiveX.ocx，在运行栏里输入

regsvr32C:

\Users\jimmy.yang\Desktop\delphi_activex\MyActiveX\MyActiveX.ocx

注:

这里ocx的路径，请各位根据自己的实际路径修改

这样就完成了ocx的注册。

8.放到html里测试一下：

代码

52D17094-0687-4A2F-B2DB-30F3189AC659' align=center hspace=0 vspace=0 >

var x = document.getElementById（"x"）;

alert（x.Msg）;

关于CLSID在哪里查看，打开:

MyActiveX_TLB.pas文件，定位到下面这里:

代码

const

  // TypeLibrary Major and minor versions

  MyActiveXMajorVersion = 1;

  MyActiveXMinorVersion = 0;

  LIBID_MyActiveX:

 TGUID = '{49138437-8265-4B1A-9EAE-D0F615D68464}';

  IID_IMyForm:

 TGUID = '{54A20855-29A3-4C92-85DE-A419DA457C7A}';

  DIID_IMyFormEvents:

 TGUID = '{60BBC967-E1E6-4E98-BAE5-776BFD06E9CC}';

  CLASS_MyForm:

 TGUID = '{52D17094-0687-4A2F-B2DB-30F3189AC659}';

其中CLASS_MyForm:

TGUID对应的就是ClassID

运行后，除了弹出一个空白的警告框，暂时看不到其它:

）（可不就是这样么？

Msg属性没给任何初始值，当然是空字符串，所以弹出一个空的警告框是正常的）

9.我们再来添加一些控件和方法，以验证刚才设置的属性确实有效

在MyForm上添加一个文件框，一个按钮

按钮的事件如下:

procedure TMyForm.Button1Click（Sender:

 TObject）;

begin

  _msg:

= self.Edit1.Text;

end;

 即把文本框的值赋给属性Msg

再继续定位到Set_Msg,略做修改

procedure TMyForm.Set_Msg（const Value:

 WideString）;

begin

  _msg :

= value;

  self.Edit1.Text :

= _msg;

end;

即设置Msg属性时，同时也把值显示在文本框里，以便等会儿我们好测试在js中给activeX属性赋值的效果

ok了，再来测试一下，编译一下，如果通不过，请先运行

regsvr32C:

\Users\jimmy.yang\Desktop\delphi_activex\MyActiveX\MyActiveX.ocx/u

将刚才注册的ocx反注册，同时关掉浏览器，不然该ocx文件一直被占用，无法更新.

修改一下html的代码:

代码

52D17094-0687-4A2F-B2DB-30F3189AC659' align=center hspace=0 vspace=0 >

var x = document.getElementById（"x"）;

var ShowMsg = function（）{

    alert（x.Msg）;

}

var SetMsg = function（）{

    x.Msg = 'js传过来的值';

}

运行效果:

10.添加Method

我们已经知道了如何给ActiveX添加对外公开的属性，但是光有属性显然不够，我们再添加一个Method，参考第5步中的截图，选择new-->Method,添加

一个方法,命名为ShowMsg，Return参数项用默认值HRESULT，然后Parameters添加一个参数，如下图:

同样不要忘记了点击工具栏中的更新按钮,再打开UMyForm.pas，会发现自动添加了一个过程的定义:

procedure ShowMsg（const p:

 WideString）; safecall;

转到它的实现部分，写几行测试代码:

procedure TMyForm.ShowMsg（const p:

 WideString）;

begin

  showmessage（'Msg属性的值为：

' + _msg + #13 + '传入的参数为：

' + p）;

end;

再编译，html代码中添加一些代码:

代码

52D17094-0687-4A2F-B2DB-30F3189AC659' align=center hspace=0 vspace=0 >

var x = document.getElementById（"x"）;

var ShowMsg = function（）{

    alert（x.Msg）;

}

var SetMsg = function（）{

    x.Msg = 'js传过来的值';

}

var CallShowMsg = function（）{

    x.ShowMsg（'这是js传过来的参数'）;

}

运行看下：

类似的，我们还可以为ActiveX添加带返回值的function,而非过程procedure，但是比较郁闷的是，我试了半天，delphi中编译正常后，但是在javascript中就是无法取得返回值，估计是delphi的变量类型与javascript的变量类型不匹配引起的，哪位delphi高人如果知道原因，还请指点一二，在此先谢过.

11.深入看下ActiveX中到底有哪些玩意儿？

既然ActiveX能加载到网页中，肯定也是dom树的一份子了，想知道ActiveX到底提供了哪些其它属性或方法吗？

以下的js代码可以测试出来:

代码