首先设置一个虚拟目录,定名为Delphi
1)进入Delphi,Close all
2)New -> Other -> ActiveX -> ActiveX Form ->Name: MyActiveX
OK
3)出现一个普通的Form界面,放入
TButton
TListBox
TEdit
三个控件,设计目标是,点Button后ListBox添加一个Edit的内容。
4)Save all 到虚拟目录的 ActiveX/Ac2/ 子目录下。
5)双击Button,在Button1Click事件程序下写:
ListBox1.items.add(edit1.text);
6)这就完成了,保存。
7)Porject ->Build All 编译
8)Porject -〉Web Deployment Options 设置分发参数
第一项:OCX保存的目录 (虚拟目录/ActiveX/ac2/)
第二项:OCX保存在哪个相对路径中
(http://127.0.0.1/delphi/ActiveX/ac2/)
第三项:Delphi产生的HTML 保存路径(虚拟目录/ActiveX/ac2/)
Ok
9)产生嵌入ActiveXForm的HTML文件
Porject -〉Web Deploy
现在保存这个工程然后退出
观察效果
打开IE浏览器, 把网址写为:http://127.0.0.1/delphi/activex/ac2/
就可以看到下面的文件列表:
[To Parent Directory]
2000年5月27日 9:10 750 MyActiveImpl1.~dfm
2000年5月27日 9:11 9160 MyActiveImpl1.~pas
2000年5月27日 9:31 16936 MyActiveImpl1.dcu
2000年5月27日 9:16 51 MyActiveImpl1.ddp
2000年5月27日 9:14 778 MyActiveImpl1.dfm
2000年5月27日 9:15 9307 MyActiveImpl1.pas
2000年5月27日 9:11 334 MyActiveProj1.~dpr
2000年5月27日 9:11 6424 MyActiveProj1.~tlb
2000年5月27日 9:27 386 MyActiveProj1.cfg
2000年5月27日 9:27 1436 MyActiveProj1.dof
2000年5月27日 9:11 334 MyActiveProj1.dpr
2000年5月27日 9:29 382 MyActiveProj1.htm
2000年5月27日 9:31 477696 MyActiveProj1.ocx
2000年5月27日 9:27 1836 MyActiveProj1.res
2000年5月27日 9:11 6424 MyActiveProj1.tlb
2000年5月27日 9:11 15377 MyActiveProj1_TLB.~pas
2000年5月27日 9:31 11952 MyActiveProj1_TLB.dcu
2000年5月27日 9:11 15377 MyActiveProj1_TLB.pas
其中:MyActiveProj1.htm 就是刚才内嵌的HTML文件,点击这个超级
链接,就可以看到包含ActiveX的网页了。
打开这个网页的源代码,可以看到这个HTML文件中真正重要的是下面
的一段,把这一段镶嵌到任何一个网页中,都可以调用这个ActiveX 。而
其它部分可以用诸如Frontpage 等网页设计软件来完成。
<OBJECT
classid="clsid:937B0348-FF1E-4E70-9244-3375EF9AF5E5"
codebase="http://127.0.0.1/delphi/ActiveX/Ac2/MyActiveProj1.ocx#version=1,0,0,0"
width=313
height=248
align=center
hspace=0
vspace=0
>
</OBJECT>
真正使用的时候,codebase要使用下面的地址
codebase="http://127.0.0.1/delphi/ActiveX/Ac2/MyActiveProj1.ocx