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

ActiveX技术虽然是一项古老的技术，但是却有着广泛的应用，支付宝的密码输入控件，各大银行的密码输入控件，网页聊天室中的截屏功能，网页播放器中的p2p播放...甚至Flash,Silverlight等等，在IE中都表现为ActiveX。虽然c#也能开发"用于网页的com应用"，能达到类似ActiveX的效果(可参见c#中开发ActiveX的学习笔记)，但是有一个要命的问题是必须得安装几百M的.net framework框架，如果仅仅为了安全的输入一个密码，而要用户下载几百M的安装程序，这是很多人不能接受的，delphi做为win32下的原生开发工具，能很好的支持微软各种"古老"的经典技术。(再做点小广告:delphi的kyrix版本还能编译跨平台的应用哦！)

ok，开工吧:

开发工具:推荐用delphi 2010(d7也可以，不过添加属性，方法等过程要手动，稍微麻烦点)

1.启用delphi2010-->File->New->Other-->Active Library



2.项目命名为MyActiveX



3.File-->Save All 全部保存

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

4.File-->New-->Other-->Active Form



改名为MyForm



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

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



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



完了之后，点击工具栏中的Refresh Implementation(即上图中工具栏中圈起来的部分)--这一步很重要，点击之后，它将自动生成属性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，在运行栏里输入

regsvr32 C:\Users\jimmy.yang\Desktop\delphi_activex\MyActiveX\MyActiveX.ocx

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

这样就完成了ocx的注册。

8.放到html里测试一下：