Delphi7 开发ocx
关于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交互内容脚本：
<HTML> <H1> Delphi 7 ActiveX Test Page </H1><p> You should see your Delphi 7 forms or controls embedded in the form below. <HR><center><P>
<OBJECT
id=TestActiveProj1
classid="clsid:A215EF7E-1486-4C7A-8A5F-16C640D73C65"
codebase="./AAProj1.ocx#version=1,0,0,0"
width=350
height=300
align=center
hspace=0
vspace=0 >
</OBJECT>
<body>
<head> <!--<title>无标题文档</title> -->
<script language="javascript">
<!--
function onloadtime() {
document.myform.txtDate.value=AAProj1.Func(1,8) ;
document.all.AAProj1.Mystr = document.all["txtTest"].value ;
}
function ontestclick() {
document.myform.txtDate.value=AAProj1.Func(52,8) ;
document.myform.txtTest.value = AAProj1.Mystr ;
}
</script>
<script language="javascript" for=AAProj1 event=onclick>
document.myform.txtTest.value = AAProj1.Mystr ;
</script>
</head>
<body οnlοad="onloadtime()">
<form name=myform><div align="center">
<input name="txtTest" type="text" value="" size="20">
<input name="txtDate" type="text" value="" size="20">
<input name="btn" type="Button" value="test" οnclick="onloadtime()" size="40">
<input name="btn1" type="Button" value="Click" οnclick="ontestclick()" size="40">
</div>
</form>
</body> </HTML>
本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/cai5/archive/2008/06/13/2543761.aspx
845
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
