python activex_delphi7 开发ActiveX的学习备忘录-CSDN博客

本文链接：https://blog.csdn.net/weixin_39758048/article/details/111807502

关于delphi7 ActiveX的学习备忘

Author :5caidm ,2008-06-12

步骤:

1、先创建ActiveX工程文件；

2、注册ActiveX文件(ocx文件) ；

3、编写相应调用ActiveX文件(.ocx文件)的html文件.

具体操作流程如下：

步骤1：

a、选择File->New->Other ，ActiveX页面，选择ActiveX Form ；

b、填写New ActiveX Name：，其他的不用做变动(不好意思，我也不知道其他的什么意思);

c、成功创建ActiveX Form,保存工程，三个文件 (AAImpl1.pas、AAProj1.dpr加入ActiveX Name为AA)；

d、AAProj1_TLB、AAProj1、AAImpl1；

e、增加接口(两种方法)：

1、选中AAImpl1单元，即选中ActiveX Form，在delphi的Edit菜单中选择Add to Interface...；

1> 在Add To Interface 窗口中加入接口Func：Function Func(x1,x2 :Integer) : Integer ;

2>最后OK就可以，delphi会自动帮你检查语法，如果语法或者参数类型或者返回值类型不对，delphi开发环境会自动给出提示。

3>注意：该接口函数有两个参数 x1、x2，为Integer型，返回值也为Integer；

4>参数和返回值类型说明：integer --long;String为BStr或者WideString ；

2、选中AAImpl1单元，即选中ActiveX Form, 在delphi的View菜单中选择Type Library；

1> 在AAProj1.tlb 窗口中,在左侧列表中选择IAA，即选中IAA接口，右键->New->Method或者在在工具栏中选择New Method ,接着给方法命名test；

2>选中test，在选择窗口右边的Parameters页面，对该方法进行参数和返回值的进行增加，Return Type不需要改变；

3>比如test的返回值为String，有一个String型的参数，则在Parameters中增加两个变量，具体如下

中文说明 Name Type Modifier 参数： sVar BSTR [in] //[in]表示输入参数返回值： sRet BSTR* [out,retvar] //表示输出结果，Type一定要为指针类型，否则出错，即一定要带*

则AAImpl1中产生： function TAA.test(const sVar: WideString): WideString; begin //编写函数体 result := sVar ; //此句为自己编写 end;

4>参数和返回值类型说明：integer --long;String为BStr或者WideString ；

f、增加属性Property：同样选中AAImpl1单元，即选中ActiveX Form, 在delphi的View菜单中选择Type Library；在左侧列表中选择IAA，即选中IAA接口，右键->New->Property或者在在工具栏中选择New Property ,接着给属性命名为Mystr，在Parameters中修改Type为BSTR；

function TAA.Get_Mystr: WideString;

begin //编写函数体

end;

procedure TAA.Set_Mystr(Value: WideString);

begin //编写过程体

end;

以上为搭建框架，接下来在ActiveX Form上增加一个TButton(btn_AX)和一个TEdit(edt_AX)控件

g、回到AAImpl1页面代码窗口中，

function TAA.Get_Mystr: WideString;//得到 Mystr

begin //编写函数体

Result := Self.edt_AX.Text ;

end;

procedure TAA.Set_Mystr(Value: WideString);//设置Mystr

begin //编写过程体

Self.edt_AX.Text := Value ;

end;

procedure TAA.btn_AXClick(Sender: TObject);

begin

Self.ClickEvent(Self);

end;

ActiveX Form 编辑完毕，Project->Builder All Projects. //编译工程，生成AAProj1.Ocx文件。

步骤2：注册ActiveX文件(ocx文件) 两种方法注册ActiveX文件：

1、在delphi开发环境中，Run-> Register ActiveX Server //注册Ocx控件。

2、开始->运行->regsvr32 "Ocx文件所在目录/AAProj1.ocx".

步骤3：编写相应调用ActiveX文件(.ocx文件)的html文件. 注：如果在delphi 7中可能会麻烦一点，至少我学习时是麻烦啦；方法：

1>Project->Web Deployment Options(Web部署选项)->Project ;

2>Target dir(Full path of the deployed OCX):选择或填写OCX的完整路径目录； Target URL(Virtual path of the deployed OCX):填写 ./； HTML dir(Full path of the deployed HTML file):选择或填写HTML文件的完整路径目录；其他选项默认。注：如果Web Deployment Options为不可用状态，则在File->New->Other->ActiveX->ActiveX Form接着删除掉这个ActiveX Form，此时Web Deployment Options为可用状态啦，他娘的，这种Bug 也有人能解决，真人才；

3>Project->Web Deploy ；

4>调试方法：Run->Parameters，在Local页面中 Host Application :C:/Program Files/Internet Explorer/IEXPLORE.EXE //你的IE在哪里就填写那里啦； Parameters:文件路径/AAProj1.htm 调试运行即可以；

至此结束；

以下内容为ActiveX和网页Html交互内容脚本：