delphi中ActiveX 和 Web
http://book.77169.com/data/web5302/20050228/20050228__3692503.html
ActiveX 和 Web
在Windows 操作系统下，有一个重要的机制，就是OLE ，就是可以让某
个应用程序（OLE Controller）访问其它应用程序（OLE Server）所提供的
功能，这样做的好处是，如果已经有了完成某项功能的程序，你就不必再为
某项功能编写特定的应用程序，可以直接通过OLE 调用。
一、 制作用Web 调用的ActiveX
首先设置一个虚拟目录，定名为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 MyActiv
相关文档：
有关开发习惯的一些想法，如鲠在喉，不吐不快。究其发贴动机，当然不排除有骗取参与分的可能，但另一方面，也希望能给同行（念Xing）者提供一些
建议，或者参考(希望不是误人子弟)。同时，也希望各位能够就我的这些陋习，发表一点看法，给出批评和指正的意见。谢谢。
一．建立工程目录
&n ......
在低版本中设定MSCOMM控件，是导入MSCOMM组件，然后就可以看见MSCOMM控件的电话的图标了，但是在DELPHI 2005或以上版本中就必须先把此控件创建到包中（BPL）然后导入BPL，那个电话图标就可以看见在工具条上了。我试了多少回才试出来的。 ......
第一种：需要引用Windows单元
ShowMessage(IntToStr(GetSystemMetrics(SM_CYSCREEN)-GetSystemMetrics(SM_CYFULLSCREEN)-GetSystemMetrics(SM_CYCAPTION)));
第二种：需要引用Windows单元
function GetSystemTaskBarHeight:Integer;
var
R:TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA,0,@R,0);
Resul ......
如今RealPlayer的流式媒体文件以其强大的视频压缩比正逐步悄然兴起。RealPlayer Plus播放器也理所当然地成为大家播放RealPlayer格式文件的首选软件。不过RealPlayer Plus也不是十全十美的，比如启动时间慢，占用空间大，留有历史记录等等。其实我们可以利用Delphi打造一个完全符合自己要求的RealPlayer� ......
